TextBox ta Arama Yaptırmak

Formunuza 2 adet TextBox ve 1 adet Button ekleyin. Textbox2 ye yazdığımız kelimeyi TextBox1 de aratacağız. Aşağıdaki şekilleri inceleyin.

Şekil 1

Şekil 2

Public Class Form1
    Dim ArananKelime As String
    Dim KelimeninYeri, AramayaBasla As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error GoTo hata
        ArananKelime = TextBox2.Text ‘textbox2 içindeki kelimeyi arayacağız
        AramayaBasla = TextBox1.SelectionStart + TextBox1.SelectionLength
        If AramayaBasla = 0 Or AramayaBasla = Len(TextBox1.Text) Then
            AramayaBasla = 1 ‘aranan kelime bulunmazsa başa döneceğiz
            KelimeninYeri = InStr(AramayaBasla, TextBox1.Text, ArananKelime, vbTextCompare)
            TextBox1.Focus() ‘kelime bulunduğunda işaretliyoruz
            TextBox1.SelectionStart = KelimeninYeri - 1
            TextBox1.SelectionLength = Len(ArananKelime)
            Exit Sub
        End If
hata:
        TextBox1.SelectionStart = 1

    End Sub
End Class

Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN