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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
| Private Declare Function GetTickCount Lib "Kernel32" () As Long
Dim Arret As Boolean
Sub Minuterie(Milliseconde As Long)
Dim Fin As Long
Fin = GetTickCount() + Milliseconde
Do While GetTickCount() < Fin And Arret = False
'décompte dans le label
LblClock.Caption = Format((Fin - GetTickCount()) / 1000, "00:00")
DoEvents
Loop
End Sub
Private Sub UserForm_Initialize()
'label à zéro
LblClock.Caption = "00:00"
End Sub
Private Sub CmdArret_Click()
'arrête le décompte
Arret = True
End Sub
Private Sub CmdMarche_Click()
'vide le label
LblClock.Caption = ""
'autorise le décompte
Arret = False
'pour le test, 5 minutes
Minuterie 500000
End Sub
Private Sub CmdReset_Click()
'label à zéro
LblClock.Caption = "00:00"
'arrête le décompte
Arret = True
End Sub |
Partager