مثال على ListBox

من طرف **sayed** السبت نوفمبر 12, 2011 11:50 am

مثال على ListBox

المطلوب كتابة الاكواد للشكل بحيث

عندما نضفط الزر btnAddDays يتم ادخال ايام الاسبوع في lstDays
عند الضفط على الزر btnCopy يتم ادخال العنصر الذي تم اختياره الي lstChosen
عند الضفط على الزر btnClearDays يتم ازالة كل العناصر في lstDays
عند الضفط على الزر btnClearChosen يتم ازالة كل العناصر في lstChosen

لحل هذا المثال

نبدأ بالاسهل
ازالة كل العناصر من Listbox نستخدم الطريقة Clear التي تكون احد طرق الكائن Items الخاص بمعرفة العناصر
وعليه يكون الكود النموذج وسيكون Me ثم اسم الاداة Listbox ثم معرفة العناصر Items ثم الازالة () Clear
طبعا من الشمال الى اليمين وبفاصل نقطة
نبدأ بـــــــ
عند الضفط على الزر btnClearDays يتم ازالة كل العناصر في lstDays
يبقى نكتب الاكواد داخل معالج الحدث الخاص بها btnClearDays ويكون اسم الاداة Listbox هو lstDays
ويكون الكود هو
()Me.lstDays.Items.Clear

عند الضفط على الزر btnClearChosen يتم ازالة كل العناصر في lstChosen
يبقى نكتب الاكواد داخل معالج الحدث الخاص بها btnClearChosen ويكون اسم الاداة Listbox هو lstChosen
ويكون الكود هو
()Me.lstChosen.Items.Clear

طب ازاي نضيف عنصر بـ Add
يبقى Me ثم اسم الاداة Listbox ثم ثم معرفة الععناصر Items ثم الاضافة Add
عندما نضفط الزر btnAddDays يتم ادخال ايام الاسبوع في lstDays
يبقى نكتب الاكواد داخل معالج الحدث الخاص بها btnAddDays ويكون اسم الاداة Listbox هو lstDays
ويكون الكود هو
ويكرر بايام الاسبوع
("Me.lstDays.Items.Add("Saturday
("Me.lstDays.Items.Add("Sunday
("Me.lstDays.Items.Add("Monday
("Me.lstDays.Items.Add("Tuesday
("Me.lstDays.Items.Add("Wednesday
("Me.lstDays.Items.Add("Thursday
("Me.lstDays.Items.Add("Friday

عند الضفط على الزر btnCopy يتم ادخال العنصر الذي تم اختياره الي lstChosen
يبقى نكتب الاكواد داخل معالج الحدث الخاص بها btnCopy ويكون اسم الاداة Listbox هو lstDays
طب احنا عارفين الاضافة Me ثم اسم الاداة Listbox ثم ثم معرفة الععناصر Items ثم الاضافة Add
بس ازاي نضيف عنصر تم اخياره
الاول اختيار عنصر
يبقى Me ثم اسم الاداة Listbox ثم خاصية اختيار العنصر SelectedItem
ودا كله يوضع بعد Add
ويكون الكود هو

(Me.lstChosen.Items.Add(Me.lstDays.SelectedItem