بسم الله الرحمن الرحيم
من الأمور المهمة في كل البرامج وجود الرسائل التحذيرية فيها للتنبيه علي أشياء معينة وسنتعلم بإذن الله في هذا الدرس طريقة صنعها وهي و لله الحمد غير عسيرة :
بسم الله نبدأ
إفتح برنامج الفيجوال بيزك وسيسألك البرنامج في البداية عن نوع المشروع الذي تريده فاختر 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- علامة
وإذا أردت إظهار صورة وعدد من المفاتيح فاجمع العددين
مثال : في الكود السابق
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
وارجو ان الموضوع يحوز اعجاب الزملاء
والسلام عليكم
