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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы