webbrowser1.Navigate App.path & "page1.html"
var1 = Timer + 300
Do While var1 > Timer
DoEvents
Label8.Caption = Int(var1 - Timer)
Loop
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Static toto As Long
Dim reste As Integer, duree As Integer
duree = 5 ' ===>> pour 5 secondes ==>> pour 10 minutes, c'est 600 sec qu'il te faut mettre
If toto = 0 Then toto = Timer - duree
If Abs(Timer - toto) >= duree Then
MsgBox "remplace cette msgbox par les instructions que tu veux exécuter"
toto = Timer
Exit Sub
End If
' les lignes qui suivent ne sont à écrire que si
' tu veux afficher le temps restant dans un label
reste = Int(duree - Abs(Timer - toto))
If reste >= 0 Then
Label1.Caption = "Reste(nt) : " & Int(duree - Abs(Timer - toto)) & " seconde(s)": DoEvents
End If
End Sub