Highlighting text

[leeprice2006]

Im using command to find a string in a rich text box:

        RichTextBox1.Find(TextBox1.Text)

How do I highlight the text after it has been found?

[nmadd]

Me.RichTextBox1.SelectionBackColor = Color.Blue

[leeprice2006]

how would I remove the highlightin when the text is changed

[VBDT]

This would highlight the found text

Private Sub FindButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindButton.Click
        Dim index As Integer = Me.RichTextBox1.Text.IndexOf(Me.FindTextBox.Text)
        Me.RichTextBox1.SelectionStart = index
        Me.RichTextBox1.SelectionLength = Me.FindTextBox.Text.Length
        Me.RichTextBox1.Focus()
    End Sub

You also can change its backcolor

Private Sub FindButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindButton.Click
        Dim index As Integer = Me.RichTextBox1.Text.IndexOf(Me.FindTextBox.Text)
        Me.RichTextBox1.SelectionStart = index
        Me.RichTextBox1.SelectionLength = Me.FindTextBox.Text.Length
        Me.RichTextBox1.SelectionBackColor = Color.Yellow
    End Sub

and the forcolor

Private Sub FindButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindButton.Click
        Dim index As Integer = Me.RichTextBox1.Text.IndexOf(Me.FindTextBox.Text)
        Me.RichTextBox1.SelectionStart = index
        Me.RichTextBox1.SelectionLength = Me.FindTextBox.Text.Length
        Me.RichTextBox1.SelectionColor = Color.Red
    End Sub

[Bulldog]

To highlight/unhighlight, just use the same code as VBDT posted;

    'Highlight selected text
    Private Sub HighlightSelection_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) _
    Handles HighlightSelection.Click
        RichTextBox1.SelectionColor = Color.Blue
    End Sub

    'UnHighlight selected text
    Private Sub UnHighlightSelection_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) _
    Handles UnHighlightSelection.Click
        RichTextBox1.SelectionColor = Me.ForeColor
    End Sub

    'Clear all highlighted text
    Private Sub UnHighlight_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) _
    Handles UnHighlight.Click
        RichTextBox1.SelectAll()
        RichTextBox1.SelectionColor = Me.ForeColor
        RichTextBox1.DeselectAll()
    End Sub

[dynamic_sysop]

why are people giving such lengthy codes for this?
the RichTextBox has a setting in the properties window called HideSelection it's default is True ( so as not to highlight )
Just set that to False , then

RichTextBox1.Find(TextBox1.Text)

will highlight the text it finds
you can set HideSelection through code also like this...

        RichTextBox1.HideSelection = False
        RichTextBox1.Find(TextBox1.Text)

[leeprice2006]

Thanks! is there a way so that when the user clicks the button again it will highlight the next one found

[dynamic_sysop]

yes buddy, you can expand on the Find function

'/// find first instance ( only matching whole words )
RichTextBox1.Find(TextBox1.Text, RichTextBoxFinds.WholeWord)

then find next item ...

'/// specify the index to start searching from ( anything above the start of the current selection will do even RichTextBox1.SelectionStart + 1 )
        RichTextBox1.Find(TextBox1.Text, RichTextBox1.SelectionStart + RichTextBox1.SelectionLength, RichTextBoxFinds.WholeWord)

[leeprice2006]

Nothings happening

[dynamic_sysop]

are you clicking a different button than the one to select the 1st word? you aint clicking the same button?
also have you tried RichTextBox1.Find(TextBox1.Text, " position to search from " ) without the last parameter?

[dynamic_sysop]

i put 2 buttons on a form, one to search for the 1st instance of the word, the 2nd button to find subsequent instances of the same word. it works fine here. this is all i did ...

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.HideSelection = False
        RichTextBox1.Find(TextBox1.Text, RichTextBoxFinds.WholeWord)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '/// with RichTextBox1.HideSelection set to False
        '/// this searches for subsequent instances of the same word & highlights them.
        RichTextBox1.Find(TextBox1.Text, RichTextBox1.SelectionStart + RichTextBox1.SelectionLength, RichTextBoxFinds.WholeWord)
    End Sub

[VBDT]

why are people giving such lengthy codes for this?
the RichTextBox has a setting in the properties window called HideSelection it's default is True ( so as not to highlight )
Just set that to False , then

RichTextBox1.Find(TextBox1.Text)

will highlight the text it finds
you can set HideSelection through code also like this...

        RichTextBox1.HideSelection = False
        RichTextBox1.Find(TextBox1.Text)

I tested your code and it highlights the word but the RichTextBox box blinks when I click on the button. Do you think that is normal? So what is the advantage of your code?

I think it would be better to set the HideSelection property in design time so that it won’t blink at run time.

[dynamic_sysop]

yes it's very true that it's best to set HideSelection @ design time.
I was only showing the function is there by running it under a button click that's why i said to do so in my 1st post

RichTextBox has a setting in the properties window called HideSelection it's default is True ( so as not to highlight )
Just set that to False , then

the advantage of the Find method & the HideSelection property is that that's what they are there for. should be fine with the HideSelection set at design in the properties window.
i spent a few years making chatroom bots for msn chat ( until they closed it ) through VB5 to VB6, then on to the .NET / C#, this gave me a great insight into the Richtextbox, due to the amount of work i had to do with them.
Regards.