اريد كود البحث داخل مصفوفة بشرط

تقييم الموضوع :
  • 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 إذا كان هناك بعض الأوامر في الإجراء
بالتوفيق إن شاء الله تعالى

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد سورس كود لبرنامج ارسال رسائل sms عبر كمبيوتر بالاتصال بهاتف عبر البلوتوث khalilfox 1 56 18-08-18, 07:51 PM
آخر رد: YousefOkasha
Information [سؤال] اريد حل لمشكلة فتح البرنامج اكثر من مرة بالفيجوال 2008 DK-x 6 332 18-08-18, 07:08 PM
آخر رد: DK-x
  اضافة فورم داخل فورم آخر الميامن 6 1,676 15-08-18, 09:31 PM
آخر رد: Ali Naser
  الكتابة داخل datagridvew atef_020 11 130 15-08-18, 07:58 PM
آخر رد: elgokr
Sad [VB.NET] يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم khalilfox 24 764 13-08-18, 05:44 AM
آخر رد: elgokr
  اريد مشروع لادارة صلات الجيم ...وطباعة الكروت من فظلكم khalilfox 4 94 07-08-18, 12:46 PM
آخر رد: khalilfox
  [VB.NET] تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) larbihamri 6 89 05-08-18, 07:26 PM
آخر رد: larbihamri
  [VB.NET] اريد كود التحقق من ان عملية التحميل تمت ام لم تتم في لغة الفجوال.نت MoatazMedo5 2 87 05-08-18, 03:00 AM
آخر رد: سعود
  [سؤال] كود البحث بالتاريخ عقدني هل من مساعدة بكود البحث بالتاريخ vb.net and sql essawq 3 95 04-08-18, 04:01 PM
آخر رد: aljzazy
  البحث في الداتاقريدفيو المتألق9 2 85 31-07-18, 07:40 AM
آخر رد: GameOver

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


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