Question

在VB.NET中怎么用InputBox实现查找功能

使用VB.NET制作记事本，
在VB.NET中怎样用 InputBox 实现在 TextBox1 中的文本查找功能？
还有“查找下一个”的代码又应该怎样实现？
本人是初学菜鸟希望大虾们提供详细的代码！ ^-^ 谢谢！！

Answer 1

dim str1 ,str2 as string
dim n as integer
str2=inputbox("请输入要查找的字符："）
for n=1 to len(textbox1.text)
str1=mid(textbox1.text,n,1)
if str2=str1 then
msgbox("找到啦！")
exit for
end if
next
if n=len(textbox1.text)+1 then
msgbox("没有你要找的字符！")
end if