杭州交通信息网贡献女友百度贴吧:VB 的 on error语句
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/01 01:30:22
on error resume next 表示忽略所有错误继续执行下一语句，如果还有错就再往下
on error goto 0 表示出现错误时不进行转向，直接中断执行
on error goto <标号> 表示出现错误时转到标号处执行
我个人是这么做的：
private sub xxx()
on error goto errhap
...
exit sub '此句必要
errhap:
exit sub
end sub
目的是遇到错误就马上退出过程
on error resume next 表示忽略所有错误
on error goto 0 表示出现错误时不进行转向，直接中断执行
on error goto <标号> 表示出现错误时转到标号处执行
Private Function test()
on error goto err1
dim a as String
print a
err1:
unload me
end
End Function
在on error goto err1之后的句子里，只要出现错误，就转入执行err1
没有错误则继续运行
Private Sub cmdExit_Click()
On Error Resume Next
Unload Me
End Sub
在On Error Resume Next之后的句子里，不管出现什么错误，仍继续运行
Private Function test()
on error goto 0
dim a as String
print a
End Function
在on error goto 0之后的句子里，只要出现错误，则中断执行
on error resume next 表示忽略所有错误
on error goto 0 表示出现错误时不进行转向，直接中断执行
on error goto <标号> 表示出现错误时转到标号处执行