Dim richTextBox1 As System.Windows.Forms.RichTextBox = e.Form.Controls("Panel1").BaseControl.Controls（0）Dim f As Font = New Font("Verdana", 8F, FontStyle.Italic, GraphicsUnit.Point)
Dim str As String = "要查找的字符"
Dim pos As Integer = richTextBox1.Find(str)
If pos > 0 Then
richTextBox1.SelectionStart = pos
richTextBox1.SelectionLength = str.Length
richTextBox1.SelectionFont = f
richTextBox1.SelectionColor = Color.Red
End If
加好友 
发短信
Post By：2020/11/7 16:22:00 [只看该作者]
