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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 150 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 240 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  معرفة عدد مرات تكرار الاسم في الداتاقريدفيو صالح عبدالله 8 419 05-02-24, 04:39 PM
آخر رد: صالح عبدالله
Sad ممكن حل لهذا المشكل melad2002 0 237 30-01-24, 08:01 PM
آخر رد: melad2002
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 240 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  ممكن استفسار عن m3u8 malekmohamed155 0 219 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 201 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 351 13-01-24, 04:22 AM
آخر رد: dr.programming
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 710 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA

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


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