Dans ta form, au moment où tu as besoin de démarrer ton Timer:
Dim Delai As Long
Debug.Print Now
Command1.Enabled = False
Delai = Val(Text1)
If (Delai <= 1000) Then Delai = 1000 '1 seconde
TimerHnd1 = SetTimer(Form1.hwnd, 1, Delai, AddressOf TimerProc)
Et dans un module tu met:
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
Public TimerHnd1 As Long
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Select Case uElapse
Case TimerHnd1
'webBrowser.refresh
If (TimerHnd1 > 0) Then
KillTimer Form1.hwnd, TimerHnd1
TimerHnd1 = 0
'Else
End If
End Select
End Sub
Puisque ce code utilise l'API, tu DOIT tuer ton Timer AVANT de sortir de ton application, bien sûr si tu veux que ton Timer "sonne" à chaque 2 minutes, tu lui passe 120000 au démarrage et tu enlève le KillTimer dans TimerProc, sinon il ne "sonnera" qu'une fois.
cf : http://www.allapi.net
-------------------------------
Réponse au message :
-------------------------------
Je suis en train de faire un logiciel qui refresh internet avec le Webbrowser et je suis juste capable qu'il le refresh aux 1 minutes. Le timer accepte pas deux minutes (120000) ni plus.
Il y a tu une façon de mettre deux minutes et plus ????
ShaoKhan
|