ErrObject.Clear 方法

public:
 void Clear();

public void Clear ();

member this.Clear : unit -> unit

Public Sub Clear ()

示例

此示例使用 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

注解

使用 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()
• ErrorToString()
• On Error 语句 (Visual Basic)