Vid programmering av ett program i Visual Basic 6 ( VB6 ) kan det ibland vara bra att pausa en subrutin och vänta tills användaren trycker på en knapp, till exempel att användaren måste läsa en pop up rutan och klicka " Ok " innan du fortsätter . Du kan pausa en subrutin och vänta på en knapptryckning genom att placera " DoEvents " metoden i en slinga , som inte låser upp datorn som " Wait " metoden . Instruktioner
1
Öppna VB6 källfilen i en editor som Microsoft Visual Basic .
2
Deklarera en global boolean variabel för att spåra om knappen har tryckts genom tillsats följande kod längst upp i formuläret :
Option Explicit
Public ButtonIsClicked As Boolean
3
initiera värde " ButtonIsClicked " variabel i början av din subrutin genom att lägga in koden :
ButtonIsClicked = false
4
Ring " DoEvents ( ) " metoden inuti en " tag " loop vänta tills knappen har pressats genom att lägga till följande kod i din subrutin :
Button
ButtonIsClicked = false
Application.DoEvents ( ) katalog
Slut Medan
" DoEvents " metoden behandlar alla befintliga Windows-meddelanden , till exempel en knapp klick . . Slingan kommer att fortsätta gå tills du klickar på knappen
5
Öppna GUI Form Designer , dubbelklicka på knappen användaren behöver klicka och lägg till följande kod :
ButtonIsClicked = true
6
Spara VB6 fil , kompilera och köra programmet för att köra modifierad subrutin .
