في قاعدة بيانات Access لسطح المكتب، MsgBox تعرض الدالة رسالة في مربع حوار، وتنتظر المستخدم لتحديد زر، وترجع زرا Integer يشير إلى الزر الذي حدده المستخدم.
بناء الجملة
MsgBox(prompt[, buttons][, title][, helpfile][, context])
MsgBox يحتوي بناء جملة الدالة على هذه الوسيطات:
| الوسيطة | الوصف |
|---|---|
prompt |
مطلوبة. يتم عرض تعبير السلسلة كرسالة في مربع الحوار. يبلغ الحد الأقصى للطول prompt حوالي 1024 حرفا، اعتمادا على عرض الأحرف المستخدمة. إذا كان prompt يحتوي على أكثر من سطر واحد، يمكنك فصل الأسطر باستخدام حرف إرجاع حرف (Chr(13))، أو حرف ملف خطي (Chr(10))، أو تركيبة حرف إرجاع سطري (Chr(13) & Chr(10)) بين كل سطر. |
buttons |
اختيارية. التعبير الرقمي الذي هو مجموع القيم التي تحدد عدد ونوع الأزرار المراد عرضها، ونمط الأيقونة المراد استخدامه، وهوية الزر الافتراضي، وأسلوب مربع الرسالة. إذا تم حذفها، فإن القيمة الافتراضية ل buttons هي 0. |
title |
اختيارية. تعبير السلسلة المعروض في شريط العنوان لمربع الحوار. إذا حذفت title، يظهر اسم التطبيق في شريط العنوان. |
helpfile |
اختيارية. تعبير سلسلة يحدد ملف التعليمات المراد استخدامه لتوفير تعليمات حساسة للسياق لمربع الحوار. إذا helpfile تم توفيره، context يجب أيضا توفيره. |
context |
اختيارية. تعبير رقمي هو رقم سياق التعليمات المعين لموضوع التعليمات المناسب بواسطة مؤلف التعليمات. إذا context تم توفيره، helpfile يجب أيضا توفيره. |
الإعدادات
buttons إعدادات الوسيطة هي:
| ثابت | القيمة | الوصف |
|---|---|---|
vbOKOnly |
0 |
عرض موافق فقط. |
vbOKCancel |
1 |
عرض "موافق " و "إلغاء الأمر". |
vbAbortRetryIgnore |
2 |
عرض Abort و Retryو Ignore. |
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) طريقة مربع الرسالة. عند إضافة أرقام لإنشاء قيمة نهائية 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 لعرض رسالة خطأ حرج في مربع حوار مع أزرارنعم ولا. يتم تحديد الزر 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