How to set multiple Font.Styles to a Rich Text Box

Question

0.00/5 (No votes)

See more:

I have a Rich Text Box with which I would like to set multiple styles to. Is this the only way?

VB

frmMain.rtbStuff.Font = New Font(Me.Font, FontStyle.Bold + FontStyle.Italic)

For instance, if I would like to create a function that will allow a developer to customize the styles as so.

VB

Private Function ConfigureFont(Optional ByRef isUnderline As Boolean = False, Optional ByRef isBold As Boolean = False, Optional ByRef isItalized as Boolean = False) As Boolean

If isUnderline Then
Me.rtbStuff.Font.Styles = FontStyle.Underline ' Does NOT work. Read Only 
End If

Me.rtbStuff.Font.Bold = isBold ' Does NOT work. Read Only

Me.rtbStuff.Font.Italic = isItalized ' Does NOT work. Read Only.

End Function

This does not help because it only sets one Font Style. http://msdn.microsoft.com/en-us/library/yh8963yx.aspx[^]

Any suggestions?

Posted 25-Jan-12 4:12am

Clark Kent123

Add a Solution

3 solutions

Solution 3

I think this is what you are looking for. This is a function I'm using in one of my programs. It turns the font styles on/off depending on the current state of the toolstrip buttons.

Private Sub Set_Font_Style()

Dim FStyle As FontStyle

'If Bold Style is not selected then...
If Not tsbtnBold.Checked Then

'Turn off Bold Style
FStyle = rtbItemDetails.SelectionFont.Style And Not FontStyle.Bold

rtbItemDetails.SelectionFont = New Font(rtbItemDetails.SelectionFont, FStyle)

Else 'If user selected Bold Style then...

'Turn on Bold Style
FStyle = rtbItemDetails.SelectionFont.Style Or FontStyle.Bold

rtbItemDetails.SelectionFont = New Font(rtbItemDetails.SelectionFont, FStyle)

End If

'If Itallic Style is not selected then...
If Not tsbtnItallics.Checked Then

'Turn off Itallic Style
FStyle = rtbItemDetails.SelectionFont.Style And Not FontStyle.Italic

rtbItemDetails.SelectionFont = New Font(rtbItemDetails.SelectionFont, FStyle)

Else 'If user selected Bold Style then...

'Turn on Itallic Style
FStyle = rtbItemDetails.SelectionFont.Style Or FontStyle.Italic

rtbItemDetails.SelectionFont = New Font(rtbItemDetails.SelectionFont, FStyle)

End If

'If Underline Style is not selected then...
If Not tsbtnUnderline.Checked Then

'Turn off Underline Style
FStyle = rtbItemDetails.SelectionFont.Style And Not FontStyle.Underline

rtbItemDetails.SelectionFont = New Font(rtbItemDetails.SelectionFont, FStyle)

Else 'If user selected Underline Style then...

'Turn on Underline Style
FStyle = rtbItemDetails.SelectionFont.Style Or FontStyle.Underline

rtbItemDetails.SelectionFont = New Font(rtbItemDetails.SelectionFont, FStyle)

End If

'If Strikeout Style is not selected then...
If Not tsbtnStrkethrough.Checked Then

'Turn off Strikethrough Style
FStyle = rtbItemDetails.SelectionFont.Style And Not FontStyle.Strikeout

rtbItemDetails.SelectionFont = New Font(rtbItemDetails.SelectionFont, FStyle)

Else 'If user selected Strikeout Style then...

'Turn on Strikeout Style
FStyle = rtbItemDetails.SelectionFont.Style Or FontStyle.Strikeout

rtbItemDetails.SelectionFont = New Font(rtbItemDetails.SelectionFont, FStyle)

End If

'Update Button Status
Button_Control()

'Give RichTextBox Focus.
rtbItemDetails.Focus()

End Sub

Posted 28-Feb-15 12:48pm

Emrys81055

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Accepted Answer · 2012-01-25T04:55:00

Solution 1

Have a look at the SelectionFont property[^] - it sets a specific font and style to a specific part of the text. Which sound like what you want.

Posted 25-Jan-12 4:55am

OriginalGriff

Comments

Clark Kent123 25-Jan-12 11:07am

Thank you! It works like I expect it to. :)

OriginalGriff 25-Jan-12 11:54am

You're welcome!

E.F. Nijboer · Accepted Answer · 2012-01-25T05:00:00

Solution 2

You would need to set the SelectionFont. It applies to the selected text or from the current caret position. Check the link for more info:
http://msdn.microsoft.com/en-us/library/system.windows.forms.richtextbox.selectionfont.aspx#Y57[^]

Good luck!

Posted 25-Jan-12 5:00am

E.F. Nijboer

Comments

Clark Kent123 25-Jan-12 11:07am

Thank you! It works like I expect it to. :)