Ma boucle ne marche pas
Avram
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour à tous
regardez ce code svp:
Dim i As Integer
Private Sub chrono_Timer()
i = 30
Do
temps.Text = i - 1
Loop While temps.Text = 0
If chrono = False Then
End
End If
End Sub
Private Sub temps_Change()
chrono.Enabled = True
chrono.Interval = 1000
End Sub
Mon voeux est qu'il s'exécute comme un minuteur, c'est-à-dire que dans le textbox le décompte s'affiche. Parce que celui-ci fait le décompte jusqu'à 59 et s'arrête.
Aidez MOI de grâce!
regardez ce code svp:
Dim i As Integer
Private Sub chrono_Timer()
i = 30
Do
temps.Text = i - 1
Loop While temps.Text = 0
If chrono = False Then
End
End If
End Sub
Private Sub temps_Change()
chrono.Enabled = True
chrono.Interval = 1000
End Sub
Mon voeux est qu'il s'exécute comme un minuteur, c'est-à-dire que dans le textbox le décompte s'affiche. Parce que celui-ci fait le décompte jusqu'à 59 et s'arrête.
Aidez MOI de grâce!
2 réponses
Bonjour,
Voilà un exemple de chrono.
Le chrono se lance à l'ouverture du formulaire et ferme le formulaire en fin de décompte.
;o)
Voilà un exemple de chrono.
Le chrono se lance à l'ouverture du formulaire et ferme le formulaire en fin de décompte.
Option Explicit Dim i As Integer Private Sub chrono_Timer() Dim tps As Integer tps = i - 1 temps.Text = tps If tps = 0 Then Unload Me End End If i = tps End Sub Private Sub Form_Load() i = 30 chrono.Interval = 1000 chrono.Enabled = True End Sub
;o)
