Clear 方法 (Err 物件)

發行項
08/21/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，可讓程式碼存取哪一個物件的模稜兩可 (Ambiguity) 情況不再發生：您可以確定哪一個物件將錯誤碼放置在 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