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

• Any On Error 语句

• Any Try...Catch...Finally 语句

  注释

  当处理访问其他对象期间生成的错误时，该 On Error Resume Next 构造可能更可取 On Error GoTo 。 Err每次与对象交互后检查都会消除代码访问的对象歧义：可以确定哪个对象放置错误代码Err.Number，以及最初生成错误的对象（Err.Source指定对象）。

另请参阅

• Err()
• ErrorToString()
• On Error 语句 （Visual Basic）