Здесь мы покажем, как можно реализовать функцию ожидания в VB. Вначале поместите на форму таймер (Timer 1) и установите его свойство Interval= 0 и свойство Enabled = False. Для тестирования процедуры добавьте две метки (Labell и Label2) и командную кнопку (Command 1) к форме. Напишите следующую подпрограмму и код события Timer для таймера:
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 везде, где требуется какая-либо задержка, например:
Private Sub Command1_Click() Label1.Caption = Now Wait (5) Label2.Caption = Now End Sub
Что-то не получается? Не понятна какая-то часть кода? Напишите комментарий об этом и мы обязательно Вам все объясним! Обязательно напишите отзыв о программе / учебнике. Для выражения благодарностей есть кнопка:
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
