المجموعة الخامسة فيجوال بيزيك

Admin 15/4/2007, 4:38 pm

• رسائل التأكيد(مربعات الحوار Msgbox)

يتم ذلك بكتابة البرنامج الجزئي التالي ضمن زر أمر:
Private Sub Command2_Click()
b = MsgBox("هل تريد الخروج فعلاً", vbYesNo, "خروج")
If b = vbYes Then
End
End If
End Sub
نلاحظ أن محتوى القوسين بعد تعليمة Msgbox يتألف من ثلاث أقسام:
- القسم الأول: جملة توضيحية وهي عبارة تقدم خيارات الصندوق.
- القسم الثالث: وهو عنوان الصندوق.
- القسم الثاني: أنواع خيارات الصندوق ويمكن تحديدها بأسلوبين:
إما من القائمة الفرعية التي تظهر بعد كتابة الفاصلة أو من خلال أرقام الصناديق ونترك لك استخدام الأرقام التالية:
0-5، 16، 32، 48، 64، 524288 ،2048، 4096
أما الإجابة على خيارات هذا الصندوق فتأخذ قيم عددية حسب الزر الذي تم اختياره كما يلي:
1 Ok
2 Cancel
3 Abort ((إحباط
4 repeat
5 Ignore (يتجاهل)
6 Yes
7 No

• البرامج متعددة النوافذ:
إن جميع الأمثلة التي مرت سابقاً لم نستعمل سوى نافذة واحدة بالرغم إمكانية استعمال أي عدد من النوافذ.
فمن القائمة project add form فتظهر نافذة أخرى (form2).
يمكن أن نربط النوافذ مع بعضها برنامج جزئي بسيط كما يلي:
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub
هذا البرنامج يظهر الفورم رقم 2 ويخفي الفورم رقم 1
يمكن إضافة كلمة مرور لأي برنامج كما يلي:

Private Sub Command1_Click()
a = Text1.Text
If a = 2002 Then
Form1.Hide
Form2.Show
Else
b = MsgBox("كلمة المرور غير صحيحة", 0, "انتبه")
If b = 1 Then Text1.Text = ""
End If
End Sub

• تشكيل البرامج التنفيذية:
من قائمة file Make project exe من القائمة الناتجة نختار موقع الملف التنفيذي