Richtextbox selected text fontstyle

[darknoobie]

In my Rtf Editor I can toggle bold, Italic, and underline. I works fine. Here is the code.

  With Me.rtbNotes
                If btnBold.Checked Then
                    .SelectionFont = New Font(.SelectionFont, _
                                              .SelectionFont.Style Or FontStyle.Bold)
                Else
                    .SelectionFont = New Font(.SelectionFont, _
                                              .SelectionFont.Style Xor FontStyle.Bold)
                End If
            End With

Only problem if I uncheck the btnBold, btnItalic elsewhere in my RichTextBox and return to a line that contains bold,Italic font. It does not check the btnBold or BtnItalic. Could someone point me in a direction.

[OICU812]

Add a handler to the Application.Idle event and check if the richtextbox SelectionFont is bold whenever the application is idle... like this:

Private Sub Idle(ByVal sender As Object, ByVal e As EventArgs)
        Me.btnBold.Checked = rtbNotes.SelectionFont.Bold
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        AddHandler Application.Idle, AddressOf Idle
    End Sub
 
    Private Sub btnBold_Click(sender As Object, e As System.EventArgs) Handles btnBold.Click
        With Me.rtbNotes
            If btnBold.Checked Then
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Or FontStyle.Bold)
            Else
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Xor FontStyle.Bold)
            End If
        End With
    End Sub

[darknoobie]

It worked great! How does this work?

[OICU812]

Lets say I have the following sentence.

My Dog is Brown. If I move my cursor to "Brown" then bold and Italic check buttons will become unchecked. If I put my cursor somewhere in Dog, both the bod and Italic check buttons should become checked. Is this possible?

Yes it is possible just be sure you put the code to change the font in the Click event of the button (i assume you are using a checkbox with a button appearance) and not the checkchanged event.

Private Sub Idle(ByVal sender As Object, ByVal e As EventArgs)
        Me.btnBold.Checked = rtbNotes.SelectionFont.Bold
        Me.btnItalic.Checked = rtbNotes.SelectionFont.Italic
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        AddHandler Application.Idle, AddressOf Idle
 
    End Sub
 
    Private Sub btnBold_Click(sender As Object, e As System.EventArgs) Handles btnBold.Click
        With Me.rtbNotes
            If btnBold.Checked Then
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Or FontStyle.Bold)
            Else
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Xor FontStyle.Bold)
            End If
        End With
    End Sub
 
    Private Sub btnItalic_Click(sender As System.Object, e As System.EventArgs) Handles btnItalic.Click
        With Me.rtbNotes
            If btnItalic.Checked Then
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Or FontStyle.Italic)
            Else
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Xor FontStyle.Italic)
            End If
        End With
    End Sub

[darknoobie]

Sorry bout the edit. It works great until I try to close the form it causes an exception. "Cannot access a disposed object. Object name: 'a'." Also I have multiple RichTextBox that share same button.

For example:

  
If rtbNotes.focused then
With Me.rtbNotes
            If .SelectionFont.Italic Then
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Xor FontStyle.Italic)
            Else
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Or FontStyle.Italic)
            End If
        End With
elseif rtbNotes2.focused then
With Me.rtbNotes2
            If .SelectionFont.Italic Then
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Xor FontStyle.Italic)
            Else
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Or FontStyle.Italic)
            End If
        End With
end If

Would I just added:

Private Sub Idle(ByVal sender As Object, ByVal e As EventArgs)
Me.btnBold.Checked = rtbNotes.SelectionFont.Bold
Me.btnItalic.Checked = rtbNotes.SelectionFont.Italic
Me.btnBold.Checked = rtbNotes2.SelectionFont.Bold
Me.btnItalic.Checked = rtbNotes2.SelectionFont.Italic
End Sub

[OICU812]

I guess you should remove the Application.Idle handler on closing the form. That might be what is causing the error.

    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        RemoveHandler Application.Idle, AddressOf Idle
    End Sub

As for multiple RichTextBoxes sharing the same buttons, that makes my head hurt lol. Maybe try this:

    Private Sub Idle(ByVal sender As Object, ByVal e As EventArgs)
        If Me.rtbNotes.Focused Then
            Me.btnBold.Checked = rtbNotes.SelectionFont.Bold
            Me.btnItalic.Checked = rtbNotes.SelectionFont.Italic
        ElseIf Me.rtbNotes2.Focused Then
            Me.btnBold.Checked = rtbNotes2.SelectionFont.Bold
            Me.btnItalic.Checked = rtbNotes2.SelectionFont.Italic
        End If
    End Sub

[OICU812]

Oh and you will have to switch the logic for the button click events, for example:

        Dim rtb As RichTextBox = If(Me.rtbNotes.Focused, rtbNotes, rtbNotes2)
        With rtb
            If btnBold.Checked Then
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Or FontStyle.Bold)
            Else
                .SelectionFont = New Font(.SelectionFont, _
                                          .SelectionFont.Style Xor FontStyle.Bold)
            End If
        End With