Rubrik: Datum/Zeit und Timer · Timer | VB-Versionen: VB4, VB5, VB6 | 03.06.02 |
Realisierung einer Wait-Funktion Effektiv und einfach - eine Wait-Funktion durch die API-Funktion WaitForSingleObject realisieren. | ||
Autor: Tom Luc | Bewertung: | Views: 59.674 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Effektiv und einfach - eine Wait-Funktion durch die API-Funktion WaitForSingleObject realisieren.
Und so einfach geht das
Vorteil gegenüber andere bisherigen Vorschlägen:
- keine Prozessor-Auslastung
- kein DoEvents
- kein Sleep
Einfacher Trick: hwnd =-1 (-1 = kein existentes Handle, da negativ)
Und hier die Funktion:
' benötigte API-Deklaration Private Declare Function WaitForSingleObject Lib "kernel32" ( _ ByVal hHandle As Long, _ ByVal dwMilliseconds As Long) As Long
' Ewartet wird die Zeitangabe in Millisekunden! ' z.B. 1000 für 1 Sekunde Public Function Wait(ByVal mSek As Long) WaitForSingleObject -1, mSek End Function
Beispiel:
' 2 Sekunden warten, dann Form schließen Wait 2000 Unload Me