Mathsquare

RichTextBox的字体风格的按钮:vb.net |我什么字体样式按钮的意思是链接加粗，下划线等......我想您可以按一下然后像粗体和下划线的按​​钮，它显示的字体样式为粗体和下划线。我尝试，但它太bugly，但我也一定会喜欢的按钮可以选中或取消选中。

因此，可以请你帮我这几行代码

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