vb.net - 使字体粗体/斜体/下划线 Visual Basic

Question

好吧，我已经有一个字体对话框，可以更改 Richtextbox 的字体并且它可以工作(尽管我不知道如何使对话框的应用按钮工作)

我还制作了 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