贡献女友百度贴吧:VB 的 on error语句
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 <标号> 表示出现错误时转到标号处执行