Таймер в процессе без форм

[Qubicz]

Нужно в проекте без форм с модулем впихнуть таймер для последующего опроса клавиатуры. пробовал CreateTimerQueueTimer из ApiGuide, проект выполняется в момент и благополучно завершается, хотя таймер создан... Можно конечно Do и Loop, но грузит процессор даже с DoEvents.
Что можете посоветовать, чтобы решить эту проблему?

[Faust]

Предварительно TimerQueue создавал?

[Qubicz]

Нет, я создание таймера в main запихнул...
А предварительно это как?(ссылку, пример)

[Sebas]

а нельзя создать класс, в котором :

Dim WithEvents T as timer

?

[Q2W]

Видел где-то таймер как раз для таких целей, пошарься по этому сайтику - вроде это здесь.

[Qubicz]

Спасибо за помощь буду разбираться и искать

[Faust]

Где-то так попробуй:

Код: Выделить всё


Private Declare Function CreateTimerQueue Lib "kernel32.dll" () As Long
Private Declare Function CreateTimerQueueTimer Lib "kernel32.dll" (ByRef phNewTimer As Long, ByVal TimerQueue As Long, ByVal Callback As Long, ByVal Parameter As Long, ByVal DueTime As Long, ByVal Period As Long, ByVal Flags As Long) As Long
Private Declare Function DeleteTimerQueue Lib "kernel32.dll" (ByVal TimerQueue As Long) As Long
Private Declare Function DeleteTimerQueueTimer Lib "kernel32.dll" (ByVal TimerQueue As Long, ByVal Timer As Long, ByVal CompletionEvent As Long) As Long

Private C As Byte

Sub Main()
Private pQ As Long, pT As Long
pQ=CreateTimerQueue()
CreateTimerQueueTimer pT, pQ, AddressOf TimerProc, 0&, 0, 1000, 0
C=60
While C>0
DoEvents
Wend
Debug.Print "BOOM!"
DeleteTimerQueueTimer pQ, pT, 0&
DeleteTimerQueue pQ
EndSub
Public Sub TimerProc()
Debug.Print Counter & " seconds to explode..."
C=C-1
End Sub