Таймер обратного отсчёта останавливается после первого тика - Visual Basic .NET
Формулировка задачи:
Здравствуйте!
Проблема:
не стартует таймер, не могу понять, где ошибка в цикле. Проходит одна секунда и таймер останавливается.Решение задачи: «Таймер обратного отсчёта останавливается после первого тика»
textual
Листинг программы
Private cas As Integer = 59 Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Timer1.Interval = 1000 displayCas.Text = cas.ToString Timer1.Start() End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick If cas > 0 Then cas -= 1 displayCas.Text = cas Else Timer1.Stop() displayCas.Text = "bla-blaa-blaaa!" MessageBox.Show("bla-blaa-blaaa", "bla-blaa-blaaa!") Me.Close() End If End Sub