一个新问题
不知有没哪位编过在文本框中查找字符的代码,不是instr这种的,跟记事本类似的,弹出一个子窗口,然后输入查找内容,应该是用find函数,如下所示,但是现在有个问题就是查找到之后无法自动选中,即高亮显示,如果设定查找后文本框获得焦点那就可以,但是那样的话子窗口又失去焦点了,查找下一个的话就要点两次:把子窗口点为当前窗口,然后再查找,太麻烦了,一般的文本编辑软件好像都没那个问题,不知道人家是怎么做的,还望高手多多指教!
With Form1.Text1
result = .find(Text1.Text, , , rtfNoHighlight)
End With