Программа 16.10. Сделать паузу...

Программа 16.10. Сделать паузу на заданное количество секунд в работе приложения

Public Sub doPause(seconds As Integer)

Dim var_timeStart, var_timeCurrent

Dim ftimeOut As Boolean

var_timeStart = Time() ' Время начала паузы Do

' Передать управление другим процессам операционной системы

DoEvents

var_timeCurrent = Time() ' Текущее системное время

ftimeOut = _

CDate(var timeCurrent - var timeStart) >=

CDate(TimeSerial(0, 0, seconds))

Loop Until ftimeOut End Sub

Содержание раздела

---

---