Comment sortir d'une boucle (Do loop, for next ...)
Signaler
jmdelhalle
zizouhiba
- Messages postés
- 24
- Date d'inscription
- mercredi 22 janvier 2003
- Statut
- Membre
- Dernière intervention
- 8 janvier 2005
zizouhiba
- Messages postés
- 5
- Date d'inscription
- lundi 15 juin 2009
- Statut
- Membre
- Dernière intervention
- 24 janvier 2016
A voir également:
- Sortir d'une boucle while vba
- Sortir d'une boucle while - Meilleures réponses
- Sortir d'une boucle for - Meilleures réponses
- Forcer la sortie d'une boucle do while - Forum - Visual Basic 6
- Sortir d'une boucle while python ✓ - Forum - Delphi / Pascal
- Sortir d'une boucle while - Forum - C / C++ / C++.NET
- Comment sortir d'un while(1) - Forum - C / C++ / C++.NET
- Sortir d'une boucle while en tapant une touche - Forum - Java
4 réponses
Gobillot
- Messages postés
- 3140
- Date d'inscription
- vendredi 14 mai 2004
- Statut
- Membre
- Dernière intervention
- 11 mars 2019
Exit For pour une boucle For ... Next
Exit Do pour une boucle Do ... Loop
Daniel
Exit Do pour une boucle Do ... Loop
Daniel
jmdelhalle
- Messages postés
- 24
- Date d'inscription
- mercredi 22 janvier 2003
- Statut
- Membre
- Dernière intervention
- 8 janvier 2005
ok merci pour tout
:) JM
:) JM
zizouhiba
- Messages postés
- 5
- Date d'inscription
- lundi 15 juin 2009
- Statut
- Membre
- Dernière intervention
- 24 janvier 2016
Bonjour,
Je voudrait sortir d'une boucle que je lance avec command1 en utilisant command2. J'ai essayé ça mais ça ne marche pas :
Dim fin As Boolean
Private Sub Command1_Click()
Do
Text1.Text = Str(Time)
Loop Until fin = True
End Sub
Private Sub Command2_Click()
fin = True
End Sub
Merci de m'aider.
Je voudrait sortir d'une boucle que je lance avec command1 en utilisant command2. J'ai essayé ça mais ça ne marche pas :
Dim fin As Boolean
Private Sub Command1_Click()
Do
Text1.Text = Str(Time)
Loop Until fin = True
End Sub
Private Sub Command2_Click()
fin = True
End Sub
Merci de m'aider.
zizouhiba
- Messages postés
- 5
- Date d'inscription
- lundi 15 juin 2009
- Statut
- Membre
- Dernière intervention
- 24 janvier 2016
J'ai trouvé la solution :
Il suffisait d'ajouter DoEvents :
Dim Fin As Boolean
Private Sub Form_Load()
Text1.Text = Str(Time)
End Sub
Private Sub Command1_Click()
Fin = False
Do While (Not Fin)
Text1.Text = Str(Time - T1)
DoEvents
Loop
End Sub
Private Sub Command2_Click()
Fin = True
End Sub
Il suffisait d'ajouter DoEvents :
Dim Fin As Boolean
Private Sub Form_Load()
Text1.Text = Str(Time)
End Sub
Private Sub Command1_Click()
Fin = False
Do While (Not Fin)
Text1.Text = Str(Time - T1)
DoEvents
Loop
End Sub
Private Sub Command2_Click()
Fin = True
End Sub