Объект Err (Visual Basic)

Статья
11/05/2008

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

Содержит сведения об ошибках во время выполнения.

Заметки

Свойства объекта Err устанавливаются генератором ошибки — средой Visual Basic, объектом или программистом.

При возникновении ошибки во время выполнения свойства объекта Err заполняются данными, однозначно определяющими ошибку, а также сведениями, которые можно использовать для ее обработки или ее изучения. Для создания ошибки во время выполнения в коде используйте метод Raise.

Свойства объекта Err сбрасываются в нуль или строки нулевой длины ("") после инструкции Exit Sub, Exit Function, Exit Property или Resume Next внутри подпрограммы обработки ошибок. При использовании любой формы оператора Resume за пределами подпрограммы обработки ошибки свойства объекта Err не сбрасываются. Метод Clear может использоваться для явного сброса Err.

Используйте метод Raise вместо оператора Error для создания ошибок во время выполнения для системных ошибок и модулей класса. Решение о том, следует ли использовать метод Raise в другом коде зависит от полноты данных, которые требуется возвращать.

Объект Err является внутренним объектом с глобальной областью действия. Следовательно, создание в коде экземпляра этого объекта не требуется.

Примечание.
Можно использовать Функция ErrorToString для поиска сообщения об ошибке, соответствующего номеру конкретной ошибки.

Пример

В этом примере показано использование свойств объекта Err при формировании диалогового окна с сообщением об ошибке. Следует отметить, что если сначала используется метод Clear, то при создании ошибки Visual Basic с помощью метода Raise свойствами объекта Err становятся значения Visual Basic по умолчанию. Свойство Description возвращает строку с описанием ошибки.

Dim Msg As String
' If an error occurs, construct an error message.
On Error Resume Next   ' Defer error handling.
Err.Clear()
Err.Raise(6)   ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
  Msg = "Error # " & Str(Err.Number) & " was generated by " _
      & Err.Source & ControlChars.CrLf & Err.Description
  MsgBox(Msg, MsgBoxStyle.Information, "Error")
End If