TextBoxta Arama Yapmak

Merhaba arkadaşlar. Bu makalemizde TextBox nesnesinde arama yapacağız. Formumuza 2 tane Textbox ve 1 tane buton ekliyoruz. TextBox2 ye yazdığımız kelimeyi TextBox1 içeriğinde aratacağız.

Şekil1

Public Class Form1

    Dim AranılanKelime As String

    Dim KelimeninKonumu, Başla As Integer

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

        On Error GoTo git

        AranılanKelime = TextBox2.Text 'Textbox2 ye yazılan kelimeyi aratacağız.

        Başla = TextBox1.SelectionStart & TextBox1.SelectionLength

        If Başla = 0 Or Başla = Len(TextBox1.Text) Then

            Başla = 1 'Aranan kelime bulunamazsa başa dönülecek.

            KelimeninKonumu = InStr(Başla, TextBox1.Text, AranılanKelime, vbTextCompare)

            TextBox1.Focus() 'Aranılan kelime bulunduğunda işaretliyoruz

            TextBox1.SelectionStart = KelimeninKonumu - 1

            TextBox1.SelectionLength = Len(AranılanKelime)

            Dim i As Integer

            i = TextBox1.Text.IndexOf(TextBox2.Text) 'Aranılan kelimenin yazıdaki konumunun değerini alıyoruz.

            MsgBox("Aranılan kelime, TextBoxta " & i & " . karakterde bulundu.")

            Exit Sub

        End If

git:

        TextBox1.SelectionStart = 1

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle.  Bol kodlu günler. Bahadır ŞAHİN