Interrompre l'exécution d'une boucle

Soyez le premier à donner votre avis sur cette source.

Vue 19 551 fois - Téléchargée 457 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
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.
Messages postés
23
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
10 janvier 2003

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.