[m.n.hakami]

عندي 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

[محمد كريّم]

كود :

       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

[m.n.hakami]

اشكر اهتمام جاري التجربه