تقييم الموضوع :
  • 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
اشكر اهتمام جاري التجربه
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن تحويل الكود من سي شارب لي فيجوال بيسك اليوم السابع 2 150 24-02-21, 05:57 PM
آخر رد: الماجيك مسعد
  ممكن التعديل في كود البحث المرفق أبووسم 0 67 24-02-21, 01:03 AM
آخر رد: أبووسم
  [VB.NET] الكود التالي ينفذ كل 10 من الشهر اريد ان ينفذ كل سنة وشكرا للمساعدة alim54 0 103 19-02-21, 11:01 PM
آخر رد: alim54
  كيف أكتب الكود ( Sql ) علي سطرين جرب كل المحاولات ؟؟ Abdh111 6 2,872 17-02-21, 09:07 PM
آخر رد: أبو عبدالله الحلواني
  ممكن كود عرض ال URL المفتوحه على متصفح جوجل كروم او فيرفوكس ahmed112001 1 109 17-02-21, 08:48 PM
آخر رد: Basil Abdallah
  هل ممكن أضع pdf في البرنامج نفسه..يقدر المستخدم يقرأه فقط عند فتح البرنامج؟ Alziny 2 137 16-02-21, 11:30 PM
آخر رد: Alziny
  [سؤال] كيف ممكن اعدل في Crystal Reports dubai.eig 2 124 16-02-21, 07:31 PM
آخر رد: dubai.eig
  [سؤال] ممكن مساعدة عاصم النجار 3 169 16-02-21, 01:00 AM
آخر رد: ابراهيم ايبو
  هل يمكن تحويل برنامجى من صيغة الكمبيوتر ليشتغل اندرويد على زهران 2 261 13-02-21, 10:15 AM
آخر رد: alfaiz678
  ممكن مساعده فى رفع نص معين على موقع باستبين ahmed112001 0 90 07-02-21, 05:30 PM
آخر رد: ahmed112001

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


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