Private duree As Long, depart As Long Private Sub Command1_Click() duree = 12 depart = Timer Label1.Caption = "restent " & duree & " secondes" Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Dim D As Long D = duree - (Timer - depart) Label1.Caption = "restent " & D & " secondes" If D <0 Then Timer1.Enabled False End Sub
L_Rebour = (TimerPrepar.Interval / ProgressBar.Value) * ProgressBar.Value - 100
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionL_Rebour = (TimerPrepar.Interval / ProgressBar.Value) * (ProgressBar.Value - 100)
Private Sub TimerProgress_Timer() ProgressBar.Value = ProgressBar.Value + 1 On Error Resume Next L_Rebour = CInt(CStr(TimerPrepar.Interval / ProgressBar.Value) * (ProgressBar.Value - 100)) L_Rebour = Conversion(L_Rebour) If ProgressBar.Value 100 Then MsgBox "": TimerProgress.Enabled False End Sub Private Function Conversion(Durée As Long) As String Dim Temps As Long, Heures As Integer, Minutes As Integer, Secondes As Integer Temps = Durée ' Temps en secondes Secondes = Temps Mod 60 Temps = (Temps - Secondes) \ 60 ' Temps en minutes Minutes = Temps Mod 60 Heures = (Temps - Minutes) \ 60 Conversion = Heures & " heu " & Minutes & " min " & Secondes & " sec." End Function...