. سنتعلم انشاء قوائم منسدلة

و عند اختيار شئ من تلك القائمة ستظهر لنا بعض التفاصيل عن تلك الكلمة .

ما رأيك اخي ان نعمل بريمج صغير يحتوي على قوائم منسدلة و تلك القائمة المنسدلة تحتوي على اسماء الدول و عند اختيار دولة من القائمة سيظهر لنا في صندوق اسم الدولة و مكان تواجدها .

بسم الله نبدا .

ابدا مشروع قياسي كالعادة .
و غير فيه ليتناسب معك نحن هنا غيرنا اسم النموذج الى ( الدول ) .
الأن اعمل مربع عنوان Labe1 في اعلى وسط النموذج و اكتب فيه ( دول العالم ) مثلا .
في صندوق الادوات اختر على اداة قائمة منسدلة List كما هو موضح أدناه .

اعمل مربع عنوان اخر Label2 بجانب القائمة المنسدلة و اعطه عنوان ( اختر دولة ) .
اعمل مربع عنوان ثالث Label3 و اتركه فارغا ( لتركه فارغ لا تكتب شيئ عليه ) .
اعمل مربع عنوان رابع Label4 و اتركه فارغ ايضا و غير خاصية الحدود التي هي Border style الى الاعداد

1-fixed Singele .

الان اعمل رز Command 1 غير خاصية CAPTION الى ( إنهاء ) .

عندها ينتج لنا الشكل التالي :

الان دور الكود .

سوف نكتب الشفرة الخاصة بالقائمة المنسدلة
انقر النموذج نقرا مزدوجا يظهر الاجراء الحدثي Form_Load تظهر لك نافذة الشفرة و الجملتين البرمجيتين التاليتين :

Private Sub Form_Load



End Sub

اكتب الشفرة التالية بين الجملتين السابقتين :

List1.AddItem "السعودية "
List1.AddItem " مصر "
List1.AddItem " الجزائر "
List1.AddItem " ليبيا"
List1.AddItem "المغرب "

لينتج لنا الشكل الإجمالي التالي للكود :

Private Sub Form_Load()
List1.AddItem "السعودية "
List1.AddItem " مصر "
List1.AddItem " الجزائر "
List1.AddItem " ليبيا"
List1.AddItem "المغرب "
End Sub

تستعمل الشفرة السابقة لاضافة البنود داخل القائمة المنسدلة و التي طبعا و حتما ستظهر عند تشغيل البرنامج .

الان اخي الكريم انقر فوق قائمة السرد نقرتين يظهر لك الاجراء الحدثي التالي List1_Click داخل الجملتين البرمجيتين التاليتين :


Private Sub List1_Click()


End Sub


اكتب بينهما الجمل البرمجية التالية :

Label3.Caption = List1.Text
Select Case List1.ListIndex
Case 0
Label4.Caption = " السعودية بلد في الجزيرة العربية في قارة اسيا "
Case 1
Label4.Caption = " مصر بلد افريقي "
Case 2
Label4.Caption = " تقع الجزائر في شمال القارة السمراء ( القارة الأفريقية ) "
Case 3
Label4.Caption = " تقع ليبيا في افريقيا "
Case 4
Label4.Caption = " تقع المغرب في غرب القارة الافريقية "

End Select

لينتج لنا هذا الشكل الإجمالي للكود :

Private Sub List1_Click()
Label3.Caption = List1.Text
Select Case List1.ListIndex
Case 0
Label4.Caption = " السعودية بلد في الجزيرة العربية في قارة اسيا "
Case 1
Label4.Caption = " مصر بلد افريقي "
Case 2
Label4.Caption = " تقع الجزائر في شمال القارة السمراء ( القارة الأفريقية ) "
Case 3
Label4.Caption = " تقع ليبا في افريقيا "
Case 4
Label4.Caption = " تقع المغرب في غرب القارة الافريقية "

End Select

End Sub


شرح الكود :

السطر الأول من الكود يعطي الامر لكتابة اسم الدولة المختارة في صندوق العنوان Label3 .
اما الاسطر الباقية فهي التي تتحكم في الجمل التي ستظهر عند اختيار البند من القائمة المنسدلة .
السطر ما قبل الاخير هو لاعلام البرنامج بانتهاء جمل القائمة .

الان هيا لاخر خطوة في البرنامج هو زر الانهاء لانهاء البرنامج طبعا كنا قد تعلمنا هذا في دروس سابقة لكن دعنا نعيد ذلك باختصار شديد انقر نقرتين فوق زر الانهاء اكتب بين الجملتين البرمجييتن الالتي ستظهران الامر التالي :

ٌُُُُEnd

و اخير عزيزنا الغالي من المؤكد انك حصلت على برنامج كهذا .