Tutorial

Eventsystem

von

Seite 4 von 5

Der Code macht ja schon was er machen soll, allerdings stimmt die Syntax noch nicht ganz mit der des Anfangsbeispiels überein. Das können wir mit einigen Kniffen ändern:

'Die Applikation initieren

Dim As EventType APP



'Vereinfachung der Syntax für den User

#Define WindowScreen APP.windowCreate

#Define Button APP.buttonCreate



'Um jetzt noch einen Selbstläufer aus dem ganzen zu machen, definieren wir ein StartMacro

#Macro StartAPP()

    Dim As String keyInput

    APP.mutex = MutexCreate 'Mutex erstellen



    'Hauptschleife des Fensters

    Do

        MutexLock(APP.mutex)

        keyInput = InKey

        MutexUnLock(APP.mutex)

        Sleep 15

    Loop While keyInput <> Chr(255, 107) 'X-Button zum Fenster schließen



    APP.terminate = 1 'Thread beenden

    ThreadWait(APP.eventSubThread) 'Auf Beendigung warten

    MutexDestroy(APP.mutex)

    DeAllocate(APP.newButtonArray) 'Gibt den Speicher wieder frei

#EndMacro

Gehe zu Seite 1 2 3 4 5

Zusätzliche Informationen und Funktionen

Das Tutorial wurde am 19.03.2010 von MOD angelegt.
Die aktuellste Version wurde am 25.04.2010 von MOD gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.