|
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.
|
