جملة Select تشبه تقريباً جملة If إلا أنها تستعمل حالات متعددة وفي كل حالة تكتب تعليمة مختلفة.
الشكل العام للعبارة:
Select Case (العنصر)
Case (الحالة)
التعليمة
End select
يمكنك إضافة الكثير من الحالات ولاكن قبل End Select
سوف نعمل مثال بسيط لهذه الجملة.
أضف فورم وأضف الأدوات التالية:
Text1
Label1
Command1
أنقر فوق الزر نقرتين وأكتب الشيفرة التالية:
On Error GoTo b
Dim a As Integer
a = Text1
Select Case a
Case 0 To 10
Label1 = 'سيىء'
Case 10 To 40
Label1 = 'ضعيف'
Case 40 To 60
Label1 = 'وسط'
Case 60 To 80
Label1 = 'جيد'
Case 80 To 100
Label1 = 'ممتاز'
End Select
Exit Sub
b:
MsgBox 'الرجاء إدخال قيمة عددية ', vbCritical, 'خطأ في الكتابة'
شرج الشيفرة السابقة:
السطر الأول : التصريح عن خطأ أسميناه b
السطر الثاني: التصريح عن متحول عددي صحيح a
السطر الثالث: إسناد النص في Text1 إلى المتحول a
السطر الرابع إلى End Select بداية التعليمة Select . أي حدد حالات المتحول a في كل حالة عرض تعليمة مختلفة
السطور التي بعد End Select هي عمل الخطأ أي عرض رسالة عند الخطأ . حاول كتابة نص عادي فسوف تظهر لك الرسالة.
لا حظ أنه أنهينا العبارة ب End Select مثل End If
ويمكنك إستعمال العبارة الشرطية IF ولاكن عليك كتابة الجملة كاملة في كل حالة من الحالات السابقة.
العبارة Select Case
تاريخ الإضافة :
