بسم الله الرحمن الرحيم
قاعدة IF
تستخدم هذه القاعدة لتنفيذ أمر في حالة تحقق شرط معين وإذا لم يتحقق الشرط تقوم بتنفيذ أمر أخر
مثال :
باستخدام مربع نص وزر أمر ونكتب الكود التالي
Private Sub Command1_Click()
If Text1.Text = "ALMUTASIM" Then
MsgBox "المعتصم "
Else
MsgBox "WRONG"
End If
End Sub
وفي هذا المثال إذا كتبت في مربع النص الكلمة ALMUTASIM ستظهر لك رسالة مكتوب فيها المعتصم وإذا كتبت أي شئ أخر ستظهر لك رسالة مكتوب فيها WRONG
ومن ذلك نعلم أن قاعدة IF تنفذ كالآتي :
Private Sub Command1_Click()
If (الشرط)
Then
ما سيحدث عند تحقق الشرط
Else
ما سيحدث عند عدم تحقق الشرط
End If
End Sub
ولكن هناك شئ أخر أننا إذا أردنا تنفيذ عدة أوامر عن طريق قاعدة IF فلن نحتاج إلي كتابتها أكثر من مرة ولكن بين كل شرطين نكتب ELSEIF
مثال في نفس المثال السابق عند كتابة ALMUTASIM تظهر رسالة "المعتصم" وعند كتابة ALI تظهر رسالة "علي"
فتكتب القاعدة كالتالي
Private Sub Command1_Click()
If Text1.Text = "ALMUTASIM" Then
MsgBox "المعتصم"
ElseIf Text1.Text = "ALI" Then
MsgBox "علي"
Else
MsgBox "RONG"
End If
End Sub