Τρόπος απενεργοποίησης του Close Button σε Visual Basic 6

Visual Basic 6 δεν περιλαμβάνει έναν τύπο παράθυρο που έχει μια αναπηρία κουμπί κλεισίματος . Θα χρειαστεί να απενεργοποιήσετε το κουμπί κοντά , αν θέλετε ένα παράθυρο διαλόγου δράση ζητώντας συγκεκριμένες πληροφορίες από το χρήστη που δεν πρέπει να κλείσει. Σημειώστε ότι μπορείτε να καταλήξετε ενοχλητικό χρήστες σας εάν δεν μπορείτε να κλείσετε το κύριο παράθυρο του προγράμματός σας με το κουμπί κλεισίματος ή κάποιο κουμπί που κλείνει . Αν καλέσετε μια συγκεκριμένη λειτουργία στο λειτουργικό σας σύστημα , VB πρόγραμμα σας μπορεί να αφαιρέσει κουμπί κλεισίματος . Οδηγίες
Η

1 Ανοίξτε το έργο σας σε Visual Basic . 2

Πηγαίνετε στο παράθυρο κώδικα σας και πληκτρολογήστε τον ακόλουθο κώδικα στο επάνω μέρος . Αυτός ο κώδικας κάνει Visual Basic αναγνωρίζει ορισμένες λειτουργίες της βιβλιοθήκης από τα Windows είναι απαραίτητο να αφαιρέσετε κουμπί κλεισίματος σας :

Private Declare Function GetSystemMenu Lib " user32 " _

( ByVal hwnd Όπως Long , _

ByVal bRevert Όπως Long ) Όπως Long

Private Declare Function RemoveMenu Lib " user32 " _

( ByVal hMenu Όπως Long , _

ByVal nPosition Όπως Long , _

ByVal wFlags Όπως Long ) Όπως Long
εικόνων 3

Γράψτε την ακόλουθη δήλωση κάτω από τα ιδιωτικά δηλώσεις λειτουργία των Windows που κάνατε : Private Const MF_BYPOSITION = & H400 Τζούρδας . 4

Πληκτρολογήστε την ακόλουθη μέσα στο " Form_Load " συνάρτηση της μορφής που θέλετε να απενεργοποιήσετε το κουμπί κλεισίματος των :

Dim sysMenu Όπως Long

sysMenu = GetSystemMenu ( Form1. hwnd , 0 )

RemoveMenu ( sysMenu , 6 , MF_BYPOSITION )

RemoveMenu ( sysMenu , 5 , MF_BYPOSITION )
5

Φτιάξτε το έργο σας και να εκτελέσετε το εκτελέσιμο .
Η
εικόνων