امتحانات السودان 2014 واجابتها النموذجية --- تابع اخبار التعليم في الفيس بوك

آخـــر الـــمـــشـــاركــــات

النتائج 1 إلى 2 من 2

الموضوع: مثال على ListBox

  1. #1
    موجه الحاسب الآلي الصورة الرمزية س ا يوسف
    تاريخ التسجيل
    Mar 2009
    المشاركات
    3,680
    شكراً و أعجبني للمشاركة
    معدل تقييم المستوى
    4296

    افتراضي مثال على ListBox




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

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

  2. #2
    موجه الحاسب الآلي الصورة الرمزية س ا يوسف
    تاريخ التسجيل
    Mar 2009
    المشاركات
    3,680
    شكراً و أعجبني للمشاركة
    معدل تقييم المستوى
    4296

    افتراضي

    لحل هذا المثال
    نبدأ بالاسهل
    ازالة كل العناصر من 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


    التعديل الأخير تم بواسطة س ا يوسف ; 05-04-2009 الساعة 05:40 PM

معلومات الموضوع

الأعضاء الذين يشاهدون هذا الموضوع

الذين يشاهدون الموضوع الآن: 1 (0 من الأعضاء و 1 زائر)

المواضيع المتشابهه

  1. مثال 3-3 الفصل الثالث تطبيق على Listbox
    بواسطة س ا يوسف في المنتدى اوامر التكرار
    مشاركات: 6
    آخر مشاركة: 09-03-2012, 12:48 PM
  2. مثال جمع الاعداد الفردية لعدد محدد
    بواسطة س ا يوسف في المنتدى تمثيل البيانات
    مشاركات: 5
    آخر مشاركة: 06-03-2012, 11:55 AM
  3. مثال على if والشروط المركبة مثال 2-2
    بواسطة س ا يوسف في المنتدى الشروط والقرارات
    مشاركات: 4
    آخر مشاركة: 26-01-2012, 03:32 PM
  4. مثال 2-4 على chekBox
    بواسطة س ا يوسف في المنتدى الشروط والقرارات
    مشاركات: 4
    آخر مشاركة: 26-01-2012, 03:22 PM
  5. الاداة ListBox
    بواسطة س ا يوسف في المنتدى اوامر التكرار
    مشاركات: 0
    آخر مشاركة: 05-04-2009, 10:21 AM

المفضلات

ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  
RSS RSS 2.0 XML MAP HTML