:Combo box control

موضوع: :Combo box control الخميس يوليو 24, 2008 12:27 pm

أزاى أملاء فية عناصر
أزاى لما أختار عنصر أقدر أحددة
هنجيب combo box و command 3 و text box
نضع فى ال command1 أى أنة عند الضغط هنكون أسماء هذة البلدان فى ال combo 1
"مصر"Combo1.additem
"السعودية"Combo1.additem
"لبيا"Combo1.additem
"تونس"Combo1.additem
وفى ال command الثانى تضع comb1.clear يعنى أمسح البيانات الفية
وهى وضع الأختيار من ال combo box فى ال text
فى ال command الثالث
Text.text = combo1.text
نأتى ب frame ونأتى على ال caption ونمسحها وتضع برنامج الجمع مثلا ونضع 3textbox +command ونسمية جمع ونضع فية الأمر التالى
(Text3.text = val(text1.text)+val(text2.text
وبعد كدة من شاشة خصائص ال frame ونخليها false بس كدة مش هتظهر حاجة ونأخذ المشروع الأول copy ونصفة فى نفس ال form ولكن بأسم برنامج الطرح ونبرمج ال command مع ملاحظة أختلاف ترتيب ال text فى ال form و ال command هيبقى طرح بدل من الجمع
طبعا ال form واحد وأثنين ال visable بتاعهم false هنحطها فوق بعض ونأتى ب combo box ومن شاشة خصائص ال combo box نضيف فى ال list كلمة الجمع و الطرح و الخروج
ونأتى ب command نسمية (نفذ) ،(موافق) تضع فية الكود الأتى
"جمع"=if combo1.text
Then
Frame1.visable=true
Frame2.visable=false
End if
"طرح"=if combo1.text
Then
Frame2.visable=true
Frame1.visable=false
"خروج"=if combo1.text
Then
End
End if
"أختار عنصر"msgbox
دة لو مش أختار شئ
لكن هنوجهنا مشكلة وهى رسالة أختر عنصر علشان البرنامج شغال دون توقف يعنى فى دورة متصلة وعلشان كلة الكود هيبقى بالشكل الأتى
"جمع" =If combo1.text
Then
Frame1.visable = true
Frame2.visable = false
Exit sub
End if
"طرح" =If combo1.text
Then
Frame1.visable =false
Frame2.visable = true
Exit sub
End if
"خروج" =If combo1.text
Then
End
End if
وطبيعى هنا هيخرج
وذلك علشان يخبط فى exit sub وميكملش