تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن تحويل الكود لحلقة تكرار
#1
عندي 20 texebox بنفس الاسم يختلف فقط الرقم اريد الكود التالي يكون حلقة تكرار حتى لا اكتبه 20 مره 

الكود يعني ان text لا يقلبل الا ثلاثه ارقام هي 0 و4و8 
كود :
If Me.Ev_text6.Value <> 0 Or Me.Ev_text6.Value <> 4 Or Me.Ev_text6.Value <> 8 Then
MsgBox "القيمه المدخله خاطئه"
End If
الرد
تم الشكر بواسطة:
#2
كود :
       Dim AllowedNumbers As String() = {"0", "4", "8"} ' الأرقام المسموح بادخالها

' استبدل كلمة Me في السطر التالي باسم الأداة التي تحتوي على مربعات النص العشرين
' مثلا لو كانوا في بانل اسمها panel1 استخدم هذا الاسم
       For Each ctrl As Control In Me.Controls
           If (ctrl.GetType() Is GetType(TextBox)) Then

               Dim txt As TextBox = CType(ctrl, TextBox)
               If Not AllowedNumbers.Contains(txt.Text) Then
                   MsgBox("القيمه المدخله خاطئه")
               End If

           End If
       Next

الرد
تم الشكر بواسطة: ابو روضة
#3
اشكر اهتمام جاري التجربه
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم