Πώς να Κέντρο μήνυμα ασφαλείας σε Visual Basic

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

1 Κάντε κλικ στο κουμπί Έναρξη των Windows και , στη συνέχεια, κάντε κλικ στο " Microsoft Visual Studio . " 2

Κάντε κλικ στο " Αρχείο" και στη συνέχεια κάντε κλικ στο " Νέο " για να δημιουργήσετε το προεπιλεγμένο " Φόρμα1 " μορφή εικόνων
3

Προσθέστε τον ακόλουθο κώδικα στο ανοιχτό παράθυρο : .

Τύπος ΠΑΡ

Αριστερά Όπως Long

Top Όπως Long

Δικαίωμα Όπως Long

Κάτω Όπως Long

End Type

SetWindowPos Λειτουργία Public Declare Lib " user32 " ( )

Δημόσιο αναγνωρίσει Λειτουργία GetWindowRect Lib " user32 " ( ByVal hwnd _As Long , lpRect Όπως RECT ) Όπως Long

Λειτουργία WinProc2 ( ByVal lMsg Όπως Long , ByVal wParam Όπως Long , _ByVal lParam Όπως Long ) Όπως Long

Dim rectForm Ως άμεση, rectMsg Όπως RECT

Dim x As Long , y Όπως Long

'On HCBT_ACTIVATE , δείχνουν την MsgBox επικεντρώνεται πάνω Φόρμα1

Αν lMsg = HCBT_ACTIVATE συνέχεια

« Πάρτε τις συντεταγμένες της μορφής και του κιβωτίου μήνυμα

» για να καθοριστεί το κέντρο της θέσης μορφή

GetWindowRect Form1.hwnd , rectForm

GetWindowRect wParam , rectMsg

x = ( rectForm.Left + ( rectForm.Right - rectForm.Left ) /2 ) - _

( ( rectMsg.Right - rectMsg.Left ) /2 )

y = ( rectForm.Top + ( rectForm.Bottom - rectForm.Top ) /2 ) - _

( ( rectMsg.Bottom - rectMsg.Top ) /2 )

" Τοποθετήστε το MsgBox

SetWindowPos wParam , 0 , x , y , 0 , 0 , _

SWP_NOSIZE Ή SWP_NOZORDER Ή SWP_NOACTIVATE

End Function

Private Sub Command2_Click ( )

Dim hInst Όπως Long

Dim νήμα όσο

' Εμφάνιση του πλαισίου μηνύματος

' MsgBox " Αυτό το πλαίσιο είναι το μήνυμα που βρίσκεται στο ( 0,0 ) . "