Re: Prozessunterbrechung
04.06.2003 16:45:22
Peter M
Falls Du nochmal reinschaust:"DoEvents" war genau das, was ich gesucht habe!!!
In der Tat kommt es mir nicht so auf die
Genauigkeit der Zeitschritte an.
Ich hab's jetzt testweise wie folgt
mal umgesetzt (mit 3 Buttons, 1 Bildlaufleiste).
-----------------------------------------------
Dim blnAbbruch As Boolean
Sub HochZaehlen()
Dim dt As Double
blnAbbruch = False
While Not blnAbbruch
Range("A1").Value = Range("A1").Value + 1
dt = Range("B10").Value / 100 'In B10 akt. Wert der Bildlaufleiste
Sleep (dt)
DoEvents 'Das war die entscheidende Methode!!!! Danke, Andreas !!!!
Wend
End Sub
Sub Sleep(dt As Double)
Dim t, startzeit As Double
startzeit = Timer
Do
t = Timer
Loop While t - startzeit < dt
End Sub
Sub Stopp()
blnAbbruch = True
End Sub
Sub initA1()
Stopp
Range("A1").Value = 0
End Sub
--------------------------------------------
Ich wünsche Dir weiterhin einen
so "guten Daumen" im Programmieren.
Du bist eine echte Hilfe.
Viele Grüße
Peter