Bij het programmeren van een applicatie in Visual Basic 6 ( VB6 ) kan het soms nuttig zijn om een subroutine pauze en wacht tot de gebruiker op een knop , zoals het eisen van de gebruiker te lees een pop-up box en klik op "Ok " voordat u verdergaat. U kunt een subroutine pauzeren en wachten op een druk op de knop door het plaatsen van de " DoEvents " -methode in een lus , die niet lock up op de computer , zoals de " Wait " -methode . Instructies
1 Open het VB6 bronbestand in een editor zoals Microsoft Visual Basic . Kopen van 2 Verklaar een globale boolean variabele om bij te houden wanneer de knop is door toevoeging is ingedrukt de volgende code aan de bovenkant van uw formulier : Option Explicit Public
ButtonIsClicked zoals Van Boole
3 Initialiseer de waarde van de " ButtonIsClicked " variabele aan het begin van uw subroutine door het toevoegen van de code :
ButtonIsClicked = false
4 Roep de methode in een lus "terwijl" te wachten tot de knop heeft " ) DoEvents ( " door toevoeging van de volgende code in je subroutine werd ingedrukt : Button
Terwijl ButtonIsClicked = false Application.DoEvents ( ) op End
Terwijl
De " DoEvents " -methode verwerkt alle bestaande Windows-berichten , zoals een knop klikken . . De lus zal blijven gaan totdat de knop wordt geklikt
5 Open de GUI Form Designer , dubbelklikt u op de knop de gebruiker nodig heeft om te klikken en voeg de volgende code :
ButtonIsClicked = true
6 Sla het bestand VB6 , compileren en uitvoeren van het programma om uw gewijzigde subroutine uitgevoerd .
|
