VB.NET - RichTextBox - 将格式应用于选定的文本

Question

我的表单上有一个 RichTextBox 控件。我还有一个标记为粗体的按钮，如果有人在RichTextBox中选择文本，然后按下该按钮，所选文本将变为粗体。 有办法做到这一点吗？最终用户的简单日常任务。谢谢。

Answer 1

上述内容的变体，考虑根据当前所选文本的字体信息打开/关闭粗体:

    With Me.rtbDoc
        If .SelectionFont IsNot Nothing Then
            Dim currentFont As System.Drawing.Font = .SelectionFont
            Dim newFontStyle As System.Drawing.FontStyle

            If .SelectionFont.Bold = True Then
                newFontStyle = currentFont.Style - Drawing.FontStyle.Bold
            Else
                newFontStyle = currentFont.Style + Drawing.FontStyle.Bold
            End If

            .SelectionFont = New Drawing.Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
        End If
    End With

它可能需要清理一下，我从一个旧项目中提取了它。