Arreter l'execution pendant une boucle For
fbrt
Messages postés
39
Date d'inscription
lundi 25 février 2002
Statut
Membre
Dernière intervention
16 avril 2005
-
22 avril 2002 à 13:49
fbrt Messages postés 39 Date d'inscription lundi 25 février 2002 Statut Membre Dernière intervention 16 avril 2005 - 22 avril 2002 à 14:45
fbrt Messages postés 39 Date d'inscription lundi 25 février 2002 Statut Membre Dernière intervention 16 avril 2005 - 22 avril 2002 à 14:45
A voir également:
- Arreter l'execution pendant une boucle For
- Erreur d'execution 9 ✓ - Forum Visual Basic 6
- Boucle for c ✓ - Forum C++ & C++ .NET
- Erreur d'exécution 424 ✓ - Forum Visual Basic
- Erreur 424 "Objet requis" ✓ - Forum Visual Basic 6
- Sql boucle for select ✓ - Forum SQL
2 réponses
cs_Cath
Messages postés
27
Date d'inscription
samedi 13 avril 2002
Statut
Membre
Dernière intervention
26 novembre 2005
22 avril 2002 à 14:15
22 avril 2002 à 14:15
Salut,
Pour que le click soit pris en compte pendant la boucle, il faut placer DoEvents entre For et Next.
Par exemple :
Private Sub Command1_Click()
Command1.Tag = "Stop"
End Sub
Private Sub Form_Click()
Dim I As Long
For I = 1 To 2000000
Print Str$(I)
DoEvents
If Command1.Tag = "Stop" Then
Command1.Tag = ""
MsgBox Str$(I)
Exit For
End If
Next
End Sub
A+
Cath
Pour que le click soit pris en compte pendant la boucle, il faut placer DoEvents entre For et Next.
Par exemple :
Private Sub Command1_Click()
Command1.Tag = "Stop"
End Sub
Private Sub Form_Click()
Dim I As Long
For I = 1 To 2000000
Print Str$(I)
DoEvents
If Command1.Tag = "Stop" Then
Command1.Tag = ""
MsgBox Str$(I)
Exit For
End If
Next
End Sub
A+
Cath
fbrt
Messages postés
39
Date d'inscription
lundi 25 février 2002
Statut
Membre
Dernière intervention
16 avril 2005
22 avril 2002 à 14:45
22 avril 2002 à 14:45
Super !!!
Merci beaucoup.
Merci beaucoup.
