منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

محمد كريّم

m.n.hakami