Question

vb中,给出一个关键词,如何把富文本框中所有相同的关键词找出来并用彩色显示出来?

我用.find只能找出第一次出现的该关键词,如果用循环就会陷入死循环.主要是找到第一个关键词后,第二次搜索的起始点不好定.

Answer 1

Dim lLocation As Long
Dim RtnVal As Integer
Do
RtnVal = Me.RichTextBox1.Find("搜索的文字", RichTextBox1.SelStart + RichTextBox1.SelLength)
If RtnVal <> -1 Then
Me.RichTextBox1.SelColor = vbRed
End If
Loop Until RtnVal = -1

把它放到任一过程里面就可以了，我试过了

Answer 2

汗~~你可以每次记下你找到的关键词的位置之后，再从这个位置往下再搜索啊