共用方式為


ErrObject.Clear 方法

定義

清除 Err 物件的所有屬性設定。

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 SubExit FunctionExit Property

  • 任何 On Error 語句

  • 任何 Try...Catch...Finally 語句

    注意

    當處理存取其他物件期間所產生的錯誤時,On Error Resume Next 建構可能比 On Error GoTo 更好。 Err檢查每次與對象互動之後,都會移除程式代碼所存取的物件模棱兩可:您可以確定哪一個對象將錯誤碼Err.Number放在 中,以及哪些物件原本產生錯誤 () 中指定的Err.Source物件。

適用於

另請參閱