TextBox ta Arama Yaptırmak-VisualBasic.Net

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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.