dotNETportal.cz

Děkuji za inspirativní kód.

Takto ho lze nastavit pouze v sekundách, ale mě to naprosto vyhovuje (potřebuji pauzu 10-15 min.).

Vracím pro ostatní upravený kód.

' pro demonstraci byla přidána dvě tlačítka a TextBox
' CommandButton1 - "Pauza"
' CommandButton2 - "Konec"
' TextBox1 - pro informování o stavu ...

Private Sub CommandButton1_Click()
' Tlačítko pro spuštění pauzy

TextBox1.Text = TextBox1.Text & Chr(10) & "Čekám"
Dim PauseTime, Start, Finish, TotalTime
PauseTime = 5   ' Čas pauzy.
Start = Timer   ' Spuštění časovače.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Zastavení časovače.
TotalTime = Finish - Start ' Calculate total time.
TextBox1.Text = TextBox1.Text & Chr(10) & "Dočkal jsem se"

End Sub

Private Sub CommandButton2_Click()
' tlačítko ukončující aplikaci
    Unload Me
End Sub

Private Sub UserForm_Activate()
    TextBox1.Text = "Já"
End Sub