Funktionsaufruf jede Sekunde
08.06.2005 10:13:43
Dennis
ich hätte folgendes Problem, find aber keine wirklich gute Lösung, ich habe
eine Art Endlosschleife wie folgt, in dieser müsste jede Sekunde eine Funktion aufgerufen werden, die Variable Beenden lkann ich mit einem Button ändern, bzw die Schleife abbrechen. Die Funtkion selber soll ein Label auf einem Formular
ändern.
Public Sub Start()
'Schleife
Do While Beenden = False
'eine sekunde warten
Call BeispielFunktion
Loop
End Sub
Private Sub Ende_Click()
Beenden = True
End Sub
Ich habe es schon mit sleep und application.wait versucht, allerdings
wir dann die Userform nicht mehr richtig angezeigt.
Vielen Dank an alle.
MfG Dennis
Anzeige