Question

VB.net中代码如何写，当选中文本为粗体时单击按钮变成正常的，反之变为粗体，其它不要变？

我的代码是这样的：
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oldFont As Font = RichTextBox.SelectionFont
Dim newFont As Font
If Not oldFont.Style = FontStyle.Bold Then
newFont = New Font(oldFont, FontStyle.Bold)
Else
newFont = New Font(oldFont, Not FontStyle.Bold)
End If
RichTextBox.SelectionFont = newFont
End Sub
但是运行的结果是，如果是非加粗的字体，单击按钮变成加粗的字体，但是如果是加粗的字体按按钮虽然会变成非加粗的可同时字体会自动加上下划线和删除线（原来字体是没有下划线和删除线的），好像是原来有的格式变没有了，没有的变有了，哪位大神告诉我怎么弄啊，分值不多，在这里先谢谢了。

Answer 1

vb.net 没用过，不过估计richtextbox控件应该有selbold这个属性

If RT1.SelBold = False Then
RT1.SelBold = True
Else
RT1.SelBold = False
End If
这样就行。如果没有这个属性就不会了

追问

在VB6.0里面有selBold这个属性，但是到了VB.net后就没有了，还是谢谢了

Answer 2

看起来挺高深的样子