form üzerine bir tane buton, bir tanede textbox (multiline özelliğini true yap) yerleştir.aşağıdaki kodları yapıştır.incele istersen.ama vb6. çözüm hakkında bi fikrin olsun diye ekledim.
Option Explicit
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer
Private Sub Bul_Click()
ArananKelime = InputBox("text1 içinde aradığınız kelimeyi giriniz:", Bul, ArananKelime)
'Aranacak kelimeyi soruyoruz..
AramayaBasla = Text1.SelStart + Text1.SelLength
'Aramayı text1 içersinde işaretçinin bulunduğu karakterden başlatacağız..
If AramayaBasla = 0 Or AramayaBasla = Len(Text1.Text) Then AramayaBasla = 1
'Eğer işaretçi sonda veya başta ise aramayı bütün text1 içerisinde yapacağız..
KelimeninYeri = InStr(AramayaBasla, Text1.Text, ArananKelime, vbTextCompare)
'instr ile kelimenin text1 içerisinde başladığı yeri alacağız..
If KelimeninYeri = 0 Then
MsgBox "text1 içinde böyle bir kelime yok"
Else
Text1.SetFocus
Text1.SelStart = KelimeninYeri - 1
Text1.SelLength = Len(ArananKelime)
'Aranan kelimeyi seçtireceğiz..
End If
End Sub
<<< 10-HAGİ-10 >>>