Тема: Вывод на форму обратного отсчета времени
Господа, не хотел беспокоить, но видно самому не разобраться.
Необходимо на форме (на label) выводить посекундно время начиная с некоторого заданного значения до нуля. Когда время истечет, форму необходимо закрыть. Таймер должен запускаться командной кнопкой на той же форме. Пытаюсь делать это через Application.OnTime, но время на метке не изменяется ну и форма не закрывается. Нашел код подобной задачи для Excel и пытался адаптировать его для Word, но без результатно. Вот этот код:
Private Sub CommandButton1_Click()
minut = 0
secund = 3
vremya = TimeValue("00:" & minut & ":" & secund & "")
tmr
Application.OnTime Now + TimeValue("00:00:01"), "Module1.tmr"
End Sub
Это Module1
Public vremya As Date, minut As Variant, secund As Variant
Sub tmr()
UserForm1.Label1.Caption = Format(vremya, "nn:ss")
vremya = vremya - TimeValue("0:00:01")
If vremya > 0 Then
Application.OnTime Now + TimeValue("00:00:01"), "tmr"
Else
Unload UserForm1
End If
End Sub
И как, кстати, остановить этот таймер?
Заранее благодарен