Access. Программирование на VBA
Объект Timer
В статье приводится код модуля класса cTimer. Данный модуль класса используется, во-первых, как секундомер для учета времени, а во-вторых, для создания "состояния ожидания", чтобы приостановить выполнение кода на заданное число секунд. Код модуля класса cTimer приведен ниже:
Option Explicit
Private msngStart As Single
Public Sub Wait(lngSeconds As Long)
Do Until Timer > msngStart + IngSeconds
DoEvents Loop
End Sub
Public Sub StartTimerO
BsngStart = Timer
End Sub
Public Function ElapsedTime() As Long
Dim sngTimerStop As Single
sngTimerStop = Timer
ElapsedTime = sngTimerStop - asngStart
msngStart = 0 sngTimerStop = 0
End Function
Объект frmTimer в базе данных "Creating Objects with Class Modules, mdb" иллюстрирует использование таймера для определения промежутка времени и создания "состояния ожидания" (рис. 10).
РИСУНОК 10. Использование таймера для оценки прошедшего времени и создания состояния ожидания
