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. Использование таймера для оценки прошедшего времени и  создания состояния ожидания



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