شبكة المنهل التعليمية - لغات البرمجة وقواعد البيانات

الدرس 17:إظهار الرسائل باستخدام الأمر MsgBox:

يمكن استخدام الأمر MsgBox لإظهار رسائل للمستخدم كرسائل التأكيد والتنبيه والترحيب وغير ذلك ويملك هذا الأمر شكلين :

الشكل الأول (البسيط):

MsgBox (“الرسالة التي نريد إظهارها”)

عند تنفيذ هذا الأمر سيظهر صندوق يحوي الرسالة وزر موافق مثال:

ضع في الحدث Form_Load الأمر التالي :

MsgBox (“أهلاً بكم في برنامجنا”)

نفذ البرنامج وعندها ستظهر الرسالة السابقة، ويتوقف تنفيذ البرنامج حتى نضغط على الزر موافق فتختفي الرسالة وتظهر نافذة البرنامج الرئيسية.

الشكل الثاني:

وفيه نستطيع إضافة أزرار غير زر موافق ومن ثم نستطيع معرفة رقم الزر الذي تم اختياره، وفي هذه الحالة يملك الشكل التالي:

متحول =MsgBox(“الرسالة” , رقم , “العنوان”)

المتحول: هو متحول من نوع Integer وهو يمثل رقم الزر الذي تم ضغطه.

الرقم: ويمثل نوع الأزرار والأيقونات التي نريد إظهارها في الرسالة ويمكن لهذا الرقم أن يأخذ إحدى القيم التالية:

الرقم	ما سيظهر
0	زر موافق
1	زر موافق وزر إلغاء الأمر
2	زر تجاهل وإحباط وإعادة المحاولة
3	زر نعم ولا و إلغاء الأمر
4	زر نعم ولا
5	إعادة المحاولة وإلغاء الأمر
16	أيقونة
32	أيقونة
48	أيقونة
64	أيقونة سؤال
524288	تعريب الرسالة والعنوان
1048576	تعريب الأزرار

ملاحظات:

1- مقابل كل رقم من الأرقام السابقة يوجد ثابت يمكن استخدامه بدلاً من هذا الرقم، وحفظ هذا الثابت أسهل من حفظ الرقم.

2- أثناء كتابة الأمر MsgBox أو أي أمر آخر تقوم VB بعرض قائمة ببارامترات هذا الأمر ونوع كل بارامتر فمثلاً عندما نريد وضع أرقام الأزرار أثناء كتابة MsgBox تظهر قائمة تحوي جميع الثوابت التي يمكن استخدامها بدلاً من الأرقام.

3- يمكن الجمع بين الثوابت أو الأرقام للحصول على أكثر من خيار في آن واحد كأن نستخدم الرقم كأن نستخدم الرقم 68 لإظهار زري نعم ولا وأيقونة سؤال (68=64+4).

4- عند استخدام الرسائل المعربة سنجد صعوبة في كتابة الأمر MsgBox لذلك من السهل استخدام متحولات لتخزين نصي الرسالة والعنوان.

مثال:

ms$=”هل تريد الخروج”

Ti$=”تأكيد”

Re=MsgBox (ms$ , 4 , Ti$)

كيف نحدد الزر الذي تم ضغطه:

نستطيع تحديد الزر الذي تم ضغطه من خلال فحص قيمة المتحول الموجود في الطرف الأيسر من عبارة MsgBox ، فهذا المتحول سيحمل رقم الزر المضغوط ؛ وأرقام الأزرار في VB هي :

[ موافق=1 ، إلغاء الأمر=2 ، إحباط=3 ، إعادة المحاولة=4 ،تجاهل= 5 ، نعم=6 ، لا=7 ]

مثال: ضع زر أوامر على النافذة، وغير خاصية Caption له إلى "خروج" ثم ضع في حدث Click التابع لهذا الزر الشفرة التالية:

Ms$ =”هل تريد الخروج”

Ti$ =”تأكيد”

Re = MsgBox (ms$, 4+64+524288+1048576, Ti$)

If Re=6 Then End

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