好的,我已经有一个字体对话框,可以更改richtextbox 的字体并且它可以工作(虽然我不知道如何使对话框的应用按钮工作)
我还为粗体、下划线、删除线和斜体制作了 4 个按钮。
我发现大多数人使用的方法是
Dim boldf as NewFont(....)
然后将其应用于选定的文本。
问题在于它将字体更改为仅粗体,它不会将其添加到现有样式中。
请指教。
好的,我已经有一个字体对话框,可以更改richtextbox 的字体并且它可以工作(虽然我不知道如何使对话框的应用按钮工作)
我还为粗体、下划线、删除线和斜体制作了 4 个按钮。
我发现大多数人使用的方法是
Dim boldf as NewFont(....)
然后将其应用于选定的文本。
问题在于它将字体更改为仅粗体,它不会将其添加到现有样式中。
请指教。
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
另一种方法是:
RichTextBox1.SelectionFont.Bold = Not(RichTextBox1.SelectionFont.Bold)