Realisierung einer Wait-Funktion Effektiv und einfach - eine Wait-Funktion durch die API-Funktion WaitForSingleObject realisieren.
Autor:   Tom Luc	Bewertung:     [ Jetzt bewerten ]	Views:  19.485
ohne Homepage	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 87 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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