في قاعدة بيانات Access لسطح المكتب، MsgBox تعرض الدالة رسالة في مربع حوار، وتنتظر المستخدم لتحديد زر، وترجع رسالة Integer تشير إلى الزر الذي حدده المستخدم.
بناء الجملة
MsgBox(prompt[, buttons][, title][, helpfile][, context])
يحتوي بناء جملة MsgBox الدالة على الوسيطات التالية:
| الوسيطة | الوصف |
|---|---|
prompt |
مطلوبة. تعبير سلسلة معروض كرسالة في مربع الحوار. الحد الأقصى لطول prompt هذا الملف هو حوالي 1024 حرفا، استنادا إلى عرض الأحرف المستخدمة. إذا prompt كان يحتوي على أكثر من سطر واحد، فيمكنك فصل الخطوط باستخدام حرف إرجاع أول السطر (Chr(13)) أو حرف تغذية الأسطر (Chr(10)) أو تركيبة تغذية الأسطر المرجعة (Chr(13) & Chr(10)) بين كل سطر. |
buttons |
اختيارية. تعبير رقمي هو مجموع القيم التي تحدد عدد الأزرار المراد عرضها ونوعها ونمط الأيقونة المراد استخدامه وهوية الزر الافتراضي ونمط مربع الرسالة. في حالة حذف هذه القيمة، تكون القيمة الافتراضية هي buttons0. |
title |
اختيارية. تعبير سلسلة معروض في شريط العنوان الخاص بمربع الحوار. إذا حذفت ، titleفسيظهر اسم التطبيق في شريط العنوان. |
helpfile |
اختيارية. تعبير سلسلة يحدد ملف "التعليمات" لاستخدامه لتوفير تعليمات تتحسس السياق لمربع الحوار. إذا helpfile تم توفيره ، context يجب أيضا توفيره. |
context |
اختيارية. تعبير رقمي يمثل رقم سياق التعليمات المعين إلى موضوع التعليمات المناسب من قبل كاتب التعليمات. إذا context تم توفيره ، helpfile يجب أيضا توفيره. |
الإعدادات
إعدادات الوسيطة buttons هي:
| ثابت | قيمة | الوصف |
|---|---|---|
vbOKOnly |
0 |
عرض موافق فقط. |
vbOKCancel |
1 |
عرض موافقوإلغاء الأمر. |
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 through 5) عدد الأزرار المعروضة في مربع الحوار ونوعها. تصف المجموعة الثانية (16, 32, 48, 64) نمط الأيقونة. تحدد المجموعة الثالثة (0, 256, 512) الزر الافتراضي. تحدد المجموعة الرابعة (0, 4096) نمط مربع الرسالة. عند إضافة أرقام لإنشاء قيمة نهائية للوسيطة buttons ، استخدم رقما واحدا فقط من كل مجموعة.
ملاحظة
يتم تحديد هذه الثوابت بواسطة Visual Basic for Applications. كنتيجة لذلك، يمكنك استخدام الأسماء في أي مكان في تعليماتك البرمجية بدلا من القيم الفعلية.
إرجاع القيم
| ثابت | قيمة | الوصف |
|---|---|---|
vbOK |
1 |
موافق |
vbCancel |
2 |
إلغاء |
vbAbort |
3 |
إجهاض |
vbRetry |
4 |
إعادة المحاولة |
vbIgnore |
5 |
تجاهل |
vbYes |
6 |
نعم |
vbNo |
7 |
لا |
ملاحظات
عندما يتم توفيرهما helpfile ، context يمكن للمستخدم الضغط على F1 في Windows أو التعليمات في macOS لعرض موضوع التعليمات المطابق context. تضيف أيضا بعض التطبيقات المضيفة، مثل 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