vb RichTextBox1

发布网友发布时间：2024-10-21 22:01

共1个回答

热心网友时间：2024-11-10 01:04

那个字符串自己改，不懂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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com