• فيجوال بيسك
  • 10659
  • 20-3-2008
  • أولاً - العبارة: IF - Then تستخدم عبارة الشرط If في شروط أي أنه إذا تحقق الشرط عند ذلك إعمل الحدث وإلا أي إذا لم يتحقق ألغي الحدث أو إعمل حدث أخر. التعليمة البسيطة لعبارة If هي كالتالي:
    image
    في هذه التعليمة إذا تحقق الشرط تنفذ كل اتعليمات التي بعد كلمة Thenوإذا لم ينفذ الشرط تنفذ التعليمات الواردة على السطر التالي لعبارة الشرط. هذه الجملة البسيطة . ولاكن هناك جملة IF - Then - Else وهو عندما يتحقق الشرط نفذ تعليمة ما وإذا لم يتحقق فهناك تعليمة أخرى سوف تنفذ في حال عدم تحقق الشرط. الشكل العام للتعليمة:
    image
    مثال: ضع أداة النص Text1 و زر أمر Command1 أكتب السطر التالي في حدث الزر:
    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 
    نهاية الدرس وبالتوفيق للحميع
    كن أول من يقيم الموضوع
    12345