Πώς να κάνει ένα έντυπο Μείνετε στην κορυφή σε Visual Basic 6

Visual Basic 6 δεν έχει μια λειτουργία που διατηρεί αυτόματα μια φόρμα ως ανώτερο παράθυρο στην οθόνη , αλλά μπορείτε να χρησιμοποιήσετε μια ενότητα για να κηρύξει την λειτουργία SetWindowPos API και αναφορά σε αυτό το έργο σας . Ενώ το πρόγραμμα εκτελείται , η μορφή παραμένει στην κορυφή του τα πάντα : τις άλλες μορφές που αποτελούν μέρος του ίδιου σχεδίου και οποιαδήποτε άλλα προγράμματα που εκτελούνται ταυτόχρονα . Ακόμα κι αν η μορφή παραμένει στην κορυφή της όλα τα άλλα , ο χρήστης μπορεί να αλλάξει το μέγεθος του ή να το μετακινήσετε γύρω από την οθόνη . Οδηγίες
Η 1

Ανοίξτε Visual Basic 6 . Κάντε κλικ στο " Standard EXE " στο παράθυρο " New Project" και κάντε κλικ στο κουμπί " Άνοιγμα" για να δημιουργήσετε ένα έργο με μια φόρμα . 2

Κάντε κλικ στο " Project" στο μενού και στη συνέχεια κάντε κλικ στο κουμπί " Προσθήκη Module . " Κάντε κλικ στο κουμπί " Άνοιγμα" στο πεδίο "Προσθήκη Module " παράθυρο διαλόγου που ανοίγει για να προσθέσετε μια μονάδα στο έργο και να ανοίξει το παράθυρο κώδικα της
εικόνων 3

Πληκτρολογήστε τα ακόλουθα : .

Option Explicit

κηρύξει SetWindowPos Λειτουργία Lib " user32 " ( ByVal hwnd Όπως Long , ByVal hWndInsertAfter Όπως Long , ByVal x As Long , ByVal y Όπως Long , ByVal cx Όπως Long , ByVal cy Όπως Long , ByVal wFlags Όπως Long ) Όπως Long

η δήλωση Declare κάνει μια αναφορά στην εξωτερική βιβλιοθήκη user32 , το οποίο περιέχει τη λειτουργία SetWindowPos .
Η

4 Ανοίξτε το Form_Load ( ) παράθυρο κώδικα για Φόρμα1 και τον τύπο τα ακόλουθα :

Dim windowPosition Όπως Long

windowPosition = SetWindowPos ( Form1.hwnd , -1 , 0 , 0 , 0 , 0 , 1 )

Αυτός ο κωδικός καλεί το λειτουργία δηλωθεί στη μονάδα και θέτει Form1 να εμφανίζεται πάντα ως η κορυφαία αντικείμενο, όταν η λειτουργία του έργου .
5

Φτιάξτε το υπόλοιπο του έργου . Πατήστε το πλήκτρο " F5 " για να το δοκιμάσετε και να δούμε ότι η μορφή παραμένει πάντα στην κορυφή .
Η
εικόνων