End Sub. On Error GoTo ОбработкаОшибок

Resume Next

Exit Sub

...

On Error GoTo ОбработкаОшибок

Sub InitializeMatrix(Var1, Var2, Var3, Var4)

ОбработкаОшибок:

...

В этом примере программа обработки ошибок помещена между инструкциями Exit Sub и End Sub, что позволяет отделить ее от части программы, соответствующей нормальному выполнению процедуры. Программу обработки ошибок можно разместить в любом месте процедуры.

Ошибки, которые не были перехвачены, возвращаются в управляющее приложение, если объект был запущен как исполняемый файл. В среде разработчика такие ошибки возвращаются в управляющее приложение только при указании соответствующих параметров. За описанием необходимых значений этих параметров и способов их задания следует обращаться к документации главного приложения. Там же следует проверить, позволяет ли главное приложение создавать классы.

Err.Number = vbObjectError + 1052

Системные ошибки при вызовах библиотек динамической компоновки (DLL) не приводят к возникновению исключений и не перехватываются средствами Visual Basic. При вызове функций из библиотек DLL необходимо проверять, успешно ли возвращается каждое значение (согласно спецификациям API), и в случае неудачи проверять значение свойства LastDLLError объекта Err.

Пример

В начале этой программы инструкция On Error GoTo определяет положение подпрограммы обработки ошибок в процедуре. В данном примере попытка удалить открытый файл приводит к возникновению ошибки с кодом 55. Ошибка обрабатывается в подпрограмме, после чего управление возвращается инструкции, которая привела к возникновению ошибки. Инструкция On Error GoTo 0 отключает перехват ошибок. После этого инструкция On Error Resume Next задает отложенный перехват ошибок, что позволяет точно определить, в каком контексте возникла ошибка, генерируемая в следующей инструкции. Следует отметить, что после обработки ошибки вызывается метод Err.Clear для сброса значений свойств объекта Err.

Sub OnErrorStatementDemo()

On Error GoTo ErrorHandler ' Включаем программу обработки ошибок.

Open "TESTFILE" For Output As #1 ' Открываем файл.

Kill "TESTFILE" ' Попытка удалить открытый файл.

On Error Goto 0 ' Отключаем перехват ошибок.

On Error Resume Next ' Откладываем перехват ошибок.

ObjectRef = GetObject("MyWord.Basic") ' Запускаем' несуществующий объект, а затем проверяем

' ошибку механизма управления

' программируемыми объектами.

If Err.Number = 440 Or Err.Number = 432 Then

' Выводим сообщение для пользователя и очищаем объект Err.

Msg = "Ошибка при попытке открыть программируемый объект!"

MsgBox Msg,, "Проверка отложенной ошибки"

Err.Clear ' Очищаем поля объекта Err.

Дата добавления: 2015-06-27