Изменение цвета 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5