Lors de la programmation d'une application en Visual Basic 6 ( VB6 ), il peut parfois être utile de mettre en pause un sous-programme et d'attendre jusqu'à ce que l'utilisateur appuie sur un bouton, comme obligeant l'utilisateur à lire un pop up case et cliquez sur "Ok" avant de continuer. Vous pouvez mettre en pause un sous-programme et d'attendre une pression sur un bouton en plaçant la méthode " DoEvents " à l'intérieur d'une boucle qui ne se verrouille pas l'ordinateur comme la méthode " d'attente " . Instructions
1

Ouvrez le fichier source VB6 dans un éditeur tel que Microsoft Visual Basic.
2

déclarer une variable booléenne globale à suivre si le bouton a été pressé en ajoutant le code suivant en haut de votre formulaire:

Option Explicit

publique ButtonIsClicked As Boolean
3

initialiser la valeur de la " ButtonIsClicked « variable au début de votre routine en ajoutant le code suivant:

ButtonIsClicked = false
4

Appelez la méthode à l'intérieur d'une boucle "while" attendre jusqu'à ce que le bouton a " ) DoEvents ( " été pressé en ajoutant le code suivant dans votre routine :

Button by

Bien ButtonIsClicked = false

Application.DoEvents ()

End While

La méthode " DoEvents " traite les messages Windows existants, comme un clic de bouton . . La boucle continue à augmenter jusqu'à ce que le bouton est cliqué
5

Ouvrez le Form Designer graphique , double- cliquez sur le bouton, l'utilisateur doit cliquer et ajoutez le code suivant :

ButtonIsClicked = true
6

Enregistrez le fichier VB6, compiler et exécuter le programme à exécuter votre routine modifiée.