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

                                                                            قاعدة 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