Clear-Methode (Err-Objekt)

Článek
09/03/2008

Aktualisiert: November 2007

Löscht alle Eigenschafteneinstellungen des Err-Objekts.

object.Clear

Parameter

object
Immer das Err-Objekt.

Hinweise

Verwenden Sie Clear, um das Err-Objekt explizit nach der Behandlung eines Fehlers zu löschen, z. B. bei der verzögerten Fehlerbehandlung mit On Error Resume Next. Die Clear-Methode wird automatisch aufgerufen, sobald eine der folgenden Anweisungen ausgeführt wird:

Ein beliebiger Typ der Resume-Anweisung
Exit Sub, Exit Function oder Exit Property
Eine beliebige On Error-Anweisung

Eine beliebige Try...Catch...Finally-Anweisung

Hinweis:
Das On Error Resume Next-Konstrukt ist On Error GoTo bei der Behandlung von Fehlern, die beim Zugriff auf andere Objekte generiert wurden, unter Umständen vorzuziehen. Wenn Sie nach jeder Interaktion mit einem Objekt Err überprüfen, wird deutlich, auf welches Objekt der Code zugegriffen hat: Sie können mit Sicherheit feststellen, welches Objekt den Fehlercode in Err.Number platziert und welches Objekt den Fehler ursprünglich generiert hat (das in Err.Source festgelegte Objekt).

Das On Error Resume Next-Konstrukt ist On Error GoTo bei der Behandlung von Fehlern, die beim Zugriff auf andere Objekte generiert wurden, unter Umständen vorzuziehen. Wenn Sie nach jeder Interaktion mit einem Objekt Err überprüfen, wird deutlich, auf welches Objekt der Code zugegriffen hat: Sie können mit Sicherheit feststellen, welches Objekt den Fehlercode in Err.Number platziert und welches Objekt den Fehler ursprünglich generiert hat (das in Err.Source festgelegte Objekt).

Beispiel

In diesem Beispiel werden mit der Clear-Methode des Err-Objekts die numerischen Eigenschaften des Err-Objekts auf 0 (null) und seine Zeichenfolgeneigenschaften auf 0 (null) zurückgesetzt. Ohne den Aufruf von Clear zeigt der zweite Aufruf von MsgBox die gleiche Fehlermeldung an.

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