AW: Makro Zeitversetzt starten
10.03.2008 11:55:00
volti
Hallo Tino,
hier der zweite Versuch. Allerdings habe ich kein kleines Beispiel sondern nur große, deshalb nachfolgender Code nur zur Verständnisschärfung.
Wenn Du in Deiner Applikation ein Fenster erstellst, (fast alle Win-Programme bestehen zumindest mal aus einem Fenster), teilt Du in Deinem Programm dem Betriebssystem Windows mit, wohin die Messages für dieses Fenster gesendet werden sollen.
Nehmen wir an, dass alle Messages an die folgende Handlingroutine gesendet werden sollen.
Const ID_Timer = 5555
Function WndProc(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As _
Long) As Long
Select Case wMsg
Case WM_Create
hTimer = SetTimer(hWnd, ID_Timer, 1000, ByVal Null)
Case WM_KEYDOWN
Case WM_MOUSEMOVE
Case WM_COMMAND
Case WM_LBUTTONUP, WM_RBUTTONUP
Case WM_TIMER
If hTimer 0 And ID_Timer = 5555 Then
'Mein weiterer Timercode kommt hierein
End If
EXIT
Function
Case WM_DESTROY
KillTimer hWnd, ID_Timer
End Select
WndProc = DefWindowProc(hWnd, wMsg, wParam, lParam)
End Function
-Beim Erstellen des Fensters wird die WM_Create-Nachricht gesendet. In dieser Phase setzen wir nun einen Timer mit der ID 5555 und einer Pollingzeit von einer Sekunde. Der letzte Parameter ist Null, da wir keine Verarbeitungsprozedur in diesem Falle haben.
-Nach Ablauf der Timerzeit sendet der Timer die WM_Timer-Nachricht an seine Handlingroutine. Hier können wir nun anhand der Timer-ID den richtigen Timer rausfischen und Aktionen ausführen.
-Wenn das Programm beendet wird wird eine WM_Destroy-Nachricht gesendet. In dieser Phase beenden wir nun den Timer mit der KillTimer-Funktion. (Wichtig)
Hoffe, jetzt ist es etwas durchsichtiger geworden. Habe noch ein paar weitere Msg mal reingeschrieben, damit Du siehst was es alles so gibt, nämlich einige hundert Msg. Natürlich fehlt überall der code dazwischen.
Ein komplett funktionierendes Beispiel sprengt glaube ich den Rahmen dieses Forums.
Noch Fragen?
viele Grüße
KH