+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن تحويل الكود لحلقة تكرار (/showthread.php?tid=32046)
ممكن تحويل الكود لحلقة تكرار - m.n.hakami - 09-11-19
عندي 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 IfRE: ممكن تحويل الكود لحلقة تكرار - محمد كريّم - 09-11-19
كود :
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
NextRE: ممكن تحويل الكود لحلقة تكرار - m.n.hakami - 10-11-19
اشكر اهتمام جاري التجربه