Visual Basic FAQ

Как сделать задержку в программе?
Используем оператор DoEvents.
В данном примере задержка составляет 5 секунд, что можно легко изменить.
Для наглядности задержки, изменяем изображение курсора, с обычного на песочные часы.
Задайте переменной intDelay значение нужной задержки, только не забывайте о типе переменной, чтобы не возникла ошибка переполнения.

Option Explicit

Private Sub Command1_Click()
Dim intSecond As Long
Dim intDelay As Integer
intDelay = 5
intSecond = Timer
Do While Timer < intSecond + intDelay
    Me.MousePointer = 11
    DoEvents
Loop
Me.MousePointer = 0
End Sub

Запись опубликована on 14.12.2008 at 9:00 и размещена в рубрике: Timer. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.