Clear 方法（Err 对象）

项目
08/18/2008

更新：2007 年 11 月

清除 Err 对象的所有属性设置。

object.Clear

参数

object
总是 Err 对象。

备注

处理完错误后使用 Clear 显式清除 Err 对象，比如对 On Error Resume Next 使用已推迟的错误处理时。每当执行下列任何语句时将自动调用 Clear 方法：

任何类型的 Resume 语句
Exit Sub、Exit Function 或 Exit Property
任何 On Error 语句

任何 Try...Catch...Finally 语句

说明：
在处理访问其他对象期间生成的错误时，On Error Resume Next 构造比 On Error GoTo 更可取。在每次与对象的交互后检查 Err 可消除关于代码访问了哪个对象的不确定性：可以确定哪个对象在 Err.Number 中放入了错误代码，以及哪个对象最初生成了错误（Err.Source 中指定的对象）。

示例

本示例使用 Err 对象的 Clear 方法将 Err 对象的数值属性重置为零，并将其字符串属性设置为零长度字符串。如果不调用 Clear，则对 MsgBox 的第二次调用会显示同样的错误信息。

Sub ClearErr()
  ' Produce overflow error
  On Error Resume Next
  Dim zero As Integer = 0
  Dim result As Integer = 8 / zero
  MsgBox(Err.Description)
  Err.Clear()
  MsgBox(Err.Description)
End Sub