|
#2
wmf20142020-02-25 10:07
 程序代码： Dim i As Integer For i = List1.ListIndex + 1 To List1.ListCount - 1 If InStr(List1.List(i), a) > 0 Then 'a是要查找的字符，比如a="拉伸" List1.Selected(i) = True Exit For End If Next |
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录
我想实现上述功能，点击查找，弹出查找对话框，输入查找内容，点击查找按钮(这几步我都会)，下面不会
第一个含有查找内容的一行显示为蓝色，再次点击查找按钮，第二个含有查找内容的一行显示为蓝色。
主要是查找算法不太会。
请高手指教，谢谢！