VPF::Работа с таймером - Форум программистов

Vell

Дата 7.9.2004, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 23.3.2004
Где: Калининград

Репутация: нет
Всего: нет

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

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

boevik

Дата 8.9.2004, 08:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

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:01

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Akina

Дата 8.9.2004, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Вышеприведенный код - для 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 - выключить таймер... установлено опытным путем...

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »