HELP: Rich Text Boxes

[Emcrank]

I have a number of questions about rich text box.

1. How do i change the font by clicking a button.

2. Also i want a Find control but how do i get it to find it then select it.

3. Lastly Im having a Find and Replace where it finds the text in a textbox and then replaces it with what ever is in another textbox.

[Vectris]

For 3 use the replace command.

RichTextBox1.Text = RichTextBox1.Text("Text to Be Replaced", "Text to Replace with")

And could you give an example for 2? It doesn't make much sense.

[Emcrank]

That doesn't work and an example for number 2 is this:

Ok lets say i have a peice of text:

Hi, Grandma lets go to the shop

but i wanted to just find

Grandma lets go

i want it to find this text then select it (highlight it)

This is what doesn't work about it: i have this but it doesn't work

RTB1.Text = RTB1.Text(Find_TB.Text, Replace_TB.Text)

[Vectris]

Do you want to simply highlight Grandma lets go, or do you want for all the text except for Grandam lets go to be removed? If all you want to do is highlight it, use this:

        Dim theText As String = "happy burger"
        RichTextBox1.Select(RichTextBox1.Text.IndexOf(theText), theText.Length)
        RichTextBox1.Focus()

Also, could you be more descriptive about whats wrong with 3? The code I gave you works perfectly fine for me, is it not doing what you want, is it giving you an error, what's "wrong" with it?

As for 1:

        RichTextBox1.Font = New Font("Arial", RichTextBox1.Font.Size, RichTextBox1.Font.Style)

To change the font you have to set the size and style, this will only change the font though as you can set it to remain the same.