במסד נתונים Access שולחני, הפונקציה MsgBox מציגה הודעה בתיבת דו-שיח, מחכה שהמשתמש ילחץ על לחצן ויחזיר מספר שלם המציין על איזה לחצן המשתמש לחץ.
תחביר
MsgBox ( prompt [, buttons ] [, title ] [, helpfile ] [, context ] )
תחביר הפונקציה MsgBox מכיל את הארגומנטים הבאים:
ארגומנט |
תיאור |
---|---|
בשורת |
נדרש. ביטוי מחרוזת המוצג כהודעה בתיבת הדו-שיח. אורך הבקשה המרבי הוא כ- 1024 תווים, בהתאם לרוחב התווים הנמצאים בשימוש. אם בקשה מכילה יותר משורה אחת, באפשרותך להפריד בין הקווים באמצעות תו החזרת גררה (Chr(13)), תו הזנה בשורות (Chr(10)) או החזרת גררה – שילוב תווים בהזנה בשורות (Chr(13) & Chr(10)) בין כל שורה. |
לחצנים |
אופציונלי. ביטוי מספרי שהוא סכום הערכים המציין את המספר וסוג הלחצנים להצגה, סגנון הסמל שבו יש להשתמש, הזהות של לחצן ברירת המחדל והמודאליות של תיבת ההודעה. אם הוא מושמט, ערך ברירת המחדל עבור הלחצנים הוא 0. |
כותרת |
אופציונלי. ביטוי מחרוזת המוצג בפס הכותרת של תיבת הדו-שיח. אם השמטת את הכותרת, שם היישום ימוקם בפס הכותרת. |
קובץ helpfile |
אופציונלי. ביטוי מחרוזת המזהה את קובץ העזרה שבו יש להשתמש כדי לספק עזרה תלוית הקשר עבור תיבת הדו-שיח. אם סופק קובץ helpfile , יש לספק גם הקשר. |
הקשר |
אופציונלי. ביטוי מספרי שהוא מספר הקשר העזרה שהוקצה לנושא העזרה המתאים על-ידי מחבר העזרה. אם סופק הקשר, יש לספק גם קובץ helpfile. |
הגדרות
הלחצנים ארגומנט הן:
קבוע |
Value |
תיאור |
---|---|---|
vbOKOnly |
0 |
הצג לחצן אישור בלבד. |
vbOKביטול |
1 |
הלחצנים 'אישור' ו'ביטול' מוצגים. |
vbAbortRetryIgnore |
2 |
הלחצנים 'בטל', 'נסה שנית' ו'התעלם' מוצגים. |
vbYesNoביטול |
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. כתוצאה מכך, ניתן להשתמש בשמות בכל מקום בקוד במקום הערכים בפועל.
ערכי החזרה
קבוע |
Value |
תיאור |
---|---|---|
vbOK |
1 |
אישור |
vbביטול |
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