RichTextBox的字体风格的按钮:vb.net |我什么字体样式按钮的意思是链接加粗,下划线等......我想您可以按一下然后像粗体和下划线的按钮,它显示的字体样式为粗体和下划线。我尝试,但它太bugly,但我也一定会喜欢的按钮可以选中或取消选中。
因此,可以请你帮我这几行代码
Private Sub RichTextBox1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.SelectionChanged
If RichTextBox1.SelectionFont.Bold = True Then
BCheckBox.Checked = True
UCheckBox.Checked = False
SCheckBox.Checked = False
ICheckBox.Checked = False
ElseIf RichTextBox1.SelectionFont.Bold & RichTextBox1.SelectionFont.Italic = True Then
UCheckBox.Checked = False
SCheckBox.Checked = False
ICheckBox.Checked = True
BCheckBox.Checked = True
ElseIf RichTextBox1.SelectionFont.Bold & RichTextBox1.SelectionFont.Italic & RichTextBox1.SelectionFont.Underline = True Then
UCheckBox.Checked = True
SCheckBox.Checked = False
ICheckBox.Checked = True
BCheckBox.Checked = True
ElseIf RichTextBox1.SelectionFont.Bold & RichTextBox1.SelectionFont.Italic & RichTextBox1.SelectionFont.Underline & RichTextBox1.SelectionFont.Strikeout = True Then
UCheckBox.Checked = True
SCheckBox.Checked = True
ICheckBox.Checked = True
BCheckBox.Checked = True
ElseIf RichTextBox1.SelectionFont.Italic = True Then
ICheckBox.Checked = True
ElseIf RichTextBox1.SelectionFont.Underline = True Then
UCheckBox.Checked = True
ElseIf RichTextBox1.SelectionFont.Strikeout = True Then
SCheckBox.Checked = True
Else
UCheckBox.Checked = False
SCheckBox.Checked = False
ICheckBox.Checked = False
BCheckBox.Checked = False
End If
End Sub