الاخوة الكرام
عندما استخدمت دالة select case في حالة وجود بضعة اختيارات(cases)قليلة
فكانت تعمل بكفاءة مثل:
Private Sub Command1_Click() Select Case List1.Text Case "1" Text1.Text = "السلام عليكم" Case "2" Text1.Text = "ارجوا اجابتكم" Case Else Text1.Text = "مع تحياتي" End Select End Sub
و لكن برنامجي لا يحتوي علي اختيارين فقط بل يصل به عدد الخيارات الي 21
و عند ذلك لا يعمل الكود مطلقا كما انه لا يعطي اي رسالة خطأ !!
فلماذا؟ و هل هذا امر طبيعي؟ و ما هو الحل البديل ؟ ارجوا كتابة الحل علي شكل كود ؟
و السلام عليكم و رحمة الله و بركاته
