richtextbox查找字符串出现的问题
'功能:设置RTBShow中显示文本的颜色
Private Sub setRTBShowColor()
Dim Index% 'RTBShow控件的索引
Dim iStart% '查找的起点位置
Dim i%, num%
For Index = 0 To Dyna
With RTBShow(Index)
'-------------------此段为恢复,不恢复将把所有的文本都变色
.SelStart = 0
.SelLength = Len(.Text)
.SelColor = RGB(0, 0, 0)
.SelUnderline = False
'------------------
If ChangeColor(Index) <> "" Then '为空说明没有要改色的,进行下一个
getEveryChange ChangeColor(Index) '获得改色的内容,放在everychange中
num = UBound(EveryChange) '该色的次数
iStart = 0
For i = 0 To num
.SelStart = .SelStart + iStart '设置位置
.Find EveryChange(i), .SelStart '(1)
.SelColor = &HC000& '该为绿色
.SelUnderline = True '加下划线
iStart = Len(EveryChange(i)) '
Next i
End If
End With
Next Index
End Sub
在1处出现问题,设置查找位置后.如果在查找位置前有与查找内容相同的文本,返回的位置是前一个文本的索引.selstart的值变小了.
不知道我说的清楚吗?大家可以帮我看看吗?什么地方出的错?
在线等~~~