2

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

我还为粗体、下划线、删除线和斜体制作了 4 个按钮。

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

Dim boldf as NewFont(....) 

然后将其应用于选定的文本。

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

请指教。

4

2 回答 2

2
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
于 2012-10-28T23:15:52.490 回答
0

另一种方法是:

RichTextBox1.SelectionFont.Bold = Not(RichTextBox1.SelectionFont.Bold)
于 2014-02-14T12:41:00.810 回答