TEXT İÇİNDE ARAMA YAPMA

Forma 2 tane Text(text1 text2) ve 1 Tane Command1 Buton


Açıklama :
Text1 Aranılacak Yer

Text2 Aranılacak Kelime

Command1 Aramaı Başlat



Aşağıdaki Kod Olduğu gibi Yapıştırın !

=
Private Sub Command1_Click()
If sonraki = 0 Then sonraki = 1
Text1.SelStart = InStr(sonraki, Text1, Text2) - 1
Text1.SelLength = Len(Text2)
sonraki = Text1.SelStart + Text1.SelLength
Text1.SetFocus
End Sub


evet bu kadar çalıştırıp deneyin