مساعدة في بناء جملة select case

قم بإرفاق ملف البرنامج لكي نقوم بمحاولة حل المشكلة

يا اخي المثال كبير

والشرح واضح

الاخ ابو وليد

انا معلوماتي بلبرمجة قليلة ولكن هذه محاولة ارجو ان تكون صحيحة

مربع النص اسمه txt

select case txt.Value

4 = > case txt.Value

..............

8 =>case txt.Value>4 and txt.Value .........................

case txt.Value>8

...................

end select

استأذنكم بالمشاركة:

على افتراض أن الدالة تحمل الاسم F

يمكنك استخدام كود مشابه للتالي:

Function f(a As Integer)
Select Case a
Case Is '
Case 4 To 8
'
Case Is > 8
'
End Select
End Function

شكرا للجميع

ساجرب

مع أنني متأكد ان كود الاخ المزيني أقرب للصحة

لم ينجح معي فقد حاولت جاهدا

أخي الكريم:

المثال المرفق يؤكد صحة الكود المكتوب أعلاه.

عفواً فقد نقرت زر "أضف مشاركة" بدل زر "استعراض" فسقط المثال ورغم محاولاتي الياسة من تدارك الأمر بتعديل المشاركة ومحاولة إرفاق المثال أو على الأقل مسح المشاركة وإعادة كتابتها لكن لم تنجح أي من تلك المحاولات فلم أجد غير إرفاق المثال في رد آخر وهذا مالا أحبذه!

db_1_.zip

أليست هذه الطريقة أسهل مع احترامي للإستاذ الفاضل /المزيني الله يخليه لهذا المنتدى

db_2_.zip

شكرا لكل من ساهم معي في حل المشكلة

نعم حل اخي المزيني هو الصحيح مع تعديل طفيف بسبب انني استخدمه داخل كود كبير وليس منفردا

Select Case a

Case 1 to 4

'

Case 4 To 8

'

Case 9 to 14

'

End Select

[code]

وفق الله الجميع

سوف احمل الامثلة الجديدة للفائدة مستقبلا