بسم الله الرحمن الرحيم

Select Case


تصلح عبارة الشرط if إذا كان جواب الشرط

عبارة عن احتمالين أو ثلاثة أما إذا كنت تتوقع

عند تقييمك لشرط معين احتمالات كثيرة فمن

الأفضل أن نستخدم عبارة Select Case وتكون

صيغتها العامة ما يلى : تبدأ العبارة بـ Select Case

يليها اسم المتغير او التعبير الذى سيتم اختباره .

تأتي بعد ذلك الاحتمالات Case بعد كل منها احدى

قيم المتغير الذى ستتم مقارنته ثم يعقبها التعليمات

التى ستنفذ إذا كان الشرط صحيحًا أو كان المتغير

بهذه القيمة . واخيرًا يأتى Case else ومعناها

إذا كان المتغير لا يساوي أيًا من القيم السابقة

أو إذا لم يكن الشرط صحيحًا فإن التعليمات التى تلى Else هي التى تنفذ .

مثال: ضع تكست بوكس و زر امر و اكتب به هذا الكود:

اولاً اضف إلى مشروعك زرcommand و تيكست text1

واكتب الكود التالي في الكوماند
Private Sub Command1_Click
Select Case Text1.Text
Case "Bibo"
MsgBox "You Choosen Bibo.."
Case "Ehab"
MsgBox "You Chosen Ehab.."
Case Else
MsgBox "Wrong!"
End Select
End Sub

شرح الكود :

حددنا نوع الأداة المتصلة ب select case
والمقصود بالجملة التالية

Case "Bibo"

هي أن اذا كتب في التيكست 1 كلمة bibo
فسيعطي البرنامج تلقائياً رسالة msgbox

"MsgBox "You Choosen Bibo


واما المقصود في جملة case else
فهي ان قام المستخدم بكتابة أحد الأسماء غير المذكورة في ال case
فسوف يعطي رسالة تنبيه
واخير اً ننهي جملة ال case بالكود التالي


END SELECT

جزاك الله خيرا

عمل رائع تستحق الشكر والتقدير.

شـــــــــــــــــــــــــــــــرح رائــــــــــــــــــــــــــــع

شرح جميل بارك الله فيك وياريت مزيد من الأمثلة التطبيقية ومشاريع كاملة تتضمن كلا من if و select case

جــــــــــــــــــزاك اللـــــــــــــــــــــه خيـــــــــــــــــــــرا