Hallo Leute. Versuche seit 2 Stunden vergeblich irgendwie die Sleep Funktion in ein kleines VB Programm einzubauen. Kann mir einer sagen, wie es richtig geht?
ichhabkeinen Gast |
Sleep Funktion in VB
Antworten zu Sleep Funktion in VB:
Code: [Auswählen]
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long )
Private Sub Command1_Click()
Sleep 2000
MsgBox "2 Sekunden Später"
End Sub
aber soweit ich weis friert sleep dein ganzes system für diese zeit ein. (bin mir da aber nicht 100% sicher...
könntest ne pause auch über die API GetTickCount() bewerkstelligen
Code: [Auswählen]
Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
Dim Aktuellezeit as Long
Dim Endzeit as Long
Endzeit = GetTickCount() + 2000 'genau wie sleep in millisekunden
Do
DoEvents
AktuelleZeit = GetTickCount()
Loop While AktuelleZeit < Endzeit
MsgBox "2 Sekunden später"
End Sub
aber soweit ich weis friert sleep dein ganzes system für diese zeit ein. (bin mir da aber nicht 100% sicher...
Da weisst du aber garnix und bist dir zurecht nicht sicher
| « PHP wird nicht angezeigt | Drucker umbennen mit VBScript » | ||
Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!
| Mehr Themen zu "Sleep Funktion"
