بسم الله الرحمن الرحيم

من الأمور المهمة في كل البرامج وجود الرسائل التحذيرية فيها للتنبيه علي أشياء معينة وسنتعلم بإذن الله في هذا الدرس طريقة صنعها وهي و لله الحمد غير عسيرة :

بسم الله نبدأ

إفتح برنامج الفيجوال بيزك وسيسألك البرنامج في البداية عن نوع المشروع الذي تريده فاختر STANDARD EXE

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

Private Sub Form_Load()
MsgBox "MSG", , "TITLE"
End Sub

 

نفذ برنامجك بضغط الزر F5

ماذا تلاحظ ؟

ستجد أن أنه عند بدء تحميل البرنامج تظهر الرسالة الآتية

ومن الكود نضع محتوي الرسالة بدلا من MSG وعنوان الرسالة بدلا من TITLE

ولكن هل هذا كل شئ ؟؟

لا أعتقد ذلك فهناك بعض العلامات التي يمكننا وضعها بداخل الرسالة مثل STOP 

وذلك بإذن الله يكون بالطريقة الآتية :

في الكود السابق بين عنوان الرسالة ومحتواها نضع رقما معينا ليخبر النظام عن شكل العلامة التي نريدها

مثال :

Private Sub Form_Load()
MsgBox "MSG",16 , "TITLE"
End Sub

وستظهر الرسالة كالآتي :

 وهذه هي الأرقام التي يمكنك استخدامها :

16- علامة

32- علامة

48-علامة

64- علامة

هذا للعلامات أما بالنسبة للأزرار فهي كالتالي

1-

2-

3-

4-

5-

وإذا أردت إظهار صورة وعدد من المفاتيح فاجمع العددين

مثال : في الكود السابق

Private Sub Form_Load()
MsgBox "MSG",20 , "TITLE"
End Sub

 ستظهر الرسالة الآتية :

 وذلك لأننا قمنا بجمع رقم رسالة ستوب مع الأزرار YES , NO وهم 16 +4 = 20

والآن كل هذا جيد ولكن توجد مشكلة خطيرة فمهما كان الزر الذي تختاره من أزرار الرسالة سيعود بك إلي الفورم نفسها ولذلك سنحاول تلافي هذه المشكلة بعمل التالي:

سنقوم بتعديل الكود إلي الشكل التالي :

Private Sub Form_Load()
a = MsgBox("خروج", 36, "خروج")
If a = vbYes Then
Unload Me
ElseIf a = vbNo Then
Form1.Show
End If
End Sub
 

وفي الكود الجديد أمرناه لأن يخرج من الفورم عند الضغط علي yes

وأن يعود إليها عند الضغط علي no

والرسالة ستكون كالآتي:

ولكن لكي نخبر المترجم عن الزر الذي نقصده لأمر معين يجب أن نكتب المقابل له باللغة الإنجليزية

نعم  YES

لا NO

موافق OK

إلغاء الأمر CANCEL

تجاهل IGNORE

إحباط ABORT

إعادة RETRY

والسلام عليكم ورحمة الله وبركاته