vbscript On Error语句

最新推荐文章于 2022-01-16 21:32:36 发布

最新推荐文章于 2022-01-16 21:32:36 发布 · 159 阅读

本文详细介绍了OnError语句在错误处理中的应用，特别聚焦OnErrorResumeNext，通过实例展示了如何在遇到运行时错误时，程序能够继续执行而避免中止。此外，还提供了一个错误相关的代码段，解释了如何使用此特性来增强程序的健壮性和用户体验。

如果不使用 On Error 语句，则任何运行时错误都是致命的；也就是说，结果会导致显示错误信息并中止运行。一个“允许的”错误处理程序是由 On Error 语句打开的一个处理程序；一个“活动的”错误处理程序是处理错误的过程中允许的错误处理程序。

On Error GoTo 0
表示禁止当前过程中任何已启动的错误处理程序。

On Error Resume Next
说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。

On Error GoTo line
启动错误处理程序，且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误，则控件会跳到 line，激活错误处理程序。指定的 line 必须在一个过程中，这个过程与 On Error 语句相同；否则会发生编译时间错误。

一般情况下，如果在对我们创建的对象或控件进行错误捕捉，需要使用On Error Resume Next ，然后在判断它的Err.Number，根据错误类型来做相应的处理。

附一段error相关的代码：

On Error Resume Next
Dim Msg
Err.Clear
Err.Raise 6 ' Generate "Overflow" error.
Err.Helpfile = "yourHelp.hlp"
Err.HelpContext = 5
If Err.Number <> 0 Then
Msg = "Press F1 or Help to see " & Err.Helpfile & " topic for" & _
" the following HelpContext: " & Err.HelpContext
MsgBox Msg, , "error: " & Err.Description, Err.Helpfile, Err.HelpContext
End If