Основы офисного программирования и язык 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

Пример 6.13.

Закрыть окно






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