[خوية الحاسب]

Combo & List Box


اولا: Combo Box:

• لوضع اختيارات في هذا الصندوق نكتب الكود التالي في الفورم:


Private Sub Form1_Load()
Combo1.AddItem “Ehab”
Combo1.AddItem “Ahmed”
End Sub


و بهذه الكود يتزود الصندوق بكلمتي Ehab و Ahmed و اذا اردت اضافة اسماء اخري فاستخدم نفس الكود ولكن مع تغيير الاسماء..


2) لكتابة الكود عليك اولا تغييرالاجراء Change الموجودة بصفحة الكود الخاصة بالصندوق الي Click ثم اكتب الكود التالي:

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Expression
Case 1
Expression
End Select
End Sub












الشرح:

لاحظ اني استخدمت قاعدة Select Case و قد بدأت بCase 0 و ليس Case 1 فCase 0 مسئولة عن الاسم Ehab اما Case 1 فمسئولة عن الاسم Ahmed, اما بالنسبة الي Combo1.ListIndex فتعني انه سيقوم التحكم في عناصر الصندوق, و كلمة Expression قصدت بها انه يمكن كتابة اي حدث مثل Image1.Visible = True او Label1.Caption = Ehab ..الخ, اما نهاية الكود End Select تنهي قاعدة Select Case.

ثانيا: List Box:

• لوضع اختيارات في هذا الصندوق نكتب الكود التالي في الفورم:


Private Sub Form1_Load()
List1.AddItem “Ehab”
List1.AddItem “Ahmed”
End Sub


و بهذه الكود تتزود القائمة بكلمتي Ehab و Ahmed و اذا اردت اضافة اسماء اخري فاستخدم نفس الكود ولكن مع تغيير الاسماء..

2) لكتابة الكود عليك اولا تغييرالاجراء Change الموجودة بصفحة الكود الخاصة بها الي Click ثم اكتب الكود التالي:

Private Sub Combo1_Click()
Select Case List1.ListIndex
Case 0
Expression
Case 1
Expression
End Select
End Sub

الشرح كما هو في ComboBox