Πώς να Παύση Υπορουτίνα Μέχρι πατηθεί κάποιο κουμπί σε VB6

Όταν προγραμματίζετε μια εφαρμογή σε Visual Basic 6 ( VB6 ) μπορεί μερικές φορές να είναι χρήσιμο να διακόψετε μια υπορουτίνα και περιμένετε έως ότου ο χρήστης πατήσει ένα κουμπί , όπως απαιτείται από το χρήστη να διαβάσει ένα pop up παράθυρο και κάντε κλικ στο κουμπί "ΟΚ" για να συνεχίσετε. Μπορείτε να διακόψετε μια ρουτίνα και να περιμένουν για το πάτημα ενός κουμπιού με την τοποθέτηση της μεθόδου " DoEvents " μέσα σε ένα loop , η οποία δεν κλειδώσει τον υπολογιστή , όπως τη μέθοδο της " Wait" . Οδηγίες
Η

1 Ανοίξτε το αρχείο προέλευσης VB6 σε έναν επεξεργαστή κειμένου , όπως το Microsoft Visual Basic . 2

κηρύξει μια παγκόσμια boolean μεταβλητή για να παρακολουθείτε αν το κουμπί έχει πατηθεί με την προσθήκη τον ακόλουθο κώδικα στο επάνω μέρος της φόρμας σας :

Option Explicit

Δημόσια ButtonIsClicked Όπως Boolean
εικόνων 3

προετοιμασία της τιμής του « ButtonIsClicked " μεταβλητή κατά την έναρξη της υπορουτίνας σας με την προσθήκη του κώδικα :

ButtonIsClicked = false
Η 4

Καλέστε τους " DoEvents ( ) " μέθοδο μέσα σε ένα βρόχος "while" να περιμένετε μέχρι το κουμπί έχει πατήθηκε κατά την προσθήκη του παρακάτω κώδικα στη ρουτίνα σας :

Button

Ενώ ButtonIsClicked = false

Application.DoEvents ( )

End Ενώ

Η μέθοδος " DoEvents " επεξεργάζεται τα υπάρχοντα μηνύματα των Windows , όπως ένα κουμπί κλικ. . Ο βρόχος θα συνεχίσει να πηγαίνει μέχρι πατηθεί το κουμπί
5

Ανοίξτε τη φόρμα GUI Designer , κάντε διπλό κλικ στο πλήκτρο ο χρήστης πρέπει να κάνει κλικ και προσθέστε τον ακόλουθο κώδικα :

ButtonIsClicked = true
Η 6

Αποθηκεύστε το αρχείο VB6 , την κατάρτιση και την εκτέλεση του προγράμματος για να τρέξει τροποποιημένο υπορουτίνα σας .
Η
εικόνων