Programm in VB warten lassen?
Hi
Hier kann mir doch bestimmt jemand helfen:
???wie kann ich in Visual Basic das Programm kurz warten lassen???
2 Antworten
Die folgende Funktion arbeitet in einem meiner "VB 2008 Express" - Programme
'Funktion, die die Programmausführung verzögert - Wartezeit in Millisekunden
Public Sub warte(ByVal Wartezeit As Integer)
Dim datAnfang As Date
datAnfang = Now
Do
Application.DoEvents() 'Sorgt dafür, dass das sonstige Programm aktiv bleibt.
Loop Until Now > datAnfang.AddMilliseconds(Wartezeit)
End Sub
Ganz easy. Nutze eine "Sleep()"-Funktion. Diese startet eine Stopwatch und lässt sie stumpf durchlaufen:
Public Sub sleep(ByVal sleeptime As Integer)
Dim stw As New Stopwatch
stw.Start()
Do Until stw.ElapsedMilliseconds >= sleeptime
Application.DoEvents()
Loop
stw.Stop()
stw.Reset()
End Sub