timer i API kald men det duer ikke i en class file
'------------------------------------------ Module1 ------------------------------------------ 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
Dim lCount As Long
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) lCount = lCount + 1 Form1.Caption = lCount End Sub '------------------------------------------ Module1 ------------------------------------------
'------------------------------------------ Form1 ------------------------------------------ Private Sub Form_Load() SetTimer Me.hwnd, 0, 1, AddressOf TimerProc End Sub
Private Sub Form_Unload(Cancel As Integer) KillTimer Me.hwnd, 0 End Sub '------------------------------------------ Form1 ------------------------------------------
Og det er rigtigt som sjh siger! Du er NØDT til at have et Modul, der indeholder den funktion som timeren skal kalde men der er ikke noget, der hindrer at du kalder SetTimer og KillTimer fra klasse modulet!
Jeg ville bare gerne vide om man kan få tids kontrol eller andre kontroller til at virke inde i en class fil uden at man også skal have form/moduler eller andre ting i brug,,,, get it ?
Jepper! Men det som du siger kan ikke lade sig gøre! Du kan selvfølgelig lave et dll, der ved siden af kan de ting du skal bruge og så smider events når du skal bruge dem!
hvis du bruger "ActiveX Document DLL" kan du godt bruge en timer. :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.