منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

انا ابحث داخل تيكست واظهر الناتج باليبل 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(stringToCheck) Then
                Label20.Text = "MODEL " & "  " & x
            Else
                Exit Sub

            End If
        Next 

اخي العزيز انا جربت الكود والكود شغال ما فيه أي مشكلة

ما الخطأ الذي يظهر لك؟

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

السلام عليكم و رحمة الله و بركاته

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mazen55

Sajad

تركي قرمزلي