Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Постоянно работающий таймер / 3 сообщений из 3, страница 1 из 1
28.03.2006, 14:59:06
    #33629882
TD6370
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Постоянно работающий таймер
Можно ли что бы в программе постоянно работал один таймер, вне зависимости от того в какой форме ты находишся?
...
Рейтинг: 0 / 0
28.03.2006, 15:35:02
    #33630011
Постоянно работающий таймер
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Declare Function SetTimer Lib "user32" ( _
  ByVal hwnd As Long, _
  ByVal nIDEvent As Long, _
  ByVal uElapse As Long, _
  ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" ( _
  ByVal hwnd As Long, _
  ByVal nIDEvent As Long) As Long

Private lng As Long

Sub TimerProc( _
  ByVal hwnd As Long, _
  ByVal lngMsg As Long, _
  ByVal lngID As Long, _
  ByVal lngTime As Long)
    MsgBox "Test"
End Sub

Sub StartTimer()
    lng = SetTimer( 0 ,  0 ,  10000 , AddressOf TimerProc)
End Sub

Sub EndTimer()
    If lng <>  0  Then
        KillTimer  0 , lng
    End If
End Sub
...
Рейтинг: 0 / 0
28.03.2006, 17:26:36
    #33630417
TD6370
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Постоянно работающий таймер
Спасиб
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Постоянно работающий таймер / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]