Σε μια Access βάση δεδομένων υπολογιστή, η συνάρτηση MsgBox εμφανίζει ένα μήνυμα σε ένα παράθυρο διαλόγου, περιμένει να κάνει κλικ ο χρήστης σε ένα κουμπί και επιστρέφει έναν Ακέραιο που υποδεικνύει ποιο κουμπί ο χρήστης έχει κάνει κλικ.
Σύνταξη
MsgBox ( ερώτηση [, κουμπιά ] [, τίτλος ] [, αρχείο βοήθειας ] [, περιβάλλον ] )
Η σύνταξη της συνάρτησης MsgBox περιλαμβάνει τα παρακάτω ορίσματα:
|
Όρισμα |
Περιγραφή |
|---|---|
|
Ερώτηση |
Υποχρεωτικό. Η παράσταση συμβολοσειράς εμφανίζεται ως μήνυμα στο παράθυρο διαλόγου. Το μέγιστο μήκος του μηνύματος είναι περίπου 1024 χαρακτήρες, ανάλογα με το πλάτος των χαρακτήρων που χρησιμοποιούνται. Εάν το μήνυμα αποτελείται από περισσότερες από μία γραμμές, μπορείτε να διαχωρίσετε τις γραμμές χρησιμοποιώντας έναν χαρακτήρα επαναφοράς (Chr(13)), ένα χαρακτήρα τροφοδοσίας γραμμής (Chr(10)) ή έναν χαρακτήρα επαναφοράς – συνδυασμό χαρακτήρων αλλαγής γραμμής (Chr(13) & Chr(10)) μεταξύ κάθε γραμμής. |
|
κουμπιά |
Προαιρετικό. αριθμητική παράσταση είναι το άθροισμα των τιμών που καθορίζουν τον αριθμό και τον τύπο των κουμπιών που θα εμφανιστούν, το στυλ εικονιδίου που θα χρησιμοποιηθεί, η ταυτότητα του προεπιλεγμένου κουμπιού και η λειτουργικότητα του πλαισίου μηνύματος. Εάν παραλειφθεί, η προεπιλεγμένη τιμή για τα κουμπιά είναι 0. |
|
Τίτλο |
Προαιρετικό. Η παράσταση συμβολοσειράς εμφανίζεται στη γραμμή τίτλου του παραθύρου διαλόγου. Εάν παραλείψετε τον τίτλο, το όνομα της εφαρμογής τοποθετείται στη γραμμή τίτλου. |
|
αρχείο βοήθειας |
Προαιρετικό. Παράσταση συμβολοσειράς που προσδιορίζει το αρχείο Βοήθειας που θα χρησιμοποιηθεί για την παροχή βοήθειας ευαίσθητων πληροφοριών περιβάλλοντος για το παράθυρο διαλόγου. Εάν παρέχεται αρχείο helpfile, πρέπει επίσης να παρέχεται περιβάλλον. |
|
Πλαίσιο |
Προαιρετικό. Αριθμητική παράσταση που είναι ο αριθμός περιβάλλοντος της Βοήθειας που έχει εκχωρηθεί στο κατάλληλο θέμα της Βοήθειας από τον συντάκτη της Βοήθειας. Εάν παρέχονται πληροφορίες περιβάλλοντος, πρέπει επίσης να παρέχεται αρχείο βοήθειας. |
Ρυθμίσεις
Τα κουμπιάόρισμα τις ρυθμίσεις είναι τα εξής:
|
Σταθερά |
Τιμή |
Περιγραφή |
|---|---|---|
|
vbOKOnly |
0 |
Εμφάνιση μόνο του κουμπιού OK . |
|
vbOKCancel |
1 |
Εμφάνιση κουμπιών OK και Άκυρο . |
|
vbAbortRetryIgnore |
2 |
Κουμπιά "Εμφάνιση ματαιώσεων", "Επανάληψη" και "Παράβλεψη ". |
|
vbYesNoCancel |
3 |
Εμφάνιση των κουμπιών Ναι, Όχι και Άκυρο . |
|
vbYesNo |
4 |
Εμφάνιση κουμπιών Ναι και Όχι . |
|
vbRetryCancel |
5 |
Εμφάνιση κουμπιών Επανάληψη και Άκυρο . |
|
vbCritical |
16 |
Εμφάνιση εικονιδίου κρίσιμου μηνύματος . |
|
vbQuestion |
32 |
Εμφάνιση εικονιδίου προειδοποιητικού ερωτήματος . |
|
vbExclamation |
48 |
Εικονίδιο εμφάνισης προειδοποιητικού μηνύματος . |
|
vbInformation |
64 |
Εικονίδιο εμφανιζόμενου μηνύματος πληροφοριών . |
|
vbDefaultButton1 |
0 |
Το πρώτο κουμπί είναι προεπιλεγμένο. |
|
vbDefaultButton2 |
256 |
Το δεύτερο κουμπί είναι προεπιλεγμένο. |
|
vbDefaultButton3 |
512 |
Το τρίτο κουμπί είναι προεπιλεγμένο. |
|
vbDefaultButton4 |
768 |
Το τέταρτο κουμπί είναι προεπιλεγμένο. |
|
vbApplicationModal |
0 |
Ελλειπτική εφαρμογή, Ο χρήστης πρέπει να απαντήσει στο πλαίσιο μηνύματος πριν συνεχίσει τις εργασίες στην τρέχουσα εφαρμογή. |
|
vbSystemModal |
4096 |
Ελλειπτικό σύστημα, όλες οι εφαρμογές αναστέλλονται μέχρι ο χρήστης να απαντήσει στο πλαίσιο μηνύματος. |
|
vbMsgBoxHelpButton |
16384 |
Κουμπί "Προσθήκη βοήθειας" στο πλαίσιο μηνύματος |
|
VbMsgBoxSetForeground |
65536 |
Καθορίζει το παράθυρο του πλαισίου μηνύματος ως παράθυρο πρώτου πλάνου |
|
vbMsgBoxRight |
524288 |
Το κείμενο είναι στοιχισμένο δεξιά |
|
vbMsgBoxRtlReading |
1048576 |
Καθορίζει ότι το κείμενο θα πρέπει να εμφανίζεται ως ανάγνωση από δεξιά προς τα αριστερά στα εβραϊκά και τα αραβικά συστήματα |
Η πρώτη ομάδα τιμών (0–5) περιγράφει τον αριθμό και τον τύπο των κουμπιών που εμφανίζονται στο παράθυρο διαλόγου. Η δεύτερη ομάδα (16, 32, 48, 64) περιγράφει το στυλ εικονιδίου. η τρίτη ομάδα (0, 256, 512) καθορίζει ποιο κουμπί είναι το προεπιλεγμένο. και η τέταρτη ομάδα (0, 4096) καθορίζει την λεπτομέρειες του πλαισίου μηνύματος. Όταν προσθέτετε αριθμούς για να δημιουργήσετε μια τελική τιμή για το όρισμα κουμπιά , χρησιμοποιήστε μόνο έναν αριθμό από κάθε ομάδα.
Σημείωση: Αυτές οι σταθερές καθορίζονται από τη Visual Basic for Applications. Ως αποτέλεσμα, τα ονόματα μπορούν να χρησιμοποιηθούν οπουδήποτε στον κωδικά σας αντί για τις πραγματικές τιμές.
Τιμές επιστροφής
|
Σταθερά |
Τιμή |
Περιγραφή |
|---|---|---|
|
vbOK |
1 |
OK |
|
vbCancel |
2 |
Ακύρωση |
|
vbAbort |
3 |
Ματαίωση |
|
vbRetry |
4 |
Επανάληψη |
|
vbIgnore |
5 |
Παράβλεψη |
|
vbYes |
6 |
Ναι |
|
vbNo |
7 |
Όχι |
Παρατηρήσεις
Όταν παρέχεται τόσο αρχείο βοήθειας όσο και περιβάλλον, ο χρήστης μπορεί να πατήσει το πλήκτρο F1 (Windows) ή HELP (macOS) για να δει το θέμα της Βοήθειας που αντιστοιχεί στο περιβάλλον. Ορισμένες εφαρμογές κεντρικού υπολογιστή, για παράδειγμα, το Microsoft Excel, προσθέτουν επίσης αυτόματα ένα κουμπί Βοήθειας στο παράθυρο διαλόγου.
Εάν το παράθυρο διαλόγου εμφανίζει ένα κουμπί Άκυρο , το πάτημα του πλήκτρου ESC έχει το ίδιο αποτέλεσμα με το κλικ στο κουμπί Άκυρο. Εάν το παράθυρο διαλόγου περιέχει ένα κουμπί Βοήθεια , παρέχεται σχετική βοήθεια για το παράθυρο διαλόγου. Ωστόσο, δεν επιστρέφεται καμία τιμή μέχρι να κάνετε κλικ σε ένα από τα άλλα κουμπιά.
Σημείωση: Για να καθορίσετε περισσότερα από το πρώτο επώνυμο όρισμα, πρέπει να χρησιμοποιήσετε το MsgBox σε ένα παράσταση. Για να παραλείψετε ορισμένα ορίσματα θέσης, πρέπει να συμπεριλάβετε τον αντίστοιχο οριοθέτη με κόμματα.
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA).
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση MsgBox για να εμφανίσει ένα μήνυμα κρίσιμου σφάλματος σε ένα παράθυρο διαλόγου με κουμπιά "Ναι" και "Όχι". Το κουμπί Όχι καθορίζεται ως η προεπιλεγμένη απάντηση. Η τιμή που επιστρέφει η συνάρτηση MsgBox εξαρτάται από το κουμπί που έχει επιλέξει ο χρήστης. Αυτό το παράδειγμα προϋποθέτει ότι DEMO.HLP είναι ένα αρχείο της Βοήθειας που περιέχει ένα θέμα με έναν αριθμό περιβάλλοντος της Βοήθειας ίσο με 1000.
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "MsgBox Demonstration"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If
