font style buttons for richtextbox for vb.net

Question

1.00/5 (1 vote)

See more:

what I mean by font style buttons is link bold, underline and ect.. I want buttons that you can click then like bold and underline and it show the font style as bold and underline. I try to this but it was too bugly but also I will like the buttons can be checked or unchecked.

So can you please help me this this few line of code

VB

Private Sub RichTextBox1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.SelectionChanged
        If RichTextBox1.SelectionFont.Bold = True Then
            BCheckBox.Checked = True
            UCheckBox.Checked = False
            SCheckBox.Checked = False
            ICheckBox.Checked = False
        ElseIf RichTextBox1.SelectionFont.Bold & RichTextBox1.SelectionFont.Italic = True Then
            UCheckBox.Checked = False
            SCheckBox.Checked = False
            ICheckBox.Checked = True
            BCheckBox.Checked = True
        ElseIf RichTextBox1.SelectionFont.Bold & RichTextBox1.SelectionFont.Italic & RichTextBox1.SelectionFont.Underline = True Then
            UCheckBox.Checked = True
            SCheckBox.Checked = False
            ICheckBox.Checked = True
            BCheckBox.Checked = True
        ElseIf RichTextBox1.SelectionFont.Bold & RichTextBox1.SelectionFont.Italic & RichTextBox1.SelectionFont.Underline & RichTextBox1.SelectionFont.Strikeout = True Then
            UCheckBox.Checked = True
            SCheckBox.Checked = True
            ICheckBox.Checked = True
            BCheckBox.Checked = True
        ElseIf RichTextBox1.SelectionFont.Italic = True Then
        ICheckBox.Checked = True
        ElseIf RichTextBox1.SelectionFont.Underline = True Then
        UCheckBox.Checked = True
        ElseIf RichTextBox1.SelectionFont.Strikeout = True Then
        SCheckBox.Checked = True
        Else
        UCheckBox.Checked = False
        SCheckBox.Checked = False
        ICheckBox.Checked = False
        BCheckBox.Checked = False
        End If
    End Sub

Posted 29-Nov-11 15:31pm

Mathsquare

Updated 29-Nov-11 16:53pm

v3

Add a Solution

Comments

Sergey Alexandrovich Kryukov 29-Nov-11 22:38pm

VB or VB.NET?!!
--SA

Mathsquare 29-Nov-11 22:44pm

Vb.net

2 solutions

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)

Sergey Alexandrovich Kryukov · Answer 1 · 2011-11-29T16:43:00

What's the problem? You have a reasonable plan for a feature, just implement it. Yes, all such buttons should be checked/unckecked.

With WPF, use System.Windows.Controls.Primitives.ToggleButton, http://msdn.microsoft.com/en-us/library/system.windows.controls.primitives.togglebutton.aspx[^].

With System.Windows.Forms, such button can be easily implemented as a custom control, derived from System.Windows.Forms.Control. You can also simply use System.Windows.Forms.CheckBox.
See:
http://msdn.microsoft.com/en-us/library/system.windows.forms.buttonbase.aspx[^],
http://msdn.microsoft.com/en-us/library/system.windows.forms.control.aspx[^].

—SA

**Manoj K Bhoir** · Answer 2 · 2011-11-29T21:01:00

Use ToolStrip Control from ToolBar.It provides the Button with Check and Uncheck facility.
Make CheckOnClick Property True for that buttons.
Use following code :

VB

'For Bold Text
        If ToolStripBoldButton.Checked Then
            txtNotePad.SelectionFont = SetTextBold
        Else
            txtNotePad.SelectionFont = SetTextRegular
        End If

Similarly you can use following code :

VB

'For Normal Text
 txtNotePad.SelectionFont = SetTextRegular
'For Italic Text
 txtNotePad.SelectionFont = SetTextItalic
'For Underline Text
 txtNotePad.SelectionFont = SetTextUnderline
'Here txtNotePad is the name of RichTextBox

I hope it will help you :)

font style buttons for richtextbox for vb.net

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0