Πίνακας περιεχομένων:
- Μπορείτε να χρησιμοποιήσετε τη λειτουργία MsgBox με δύο τρόπους:
- Αν εμφανίσετε ένα πλαίσιο μηνύματος που περιέχει κάτι περισσότερο από ένα κουμπί OK, πιθανότατα θα θέλετε να μάθετε σε ποιο κουμπί ο χρήστης κάνει κλικ. Έχετε τύχη. Η συνάρτηση MsgBox μπορεί να επιστρέψει μια τιμή που αντιπροσωπεύει σε ποιο κουμπί γίνεται κλικ. Μπορείτε να αντιστοιχίσετε το αποτέλεσμα της λειτουργίας MsgBox σε μια μεταβλητή.
Βίντεο: JavaScript for Web Apps, by Tomas Reimers and Mike Rizzo 2024
Γνωρίζετε πιθανώς τη λειτουργία VBS MsgBox. Η λειτουργία MsgBox, η οποία δέχεται τα παρακάτω επιχειρήματα, είναι χρήσιμη για την εμφάνιση πληροφοριών και την απλή εισαγωγή των χρηστών. Είναι σε θέση να πάρει την είσοδο του χρήστη επειδή είναι μια λειτουργία. Μια συνάρτηση, όπως ίσως γνωρίζετε, επιστρέφει μια τιμή. Στην περίπτωση της λειτουργίας MsgBox, χρησιμοποιεί ένα παράθυρο διαλόγου για να πάρει την τιμή που επιστρέφει. Συνεχίστε να διαβάζετε για να δείτε ακριβώς πώς λειτουργεί.
(προαιρετικό)
Εδώ υπάρχει μια απλοποιημένη έκδοση της σύνταξης της λειτουργίας MsgBox:
Εμφανίζεται ένα απλό πλαίσιο μηνύματοςΜπορείτε να χρησιμοποιήσετε τη λειτουργία MsgBox με δύο τρόπους:
Για απλά εμφάνιση μηνύματος στο χρήστη:
-
Σε αυτή την περίπτωση, δεν σας ενδιαφέρει το αποτέλεσμα που επέστρεψε η λειτουργία. Για να λάβετε μια απάντηση από το χρήστη:
-
Σε αυτή την περίπτωση, σας ενδιαφέρει το αποτέλεσμα που επέστρεψε η λειτουργία. Το αποτέλεσμα εξαρτάται από το κουμπί που κάνει κλικ ο χρήστης.
Sub MsgBoxDemo () MsgBox "Κάντε κλικ στο OK για να ξεκινήσετε την εκτύπωση. "Φύλλα (" Αποτελέσματα "). PrintOut End Sub
Δείτε παρακάτω για να δείτε πώς φαίνεται αυτό το πλαίσιο μηνυμάτων. Σε αυτήν την περίπτωση, η εκτύπωση αρχίζει όταν ο χρήστης κάνει κλικ στο OK. Παρατηρείτε ότι δεν υπάρχει τρόπος να ακυρώσετε την εκτύπωση; Συνεχίστε να διαβάζετε για να μάθετε πώς να το διορθώσετε.
Ένα απλό πλαίσιο μηνύματος.
Αν εμφανίσετε ένα πλαίσιο μηνύματος που περιέχει κάτι περισσότερο από ένα κουμπί OK, πιθανότατα θα θέλετε να μάθετε σε ποιο κουμπί ο χρήστης κάνει κλικ. Έχετε τύχη. Η συνάρτηση MsgBox μπορεί να επιστρέψει μια τιμή που αντιπροσωπεύει σε ποιο κουμπί γίνεται κλικ. Μπορείτε να αντιστοιχίσετε το αποτέλεσμα της λειτουργίας MsgBox σε μια μεταβλητή.
Στον παρακάτω κώδικα χρησιμοποιούνται μερικές ενσωματωμένες σταθερές που διευκολύνουν την εργασία με τις τιμές που επιστρέφονται από το MsgBox:
Sub GetAnswer () Dim Ans As Long Ans = MsgBox ("Έναρξη εκτύπωσης;", vbYesNo) Επιλέξτε Case Ans Case vbYes ActiveSheet. Περίπτωση εκτύπωσης vbNo MsgBox "Εκτύπωση ακυρώθηκε" Τέλος Επιλογή Τέλος Sub
Σταθερό
| Τιμή | Τι κάνει | vbOKOnly |
|---|---|---|
| 0 | Εμφανίζεται μόνο το πλήκτρο OK. | vbOKCancel |
| 1 | Εμφανίζει τα πλήκτρα OK και Cancel. | vbAbortRetryIgnore |
| 2 | Εμφανίζει τα κουμπιά Ακύρωση, Επανάληψη και Παράβλεψη. | vbYesNoCancel |
| 3 | Εμφανίζει κουμπιά Ναι, Όχι και Ακύρωση. | vbYesNo |
| 4 | Εμφανίζει τα κουμπιά Ναι και Όχι. | vbRetryCancel |
| 5 | Εμφανίζει τα κουμπιά Επανάληψη και Ακύρωση. | vbCritical |
| 16 | Εμφανίζει το εικονίδιο Κρίσιμου μηνύματος. | vbQuestion |
| 32 | Εμφανίζει το εικονίδιο Query Warning. | vbExclamation |
| 48 | Εμφανίζει το εικονίδιο Προειδοποιητικού μηνύματος. | vbInformation |
| 64 | Εμφανίζει το εικονίδιο μηνύματος πληροφοριών. | vbDefaultButton1 |
| 0 | Το πρώτο κουμπί είναι προεπιλεγμένο. | vbDefaultButton2 |
| 256 | Το δεύτερο κουμπί είναι προεπιλεγμένο. | vbDefaultButton3 |
| 512 | Το τρίτο κουμπί είναι προεπιλεγμένο. | vbDefaultButton4 |
| 768 | Το τέταρτο κουμπί είναι προεπιλεγμένο. | Δείτε πώς φαίνεται. Όταν εκτελείτε αυτήν τη διαδικασία, η μεταβλητή Ans έχει εκχωρηθεί μια τιμή είτε vbYes είτε vbNo, ανάλογα με το κουμπί στο οποίο ο χρήστης κάνει κλικ. Η εντολή Select Case χρησιμοποιεί την τιμή Ans για να καθορίσει την ενέργεια που πρέπει να εκτελέσει ο κώδικας. |
Ένα απλό πλαίσιο μηνύματος, με δύο κουμπιά.
Sub GetAnswer2 () Εάν MsgBox ("Έναρξη εκτύπωσης;", vbYesNo) = vbYes Στη συνέχεια '… [code if Yes κλικ] … Άλλο '… [κωδικός εάν Ναι δεν έχει πατηθεί] … End If End Sub
