15-قواعد الفيجوال بيسك - الجزء الثاني

اليوم سنتناول شرح
قاعدة Select Case
ولكن سنستغلها فرصه ونتعلمها من خلال الادوات الاتيه

ListBox
ToolBar

الصيغه العامه لقاعده Select هي

اقتباس :

Select Case S
Case n
……..
Code
………
Case n1
…….
Code
……
End Select

S = هي نوع البيان الذي سيتم الاختيارات عليه
N = هي نوع من انواع البيان الاساسي
وعند وقوع الاختيار عليه يتم تنفيذ الاكواد التي تليه
N1=N

اولا Select Case هي قاعده الاختيار المتعدد
مثال

اقتباس :

Select Case CarType
Case Mazda
I Will Drive
Case BMW
I Should Drive
Case Fiat
I Can t Drive
End Select

اقتباس :

Select Case list1.ListIndex
Case 0
MsgBox list1.Text
Case 1
MsgBox list1.Text
Case 2
MsgBox list1.Text
Case 3
MsgBox list1.Text
End Select

اقتباس :

Select Case Button.Index
Case 1
MsgBox "If.....Then Rule"
Case 2
MsgBox "Select Case Rule"
Case 3
MsgBox "toolBar"
End Select

اقتباس :

Select Case ButtonMenu.Index
Case 1
MsgBox "Hello"
Case 2
MsgBox "Wellcome"
Case 1
MsgBox "3d"
End Select

طبعا ButtonMenu.Index
لاننا نريد برمجه القوائم وليست الازرار الرئيسيه
الان قم بالتجربه
عند الضغط علي Hello ستظهر رساله بها Hello
عند الضغط علي Welcome ستظهر رساله بها Welcome
عند الضغط علي 3D ستظهر رساله بها Hello!!!!!!!!
ما هذا كيف ذلك؟
لان 3D تأخذ ايضا رقم Index
1 كما هو الحال بـ Hello
ما الحل؟
الحل هو استخدام Tag لكل منهم
الان اذهب الي Properties ثم التبويب Button
ثم في الزر الاول في القائمه الاولي اكتب في Tag رقم
1
ومن ثم في القائمه الثانيه اكتب في tag رقم 2
ومن ثم في الزر الثاني في القائمه الاولي ادخل في Tag
رقم 3
كما بالشكل:


الان قمنا بتحديد Tag لكل قائمه كيف
سنقوم باستخدامها في الكود السابق لتفادي مشكله التكرار
اعتقد في حد عرف اننا هنستخدم قاعده If
سيصبح الكود كالتالي :

اقتباس :

Select Case ButtonMenu.Index
Case 1
If ButtonMenu.Tag = 1 Then
MsgBox "Hello"
Else
MsgBox "3d"
End If
Case 2
MsgBox "Wellcome"
End Select

الان تمكنا من ان نفصل بين كل قائمه عن طريق
الخاصيه Tag
واستخدامهما وايضا استخدام الازرار

الان سنعرف خاصيه صغيرة جدا وهي عمل فواصل بين كل زر والاخر
اذهب الي Properties ثم التبويب Button
اذهب الي الزر 2 ثم قم بالضغط علي InsertButton ثم
قم بتغير الخاصيه Style الي 3-tbrseparator
الان قم بالمشاهده ستلاحظ وجود فرق صغير بين الزرين الاوليين عن الزر
الثالث
الان قم بالضغط علي الزر ToolBar ستجد انه لا
يعمل!!!!!!
لما؟
وذلك لانه اخذ رقم Index الخاص بـ ToolBar
اذا سنقوم بتغير رقم Index للـزر ToolBar في الكود بدلا من كان يأخذ رقم 3 سيصبح 4

كيف يمكننا ان نعرف رقم Index بدلا من نقوم
بعد الازرار والفواصل ؟
يمكنك ذلك عن طرق Index الموجوده في التبويب Button كما بالصورة




الان سنتعرف علي كيفيه وضع صور كشكل جمالي في ToolBar
قم باضافه الاداه ImageList
اختار properties للاداه
ثم قم باختيار حجم الايقونه كما تريد اما من الخيارات الموضحه
او ان تضع عرضها وارتفاعها كما تريد ثم اذهب الي التبويب Images
قم بالضغط علي Insert Picture
قم باختيار ايقونه مناسبه وبعد اختيارها ستظر في الجزء المسمي Images
قم بأختيار مجموعتك كما تريد كما بالشكل :





ستظهر الصور كما بالشكل السابق ولكن لاحظ
ان كل ايقونه قمت بأختيارها تم وضع رقم Index لها
يبدأ ترقيم الصور من 1 ويبدأ من جهه اليسار الي اليمين
اي ان اول ايقونه تختارها تأخذ الرقم 1 وثاني ايقونه تختارها تأخذ الرقم 2
وهكذا
الان جاء الدور لوضع هذه الايقونات بداخل ToolBar
اذهب الي Properties للـToolBar ومن التبويب General
اختر ImageList1 من ImageList
ولكن حتي الان لم يتم وضعها؟
اذا اذهب الي البويب Button واذهب الي اول زر
وقم بوضع رقم 1 في الخاصيه Image وهو رقم
الايقونه الاولي
ثم اذهب الي الزر الثاني واكتب 2 في الخاصيه Image
وهكذا
الان اضغط موافق وستلاحظ انه تم وضع الايقونات في ToolBar
الصورة كما بالشكل: