Contdownanzeige
30.06.2004 13:32:10
FLO
ich möchte in einer Dialogbox die noch verbleibende Zeit bis zum Ende darstellen.
Der Anwender soll die Möglichkeit erhalten den Countdown abzubrechen.
Folgende Sub funktioniert, ist aber nicht schön, da die Dialogbox
bei jedem Durchlauf neu aufgerufen wird und 1 Sekunde stehen bleibt.
Sub ContdownAnzeiger()
Dim Timeout As Single
Dim Countdown As Single
Dim t as Single
Dim exI As Integer
Timeout = Timer + 30
t=1
Do
Countdown = Int(Timeout - Timer)
If Countdown < 0 Then Exit Do
exI = CreateObject("WScript.Shell").popup("Beenden in " & Countdown & " s.", t, "Beenden...")
Loop Until Countdown = 0 Or exI = 1
End Sub
Besser wäre, nur der Inhalt wird aktualisiert und die Nachricht geht bei Countdown durch den Anwender über Button. Wer hat da eine Idee?