السلام عليكم :
انتظر ظهور الفلاش لمشاهدة الشرح :
[flash=http://dc16.arabsh.com/i/03670/p2wxoqho8psj.swf]WIDTH=500 HEIGHT =400 [/flash]
تعلم كيفية تنفيذ الاوامر البرمجة من خلال اداة الكومبوبوكس
الكومبوبوكس يستخدم في البرنامج للتنظيم , اي بدل من استخدام 100 زر امر ( button ) على سبيل
المـثال , تستطيـــــــــــــــــع دمج جـــــــــــميع الاوامر بكومبوبــــــــوكس واحد فقــــــط وعند وهكذا ....
اول شيء لا ستـــــــــــخدام الكومبوبوكس يجب عليــــــــك ادخال اضافة العناصر الى الكومبوبوكس
وثانـــــــــــــي شيء علـــــــــــــــيك ان تضــــــــــيف الاوامر اليــــــــــــــه لكي يعــــــــــمل برمجياً ......
على سبيل المثال انا ساقوم بعمل برنامج يربط الكومبوكس بالتيكست بوكس ( صندوق النص )
اي عند اختيار قيمة من الكومبو .. ســـــــوف تظهر قيمـــــــــــــــــتها في التيــــــــــكست بـــــوكس
البرنامج الي سوف نقوم بعمله على اعضاء درر العراق .. سوف اضيف الاسماء الى الكومبو
وعند اختيار اي اسم سوف تظهر كتابة بالتيكست بوكس تخص الاسم المختار .....
طريقة العمل :
اول شيء قم باضافة تيكست بوكس واحد وكومبوبوكس واحد ايضاً
في حدث تحمل الفورم اكتب الكود ادناه :
كود PHP:
' الكود ادناه مخصص لاضافة العناصر للكومبويوكس
' اعضاء شبكة درر العراق
Combo1.AddItem("ابو الحسن")
Combo1.AddItem("داستان")
Combo1.AddItem("لوجين")
Combo1.AddItem("زهرة مصر")
Combo1.AddItem("سوزان")
Combo1.AddItem("سجاد")
Combo1.AddItem("نيو")
Combo1.AddItem("عمار")
Combo1.AddItem(" دالين")
Combo1.AddItem("الحالمة")
Combo1.AddItem("نور الهدى")
===========================
ثم نعطي الاوامر المراد تنفيذها عند اختيار العنصر من الكومبو بوكس
في حدث الكلك للكومبو
كما في الكود ادناه :
كود:Select Case Combo1.ListIndex Case 0 Text1.Text = " اخترت ابو الحسن" '*************************** Case 1 Text1.Text = " اخترت داستان" Case 2 Text1.Text = " اخترت لوجين" Case 3 Text1.Text = " اخترت زهرة مصر" Case 4 Text1.Text = " اخترت سوزان" Case 5 Text1.Text = " اخترت سجاد" Case 6 Text1.Text = " اخترت نيو" Case 7 Text1.Text = " اخترت عمار" Case 8 Text1.Text = " اخترت دالين" Case 9 Text1.Text = " اخترت الحالمة" Case 10 Text1.Text = " اخترت نور الهدى" End Select
====================================
ادناه كود المشروع كاملاً :
كود PHP:' بسم الله الرحمن الرحيم
' مثال بسيط جداً لتعلم اداة الكومبوبوكس
' اتمنى لكم الاستفادة
' coded by spyman form dorar al iraq
'============================
Private Sub Form_Load()
' الكود ادناه مخصص لاضافة العناصر للكومبويوكس
' اعضاء شبكة درر العراق
Combo1.AddItem("ابو الحسن")
Combo1.AddItem("داستان")
Combo1.AddItem("لوجين")
Combo1.AddItem("زهرة مصر")
Combo1.AddItem("سوزان")
Combo1.AddItem("سجاد")
Combo1.AddItem("نيو")
Combo1.AddItem("عمار")
Combo1.AddItem(" دالين")
Combo1.AddItem("الحالمة")
Combo1.AddItem("نور الهدى")
End Sub
Private Sub Combo1_Click()
'هذا الكود في حدث الكلك الخاص بالكومبوبوكس ' وعمله اعطاء البرنامج امر باظهار نص في صندوق النص .. اي التيكس بوكس
Select Case Combo1.ListIndex ' في الكود ادناه اعطينا امر للبرنامج وهو ' عند اختيار الخيار الاول قم باظهار النص "اخترت ابو الحسن " في صندوق النص
Case 0 ' تمثل رقم الخيار
Text1.Text = " اخترت ابو الحسن" ' تمثل الحدث المراد تطبيقه
'***************************
' في الكود ادناه اعطينا امر للبرنامج وهو ' عند اختيار الخيار الثاني قم باظهار النص "اخترت داستان " في صندوق النص ' وهكذا
Case 1 ' تمثل رقم الخيار
Text1.Text = " اخترت داستان" ' تمثل الحدث المراد تطبيقه
Case 2 Text1.Text = " اخترت لوجين"
Case 3 Text1.Text = " اخترت زهرة مصر"
Case 4 Text1.Text = " اخترت سوزان"
Case 5 Text1.Text = " اخترت سجاد"
Case 6 Text1.Text = " اخترت نيو"
Case 7 Text1.Text = " اخترت عمار"
Case 8 Text1.Text = " اخترت دالين"
Case 9 Text1.Text = " اخترت الحالمة"
Case 10 Text1.Text = " اخترت نور الهدى"
End Select
End Sub
' اذا استفدت من احد مواضيعي ادعي لابي وامي وكل اموات المسلمين بالرحمة والمغفرة
لتحميل مثال جاهز من المرفقات
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة أريج الروح
والله حاولت هواي بي بس ما عرفت شلون اسوي دخت بالاكواد شلون اخليهن ؟ 