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