كيفية التأكد من القيم المدخلة فى مربعات النصوص بأبسط الطرق

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيفية التأكد من القيم المدخلة فى مربعات النصوص بأبسط الطرق

مُساهمة من طرف زهراء في السبت فبراير 09, 2013 7:51 pm

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


مساء الخير على الجميع .....اليوم أقدم لكم معلومة جديدة قد تكون غير معروفة للبعض وهى كيفية التأكد من القيم المدخلة فى مربعات النصوص بطريقة مختصرة و بسيطة .....فمثلا اذا كان لدى برنامج به نافذة فيها حوالى 5 مربعات نصوص و المطلوب أجبار المستخدم من أدخال بيانات فى تلك المربعات وعدم ترك أى مربع فارغ .......فمن البديهى أو الاكثر استخداما لدى كثيرا من المبرمجين أستخدام الكود التالى :


الرمز:
  If Len(Trim(Text1.Text)) = "" Then
        MsgBox "مربع الاسم خالى", vbCritical
        Beep
        Text1.SetFocus
        Exit Sub
    ElseIf Len(Trim(Text2.Text)) = "" Then
        MsgBox "مربع الوظيفة خالى", vbCritical
        Beep
        Text2.SetFocus
        Exit Sub
    ElseIf Len(Trim(Text3.Text)) = "" Then
        MsgBox "ÚÝæÇ ãÑÈÚ ÇáäÕ ÎÇáì ....ÊÇÑíÎ ÇáãíáÇÏ", vbCritical
        Beep
        Text3.SetFocus
        Exit Sub
    ElseIf Len(Trim(Text4.Text)) = "" Then
        MsgBox "مربع العمر خالى", vbCritical
        Beep
        Exit Sub
  ElseIf Len(Trim(Text5.Text)) = "" Then
        MsgBox "مربع الراتب خالى", vbCritical
        Beep
        Text5.SetFocus
        Exit Sub
End If
 


لكن هناك طريقة أفضل ومختصرة من كل تلك الاكواد وهى على النحو التالى :


الرمز:
Dim obj As Control
         
  For Each obj In Me
           
If TypeOf obj Is TextBox  Then
                    If obj.Text = ""
Then
MsgBox  " عفوا مربع النص خالى "  &  obj.Name ,
vbExclamation, Me.Caption
                   
obj.SetFocus
                    Exit Sub
                End
If
            End If
            Next obj
ارايتم كيف أختصرنا الكود السابق فى هذا الكود البسيط ....فتخليوا معى كم سيوفر لنا هذا الكود كثيرا من الوقت خصوصا لو أن مربعات النصوص أكثر من 5 مربعات كما أفترضنا فى المثال

زهراء
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 372
التقيم : 24
الدولة : مصر
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى