Совет 182. Реализация функции «ожидания» в VB
Здесь мы покажем, как можно реализовать функцию ожидания в VB. Вначале поместите на форму таймер (Timer1) и установите его свойство Interval=0 и свойство Enabled=False.
Для тестирования процедуры добавьте две метки (Label1 и Label2) и командную кнопку (Command1) к форме. Напишите следующую подпрограмму и код события Timer для таймера:
Листинг 1.
Public Sub Wait(seconds)
' включение таймера
Timer1.Enabled = True
'установка интервала для таймера
Me.Timer1.Interval = 1000 * seconds
While Me.Timer1.Interval > 0
DoEvents
Wend
' выключение таймера
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 0
End Sub
Теперь можете использовать функцию Wait везде, где требуется какая-либо задержка, например:
Листинг 2.
Private Sub Command1_Click()
Label1.Caption = Now
Wait (5)
Label2.Caption = Now
End Sub
