MyTetra Share
Делитесь знаниями!
Надпись (Label) - Мигаем несколько раз
19.07.2018
07:05
Раздел: VBA - Access - msa.polarcom.ru - 07 Элементы Управления


Надпись (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




Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования