Question

好的我已经有一个字体对话框可以更改richtextbox的字体并且它可以工作（虽然我不知道如何使对话框的应用按钮工作）

我还为Bold，Underline，Strikethrough和Italic制作了4个按钮。

我发现大多数人使用的方法是

Dim boldf as NewFont(....)

然后将其应用于所选文本。

问题在于它将字体更改为仅粗体，它不会将其添加到现有样式。

请告知。

Answer 1

Private Sub andlowitwasbold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles andlowitwasbold.Click
    If RichTextBox1.SelectionFont.Bold Then 'its already bold, so set it to regular
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.FontFamily, RichTextBox1.Font.Size, FontStyle.Regular)
    Else 'make it bold
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.FontFamily, RichTextBox1.Font.Size, FontStyle.Bold)
    End If
End Sub

Answer 2

另一种方法是：

RichTextBox1.SelectionFont.Bold = Not(RichTextBox1.SelectionFont.Bold)

使字体粗体/斜体/下划线Visual Basic

2 个答案: