Мигание

[Apis.NET]

Вопрос как сделать эфект мигания?
Я вот попытался.

Код: Выделить всё

Private Sub Timer1_Timer()
    If (Label1.Caption = 7) Then
        Label1.BackColor = RGB(255, 0, 0)
    End If
End Sub

но чета дальше дело не пошло.
Спасибо!

[abs]

Не совсем понял почему именно Label1.Caption...
Вот... мигает... В Тайере интервал 500

Код: Выделить всё

Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    If (Label1.Caption = 7) Then
        Label1.BackColor = RGB(255, 0, 0)
        Label1.Caption = 8
    Else: Label1.BackColor = RGB(0, 255, 0)
        Label1.Caption = 7
    End If
End Sub


[Алекс]

А зачем изменять Caption

Код: Выделить всё

Private Sub Timer1_Timer()
Static i
If i = 1 Then
  i = 2
  Label1.BackColor = Первый_цвет
Else
  i = 1
  Label1.BackColor = Второй_цвет
End If
End Sub


[Apis.NET]

Я тоже не понял зачем менять Caption, там просто идет проверка

Код: Выделить всё

If (Label1.Caption = 7) Then

если Caption = 7? то блимаем
Спасибо!
А про Else я как то забыл
Алекс
Я вот только не понял а зачем i нужна ?

[LsD85]

А эта i тебе вместо цифры 7.

[SergeySV]

Я тоже не понял зачем менять Caption, там просто идет проверка

Код: Выделить всё

If (Label1.Caption = 7) Then

если Caption = 7? то блимаем
Спасибо!
А про Else я как то забыл
Алекс
Я вот только не понял а зачем i нужна ?

Можно конечно и вообще без переменной обойтись:
if Label1.BackColor = Первый цвет then
Label1.BackColor = Второй цвет
else
Label1.BackColor = Первый цвет
end if

[Apis.NET]

Спасибо !