Highlight Selected Text

[mytaurus2000]

I am programming a simple word processor. How do you highlight the text after the word search? Here is my code:

Dim Target As String
Dim FoundPos As Single

Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
FoundPos = InStr(1, txtMemo.Text, txtTarget.Text)
txtMemo.SelectionStart = IIf(FoundPos > 0, FoundPos - 1, 0)
txtMemo.SelectionLength = IIf(FoundPos > 0, Len(Target), 0)
End Sub

 

[chrissie1]

So what doesn't work?

Christiaan Baes
Belgium

My Blog

 

[mytaurus2000]

When I click btnFind, the focus is sent to the word, but it doesn't highlight the searched word.

 

[Qamgine]

Where are you assigning text to the variable Target? You either need to assign txtTarget.Text to Target or use Len(txtTarget.Text)