Основы офисного программирования и язык VBA


Пример 6.13


Option Explicit

'Модуль Таймер1

'Глобальная информация

Public Counter As Long 'Счетчик числа вызовов Callback функции

Public MyTimer As New ВашТаймер

Public Sub Start1()

MyTimer.ИнтервалТаймера = 5000

MyTimer.СоздатьТаймер

End Sub

Public Sub Finish1()

MyTimer.УдалитьТаймер

End Sub

Public Sub TimerProc(ByVal HandleW As Long, ByVal msg As Long, _

ByVal idEvent As Long, ByVal TimeSys As Long)

'Функция обратного вызова. Вызывается при обработке сообщения WM_Timer,

'посылаемого таймером, созданным процедурой SetTimer

Counter = Counter + 1

Debug.Print "Hi", Counter

End Sub




Начало  Назад  Вперед



Книжный магазин