如果不使用 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相关的代码:

?
1
2
3
4
5
6
7
8
9
10
11
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

以上所述就是本文的全部内容了,希望大家能够喜欢。