怎样用VB制作类似于记事本里的查找对话框？

Question

最近我编一款软件，查找成了大问题。
我试了InputBox和RichTextBox.Find，都不好用，那位大虾能帮帮我？
能否贴上思路和源代码？

Answer 1

你可以自己做一个form1，在上面绘出text1用来输入关键字，还有别的按扭等控件。然后用下面语句查找：
dim i as long
i=instr(RichTextBox.text,text1.text)
RichTextBox.selstart=i
RichTextBox.sellength=len(text1.text)

'这样就可以让RichTextBox自动选中要查找的关键字了。

Answer 2

好办法，同意，同时要注意大小写，INSTR函数是区分大小写的，在找的时候用ucase函数全部转成大写或者小写,
例如：
i=instr(ucase(RichTextBox.text),ucase(text1.text))

这样大写小写都能找