Метод Clear (объект Err)

Статья
11/05/2008

Обновлен: Ноябрь 2007

Удаляет все параметры свойств объекта 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 после каждого взаимодействия с объектом устраняет неопределенность доступа к нему и позволяет точно определить, какой объект поместил Идентификатор ошибки в Err.Number, а также в каком объекте она изначально возникла (он указан в Err.Source).

Конструкция On Error Resume Next может оказаться предпочтительнее On Error GoTo при обработке ошибок, порожденных во время доступа к другим объектам. Проверка Err после каждого взаимодействия с объектом устраняет неопределенность доступа к нему и позволяет точно определить, какой объект поместил Идентификатор ошибки в Err.Number, а также в каком объекте она изначально возникла (он указан в Err.Source).

Пример

В этом примере метод Clear объекта Err используется для обнуления числовых свойств объекта 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