16,557
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As Font = Me.RichTextBox1.SelectionFont
Dim start As Integer = Me.RichTextBox1.SelectionStart
Dim len As Integer = Me.RichTextBox1.SelectionLength
For i As Integer = 0 To Me.RichTextBox1.SelectionLength
Me.RichTextBox1.Select(start + i, 1)
f = Me.RichTextBox1.SelectionFont
If f IsNot Nothing Then
Console.WriteLine(f.Name)
''将选取的文本逐字判断,只要发现有未加粗的,就将之前选择的全部加粗
If f.Bold = False Then
Me.RichTextBox1.Select(start, len)
Me.RichTextBox1.SelectionFont = New Font(f, FontStyle.Bold)
Exit For
End If
End If
Next
End Sub
End Class