vb中如何中止

来源:百度知道 编辑:UC知道 时间:2024/06/21 21:55:48
文本框输入数据,Click时执行,数据不对则 中止程序(不要把程序退出了),更改数据后Click可以再次执行。

所以我问:如何让程序执行中止(不是终止!),但是不要把程序结束了。
简单一点就可以,不用写全。

如果是SUB就EXIT SUB
如果是FUNCTION就EXIT FUNCTION

if val(text6.text)>16 or val(text6.text)<1 then
n=msgbox("数据出界",vbokonly+vbexclamation," 温馨提示")
text6.setfocus
text6.selstart=0
text6.sellength=len(text6.text)
goto out
end if
out:

如果值不在1-16之间则提示并选中文本框的文字

在Click事件里判断如果数据不对就exit sub退出该过程

exit sub '退出当前过程