Interrompre l'exécution d'une boucle

Soyez le premier à donner votre avis sur cette source.

Vue 19 047 fois - Téléchargée 441 fois

Description

nota : Pour interrompre manuellement une boucle ou un programme qui n'en fini plus, appuyer simultanément sur les touches"ctrl" et "pause".

Voici un exemple pour interrompre une boucle :
- on a deux boutons ("Lancer" et "Arreter").
- on déclare une variable Arret (true ou false).
- on demande l'exécution d'une boucle qui affiche la valeur de x dans le bouton "Lancer"
- on interrompt l'exécution de la boucle en cliquant sur "Arreter".

Source / Exemple :


Dim Arret As Boolean
    
Private Sub Arreter_Click()
    Arret = False
End Sub

Private Sub Lancer_Click()
Arret = True
x = 1
Do While x < 1000000
    Lancer.Caption = x
    If Arret = False Then
        Exit Do
    End If
x = x + 1
DoEvents
Loop
End Sub

Conclusion :


Il ne faut surtout pas omettre la commande "DoEvents", car elle interrompt
la boucle pour savoir si des commandes (clavier ou souris sont envoyées), sans lui, le click sur le bouton "Arreter" n'est pas pris en considération.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Cervomix
Messages postés
23
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
10 janvier 2003
-
merci!
jaco_2004
Messages postés
3
Date d'inscription
samedi 28 août 2004
Statut
Membre
Dernière intervention
31 décembre 2004
-
Nikel, exactement ce qu'il me fallait !

Merci.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.