Arreter une boucle

Salut!

 -J'ai par exemple une boucle :
   Dim i as long
   Dim z as long
     
        for i=0 to 1000
                z=i
        next i

Comment sortir de cette boucle l'arreter ,si on appuie sur un autre button.


-Merci de m'aider

salut,

Je suppose que la sortie de ta boucle est aléatoire?
Tu dois te servir de la commande doEvent pour ne pas figer ton application et ainsi avoir acces à un autre bouton par exemple...
Bon courage

S.L.B.

---

Salut,

Il suffit d'ajouter un Exit For à la condition que l'on appuis sur le bouton. Et aussi un Doevents pour pouvoir appuyer dessus (cf la réponse de lillith)

__________
  Kenji

J'ai utilisé le Doevents , mais cela marche
 
  -J'ai eu un probléme avec Inet à savoir il ne récupére pas le code html d'une page web en intégrale , alors j'ai du utilisé le .NET pour afficher le code HTML sous VB6.

Où ajouter Exit for

Tout a été dit mais un peu dans le désordre.

Reprennons :
- Il faut mettre un DoEvents dans le code de la boucle pour que la boucle ne prenne pas tout le temps d'execution et laisse à l'application le temps de traiter d'autre évènements comme le click sur un bouton.
- dans ta boucle, pour en sortir, il faut mettre un Exit For. La sortie se fera généralement sur condition, donc ça sera du style If Condition then Exit For.
- Ensuite il faut que la condition soit remplie à un moment donné sur le click d'un bouton par exemple.

Ca pourrait donner par exemple :

Public MaCondition as boolean 'déclaration en variable globale

Public sub toto()
    ........
    MaCondition = False
    For i=0 to 1000
        ........
        DoEvents
        If MaCondition Then Exit For
    Next

Public sub button_click(.....)
    MaCondition = True
End Sub


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

Juste un petit ajout à ce que te proposes casy :
Ne pas oublier de mettre "MaCondition = False" avant le For, car si tu dois lancer ta boucle plusieurs fois de suite, tout arrêt d'une boucle provoquera la sortie de la boucle suivante après la 1ere itération.

Besoin de lunettes Kristof
Je l'avis mis


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

Merci pour les réponses

 mais mon application se fige même si je place 4 DoEvents

 -Je croix que c'est du au .NET 

Sorry !!