Jeg bruger følgende kode til at finde noget tekst i et dokument.
Problemet er, at det kun er søgeordet som får sat fokus, det skulle gerne
være hele linjen. Hvordan gør jeg det?
Frank
Private Sub Command2_Click()
Dim foundPs As Integer
Dim FoundLine As Integer
FoundPos = RichTextBox1.Find(Text1.Text, , , rtfWholeWord)
If FoundPos <> -1 Then
FoundLine = RichTextBox1.GetLineFromChar(FoundPos)
Else
MsgBox "word not found"
End If
End Sub
|