• أحدث الأغاني و الموسيقى

    • Translate

    السبت، 15 يونيو 2013

    دالة If.....Then.......Else

    10:46 ص    1 comment

    اليوم هنتعرف على دالة جديدة و هى If.....Then......Else

    هذه الاداه تستخدم لاختبار شرطين



    على سبيل المثال نقوب بعمل برنامج به مربع كتابة Textbox

    و زر Button و نكتب الكود به الموجود اسفل 






    في السطر الاول من الكود اختبرنا شرط ان اذا كان صندوق 

    الكتابة فاضي و غير مكتوب به اي شئ يصدر رسالة مكتوب بها 

    أملأ الحقل اما السطر الاخير قلنا انه ان لم يكن فاضي اذا يصدر 

    رسالة العملية تمت بنجاح.

    هناك تعليق واحد:

    1. Unknown24 فبراير 2017 في 9:30 ص

      يظهر خطأ بعد التنفيذ الا اذا اضفنا كلمة Trim قبل مربع النص
      If Trim(TextBox1.Text) = "" Then
      MsgBox("ادخل رقما للسجل الذي تريد حذفه")

      ردحذف

    الاشتراك في: تعليقات الرسالة (Atom)