Изменение цвета Label по таймеру (мигание) - VB
Формулировка задачи:
Подскажите как с помощью таймера можно сделать так:
label в течении 5 секунд белого цвета, через 5 секунд, красного....в общем мигание
Решение задачи: «Изменение цвета Label по таймеру (мигание)»
textual
Листинг программы
Dim k%, i% Private Sub Form_Load() Timer1.Interval = 1 '1000 / 250 Timer1.Enabled = False k = 1 End Sub Private Sub Label1_Click() Timer1.Enabled = Not (Timer1.Enabled) End Sub Private Sub Timer1_Timer() If i * k < k * 127 * (k + 1) Then ' i = i + 1 * k Label1.BackColor = RGB(255, i, i) Else k = k * (-1) End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д