TopPicLogo TopPicText

Надпись (Label) - Мигаем несколько раз


Можно заставить пользователя обратить внимание на некую надпись "помигав" ею (в данном случае название надписи = lblTabToS).
Варианты с изменением размера и цвета шрифта и фона точно будут эффективны, а тут просто мигаем 12 раз при открытии формы ...

В модуле формы обьявляем:

Option Explicit

Private iBlinkCount As Integer 'счётчик "миганий" по таймеру


При загрузке формы ставим интервал таймера:

Private Sub Form_Load()
'Событие загрузка формы
    Me.TimerInterval = 300
End Sub


На событие Timer вешаем:

Private Sub Form_Timer()
'Для "красоты" мигаем надписью lblTabToS ...
    Me!lblTabToS.Visible = Not Me!lblTabToS.Visible
    iBlinkCount = iBlinkCount + 1
    If iBlinkCount > 12 Then 
        Me.TimerInterval = 0 'Хватит! = Отмена таймера
        Me!lblTabToS.Visible = True
    End If
End Sub

Можно заставить "мигать" по определённому событию : Нажатие кнопки "cmdBlink"

Private Sub cmdBlink_Click()
    iBlinkCount = 0
    Me.TimerInterval = 300
End Sub



Вариант с плавным уменьшением частоты миганий:

Private Sub Form_Timer()
'Для "красоты" мигаем надписью lblTabToS ...
'(с плавным уменьшением частоты)
Dim ti As Integer               'Интервал
Const iBlinkMax As Integer = 25 'Max число миганий
    Select Case iBlinkCount
        Case 0 To 4
            ti = 100
        Case 8 To 16
            ti = 200
        Case Else
            ti = 300
    End Select
    Me.TimerInterval = ti
    Me!lblTabToS.Visible = Not Me!lblTabToS.Visible
    iBlinkCount = iBlinkCount + 1
    If iBlinkCount > iBlinkMax Then 'Хватит
        Me.TimerInterval = 0
        Me!lblTabToS.Visible = True
    End If
End Sub

Назад ToTop
L.E. 24.12.2012
Рейтинг@Mail.ru