في قاعدة بيانات Access لسطح المكتب، تعرض الدالة MsgBox رسالة في مربع حوار، وتنتظر أن ينقر المستخدم فوق زر، ثم ترجع عدد صحيح يشير إلى الزر الذي قام المستخدم بالنقر فوقه.

بناء الجملة

MsgBox ( مطالبة [، أزرار ] [ ،عنوان ] [، ملف تعليمات ] [، سياق ] )

بناء جملة الدالة MsgBox على هذه الوسيطات:

الوسيطة

الوصف

مطالبة

مطلوبة. يتم عرض تعبير السلسلة كرسالة في مربع الحوار. يبلغ الحد الأقصى لطول المطالبة 1024 حرفا تقريبا، استنادا إلى عرض الأحرف المستخدمة. إذا كانت المطالبة تتألف من أكثر من سطر واحد، يمكنك فصل الأسطر باستخدام حرف الرجوع إلى السطر (Chr(13) )أو حرف صفيف السطر (Chr(10 ))أو إرجاع السطر – مجموعة أحرف سطرية (Chr(13) & Chr(10)) بين كل سطر.

الأزرار

اختياري. تعبير رقمي هذا هو مجموع القيم التي تحدد عدد الأزرار التي تريد عرضها ونوعها ونمط الأيقونة الذي يجب استخدامه وهوية الزر الافتراضي ونمط مربع الرسالة. إذا تم حذفها، تكون القيمة الافتراضية للأزرار 0.

العنوان

اختياري. تعبير سلسلة معروض في شريط عنوان مربع الحوار. إذا حذفت العنوان،يتم وضع اسم التطبيق في شريط العنوان.

helpfile

اختياري. تعبير سلسلة يحدد ملف "تعليمات" لاستخدامه لتوفير تعليمات تتحسس السياق لمربع الحوار. إذا تم توفير ملف تعليمات، فيجب أيضا توفير السياق.

سياق

اختياري. تعبير رقمي هو رقم سياق "تعليمات" المعين إلى موضوع "تعليمات" المناسب من قبل كاتب "تعليمات". إذا تم توفير السياق، فيجب أيضا توفير ملف تعليمات.


الإعدادات

الأزرار وسيطة الإعدادات هي:

ثابت

القيمة

الوصف

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

تحديد النص يجب أن يظهر كقراءة من اليمين إلى اليسار على الأنظمة العبرية والعربية


تلميح:  في Access 2010، يكون "منشئ التعبير" لديه IntelliSense، حيث يمكنك معرفة الوسيطات التي يتطلبها التعبير. 

تصف المجموعة الأولى من القيم (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 (Macintosh) لعرض موضوع "تعليمات" المطابق للسياب. تقوم بعض التطبيقات المضيفة، على سبيل المثال، 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

هل تحتاج إلى مزيد من المساعدة؟

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى المشاركين في برنامج Microsoft Office Insider

هل كانت المعلومات مفيدة؟

ما مدى رضاك عن جودة الترجمة؟
ما الذي أثّر في تجربتك؟

نشكرك على ملاحظاتك!

×