Visual Basic FAQ

Задержка с возможностью задачи времени.

'Форма появиться на экране по истечению заданного Вами промежутка
Option Explicit
Dim strSecond As String

Private Sub Form_Load()
strSecond = InputBox _
    ("Введите число, лучше поменьше", _
    "Введите количество секунд для задания задержки")
If IsNumeric(strSecond) Then
    Call Delay(strSecond)
Else
    Call Error
End If
End Sub

Private Sub Delay(strSecond)
Dim lngNow As Long
lngNow = Timer
Do While Timer < lngNow + strSecond
DoEvents
Loop
End Sub

Private Sub Error()
strSecond = MsgBox _
    ("Повторите ввод", vbCritical, "Ошибка")
Form_Load
End Sub

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