UC知道vb RichTextBox1
来源：百度知道 编辑：UC知道 时间：2024/06/08 03:12:15
RichTextBox1 中显示信息 点击一个按钮找到特定的字符串 然后变成红色
那个字符串自己改，不懂hi我
Dim pos As Integer
pos = 1
pos = InStr(RichTextBox1.Text, "Text")
While pos <> 0
RichTextBox1.SelStart = pos - 1
RichTextBox1.SelLength = Len("Text")
RichTextBox1.SelColor = vbRed
pos = pos + Len("Text")
pos = InStr(pos, RichTextBox1.Text, "Text")
Wend