Конференция VBStreets - Преглед на нишката - събитие с време

Целият вкус на програмирането!

• Списък на форумите‹Свързани технологии‹VBA
• Променете размера на шрифта

• ЧЗВ
• вход

Временно събитие

Временно събитие

неясен флаг като булев

частен подтаймер
if flag = true тогава
.
.
.
Application.OnTime Now + TimeValue ("00:00:01"), "Таймер"
край ако
край под

Публична подменюта StartTimer
флаг = вярно
таймер
край под

Публична подстанция StopTimer
флаг = Невярно
край под

Момчета двойка, притъпявам вашата
правя така

Частна подработна книга_отворена ()
Application.OnTime Now + TimeValue ("00: 00: 5"), "Tim ()"
Крайна под

Public Sub Tim ()
заПРОВЕРКА.Показване
Крайна под

пише, че няма такъв макрос 'Tim ()'
простете задника, но опишете в пример как се прави !

---