تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود البحث داخل مصفوفة بشرط
#1
انا ابحث داخل تيكست واظهر الناتج باليبل 4 اريد ان اقارن بين ناتج البحث والمصفوفة
انا حاولت بالكود دة

لم ينجح معي هذا الكود

ناتج البحث مثلا
2005
OR 2006
المصفوفة
PHP كود :
Dim stringArray As String() = {"2005" _
"2006""2008""2009""2010""2011"}
        
Dim H As String Label4.Text
               Dim stringToCheck 
As String H
                
For Each x As String In stringArray
            
If x.Equals(stringToCheckThen
                Label20
.Text "MODEL " "  " x
            
Else
                Exit 
Sub

            End 
If
        
Next 
الرد }}}}
تم الشكر بواسطة:
#2
اخي العزيز انا جربت الكود والكود شغال ما فيه أي مشكلة

ما الخطأ الذي يظهر لك؟
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم و رحمة الله و بركاته
أعتقد أن الأمر Exit Sub ليس في المكان المناسب

كود :
Dim stringArray As String() = {"2005" , "2006", "2008", "2009", "2010", "2011"}
        Dim H As String = Label4.Text
               Dim stringToCheck As String = H
                For Each x As String In stringArray
If x.Equals(stringToCheck) Then
                Label20.Text = "MODEL " & "  " & x
                         Exit Sub
            End If
        Next

كما يمكنك استبدال exit Sub بــ exit For إذا كان هناك بعض الأوامر في الإجراء
بالتوفيق إن شاء الله تعالى

السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب كود تغير الصورة من داخل البرنامج MOSTAFA.KAMEL 3 95 أمس, 03:48 PM
آخر رد: Adrees
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 2 159 21-03-17, 05:01 PM
آخر رد: zinab ali
  [سؤال] كيف اجعل شئ داخل برنامجى يساوى صورة خارج البرنامج؟؟؟ Mohamed371 3 85 20-03-17, 04:49 AM
آخر رد: silverlight
  [VB.NET] طلب شرح كيفيه ارفاق الملفات داخل البرنامج والاتصال بها دون ان يراها احد MOSTAFA.KAMEL 8 150 13-03-17, 11:24 PM
آخر رد: MOSTAFA.KAMEL
  اريد اخفاء البيانات من الفورم أثناء بداية عمل البرنامج أبووسم 6 100 12-03-17, 03:42 AM
آخر رد: أبووسم
  [VB.NET] اريد منكم افكار لمشروع تخرج (" مراقبة او متابعة مشروع التخرج ") وشكراا" Mohamed_Libya 2 86 11-03-17, 08:21 PM
آخر رد: Mohamed_Libya
  [VB.NET] كيف ارتب الاسماء داخل اللست بوكس؟ 3asfa~mdmra 1 39 10-03-17, 09:42 PM
آخر رد: مساعدة
  [سؤال] استفسار عن كود البحث المتعدد Marwan9990 18 287 02-03-17, 09:19 AM
آخر رد: Marwan9990
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 8 229 01-03-17, 09:25 PM
آخر رد: فارس احمد السيد
  استفسار حول كود البحث المتعدد حسب الاصناف oman 5 151 28-02-17, 09:58 PM
آخر رد: Marwan9990

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


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