Есть CheckBox и TextBox. Надо, чтобы при щелчке по чекбоксу проверялось его значение (true, false). Если значение true, надо чтобы кокое-то действие повторялось с определённым интервалом (указан в секундах, в textbox) до тех пор, пока не изменится статус checkbox. При этом, если во время cheсkbox = true изменили значение в textbox, необходимо, чтобы этот интервал изменился.
Я сделал так
- Код: Выделить всё
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Text1_Change()
Timer1.Interval = Int(Text1.Text)
End Sub
Private Sub Check1_Click()
If Check1.Value = True Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Timer()
Beep
End Sub
Работать оно не хочет. Как правильно сделать?
