أولاً - العبارة: IF - Then
تستخدم عبارة الشرط If في شروط أي أنه إذا تحقق الشرط عند ذلك إعمل الحدث وإلا أي إذا لم يتحقق ألغي الحدث أو إعمل حدث أخر.
التعليمة البسيطة لعبارة If هي كالتالي:
نهاية الدرس وبالتوفيق للحميع
If Text1 = \'kaled\' Then Unload Me Else MsgBox \'Password Error Try Again\'
إذا كان النص المكتوب هو \'kaled\' عند ذلك أغلق البرنامج وإلا إعرض رسالة الخطأ
ويمكنك أن تضع التعليمة في عدة أسطر:If الشرط Then
تعليمة
Else
تعليمة عدم تحقق الشرط
End If
إذا كانت التعليمة في عدة أسطر فيجب دائماً أن توجد تعليمة End If في نهاية عبارة IF
مثال
If Text1.text=\'kaled\' Then
Msgbox\'تم تسجيل دخولك\'
Unload me
Else
Msgbox\'الكلمة التي قمت بكتابتهاغير صحيحة \'
End If
نهاية الدرس وبالتوفيق للحميع
التعليقات على المقالة 1
حنونه 12-9-2012
رد