مرحبا بكم فى موقعكم التعليمى مفيدا ومستفيدا

مثال على ListBox

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

مثال على 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





avatar
sayed
Admin

عدد المساهمات : 190
تاريخ التسجيل : 10/10/2011
العمر : 62
الموقع : computer.hooxs.com

http://computer.hooxs.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى