منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - الى خبراء فى النصوص فى الفيجوال بيسك اريد معرفة نتيجة هذا الكود ؟؟

السلام عليكم

ترون هذا الكود

PHP كود :

If TextBox1.Text.ToLower().Contains(TextBox2.Text.ToLower()) Then
            TextBox1.SelectionStart = TextBox1.Text.ToLower().IndexOf(TextBox2.Text.ToLower())
            TextBox1.SelectionLength = TextBox2.Text.Length
            TextBox1.HideSelection = False


        End If 

ده كود بيبحث عن كلمة فى textbox

لو لقيها بيعمل select عليها

انا عايز بدل ما يعمل select
يطلع رسالة بالكلمة الى عثر عليها

؟؟؟؟؟؟؟
ارجو المساعدة

ويا ريت لو الكود ده كمان حد يطلعلى ناتج بحثة ده بيتاكد من نص موجود فى لستة arry

PHP كود :

If New List(Of String)(txtDataViwe.Text.Split(New String() {" ", Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)).Contains(txtxxxxxxxxxx.Text) Then
            MessageBox.Show("موجود")
        Else

        End If 

كود :

If TextBox1.Text.ToLower().Contains(TextBox2.Text.ToLower()) Then

            TextBox1.SelectionStart = TextBox1.Text.ToLower().IndexOf(TextBox2.Text.ToLower())

            MsgBox(Mid(TextBox1.Text, TextBox1.SelectionStart + 1, TextBox2.Text.Length))

        End If

بالنسبة للمصفوفة اسهل طريقة هكذا

كود :

For i As Integer = 0 To UBound(str)

            If str(i).ToLower.Contains(TextBox1.Text.ToLower) = True Then

                MsgBox(str(i))

            End If

        Next

شكر على مرورك لاكن يوجد خطاء فى الجملة الاولى فى كلمة
str

PHP كود :

For i As Integer = 0 To UBound([color=#FF0000]Str[/color])
            If Str(i).ToLower.Contains(TextBox1.Text.ToLower) = True Then
                MsgBox(Str(i))
            End If
        Next 

لا اخي لايوجد خطأ str هي المصفوفه

كود :

Dim arr() As String = {"vb4arb", "member_3booody:", "abc", "Arr", "Str", "freeviwer"}

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For i As Integer = 0 To UBound(arr)

            If arr(i).ToLower.Contains(TextBox1.Text) = True Then

                MsgBox("المصفوفه=" & arr(i) & vbNewLine & "رقم المصفوفه=" & i)

            End If

        Next

    End Sub

اشكرك جدا :o اخى 3booody