13. Свойства и методы объектов Debug, Err. Примеры.

Свойства

Свойство Description	Свойство для чтения и записи. Возвращает или задает строку описания, соответствующую ошибке.
Свойство Erl	Только для чтения. Возвращает целое число, указывающее номер строки последнего выполненного оператора.
Свойство HelpContext	Свойство для чтения и записи. Возвращает или задает объект типа Integer, содержащий идентификатор контекста темы в файле справки.
Свойство HelpFile	Свойство для чтения и записи. Возвращает или задает выражение типа String, содержащее полный путь к файлу справки.
Свойство LastDLLError	Только для чтения. Возвращает код системной ошибки, возникшей при вызове библиотеки динамической компоновки (DLL).
Свойство Number	Свойство для чтения и записи. Возвращает или задает числовое значение, определяющее ошибку.
Свойство Source	Свойство для чтения и записи. Возвращает или задает выражение типа String, определяющее имя объекта или приложения, первоначально создавшего ошибку.

Методы

Метод Clear	Удаляет все параметры свойств объекта Err.
Метод Raise	Создает ошибку времени выполнения; может использоваться вместо оператора Error.

Объект Err (Visual Basic)

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

Заметки

Свойства объекта 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 возвращает строку с описанием ошибки.

Язык Visual Basic

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

14.Приемы оптимизации кода