Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Работа с таймером

Автор: Vell 7.9.2004, 19:54

Так как я не особо одарен в VB, мне интересно как работает таймер. А именно, мне надо сделать, чтобы каждый отрезок времени (например каждую минуту) выскакивало окно MsgBox
"...", ....... Вообще, если так можно поделитесь пожалуйсто мыслями, советами и кодами.

P.S. Спасибо за ответы на предыдущую тему.

Автор: boevik 8.9.2004, 08:06

Код


Private Sub Form_Load()
Timer1.Interval = 60000  
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
MsgBox "Timer " & Now
End Sub

Автор: Akina 8.9.2004, 08:58

boevik
Зависнет... в общем случае - если про...ть нажатия на ОК в MsgBox...

Лучше так:

Код

Private InTimer as Boolean

Private Sub Form_Load()
InTimer = False
Timer1.Interval = 60000 
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If InTimer Then Exit Sub
InTimer = True
MsgBox "Timer " & Now
InTimer = False
End Sub

Автор: Akina 8.9.2004, 10:05

Вышеприведенный код - для VB.

В случае VBA:

Код

Private InTimer As Boolean

Private Sub Form_Load()
Me.TimerInterval = 60000
InTimer = False
End Sub

Private Sub Form_Timer()
If InTimer Then Exit Sub
InTimer = True
MsgBox "Timer " & Now
InTimer = False
End Sub

Добавлено @ 10:10
Примечание - в VBA (во всяком случае в хелпе к Асксессу 2002) имеется неоднозначность:

Цитата

Значением свойства Интервал таймера (TimerInterval) является целое число типа Long Integer в интервале от 0 до 2 147 483 647.

Цитата

Значение свойства Интервал таймера (TimerInterval) формы определяет интервал времени между событиями «Таймер» (Timer) (в миллисекундах). Допустимые значения интервала составляют от 0 до 65 535 миллисекунд. Значение 0 свойства Интервал таймера (TimerInterval) отменяет возникновение событий «Таймер» (Timer).

Скорее всего правилен симбиоз - от 0 до 2 147 483 647, причем 0 - выключить таймер... установлено опытным путем...