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


Пример создания, работы и удаления таймера - часть 2


End Sub

Public Sub Finish() 'Удаляет таймер If IdEv > 0 Then Call KillTimer(0&, IdEv) Debug.Print "Удален Таймер: Идентификатор = ", IdEv IdEv = 0 End If

End Sub

Пример 6.11.

Комментариев, приведенных в тексте, полагаем достаточно для понимания всех деталей. Приведем еще результаты печати, периодически появляющиеся в окне отладки. Следует только сказать, что дважды были поочередно нажаты кнопки Start и Finish:

Создан Таймер: Идентификатор =32578 Hi 1 Hi 2 Hi 3 Удален Таймер: Идентификатор =32578 Создан Таймер: Идентификатор =32573 Hi 1 Hi 2 Hi 3 Hi 4 Удален Таймер: Идентификатор =32573

Заметьте, в нашей реализации кнопки нужно нажимать поочередно, поскольку хранится только последнее значение идентификатора таймера, так что если подряд нажать несколько раз кнопку Start, то будет создано несколько таймеров, но при последующих нескольких нажатиях кнопки Finish будет удален только один, последний созданный таймер и печать в окне отладки будет продолжаться.




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



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