请vb高手解释一下以下文字的意思

来源:百度知道 编辑:UC知道 时间:2024/06/19 18:26:38
dim findstr as string
findstr=inputbox("输入内容")
dim findaddr as integer
findaddr=instr(text1.text,findstr)
if findaddr>0 then
text1.selstart=findaddr-1
text1.sellength=len(findstr)
text1.selfocus
else
msgbox"没找到"
end if

请高手解释一下这些语句的意思,我实在是看不懂。因为我是在家自学的,请解释的越详细越好。谢谢!

dim findstr as string '定义一个字符串变量
findstr=inputbox("输入内容") '通过一个输入框为变量findstr赋值
dim findaddr as integer '定义一个整数型变量findaddr

findaddr=instr(text1.text,findstr) 'findaddr的值等于文本框text1中文本中出现findstr的位置

if findaddr>0 then '如果找到了findstr
text1.selstart=findaddr-1 '文本框中光标的起始位置到findaddr-1

text1.sellength=len(findstr) '文本框中选中的长度就是findstr
text1.selfocus '文本框获取焦点
else '没有找到findstr,就弹出消息“没有找到”
msgbox"没找到"
end if

dim findstr as string
定义findstr是一个字符串,就是文字
findstr=inputbox("输入内容")
findstr接收你输入的内容
dim findaddr as integer
定义findaddr是整数类型,,如 3,5,6等等
findaddr=instr(text1.text,findstr)
这里text1.text是一个文本框控件里面的文本,
if findaddr>0 then
条件语句
text1.sellength=len(findstr)
text1.selfocus
else
msgbox"没找到"
消息框。
end if