Private Sub
Command1_Click() a =
Text1.Text Call
ToFindString(RichTextBox1, a, RGB(0, 0, 255),
True) End
Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '函数ToFindString()的作用是设置在RichTextBox控件中搜索到文本的字体，有4个参数： 'ToFindString(RichTextBox控件名
加载中…
