Создание глобального обработчика ошибок.

В приложении много функций. В кажой функции необходимо перехватывать определеную ошибку, поэтому приходится писАть в каждой функции/процедуре отдельный обработчик, один и тот же. Существует ли способ сделать что-то вроде какого-нибудь глобального обработчика, чтобы он перехватывал ошибку по всех функциях/процедурах все модулей приложения?

0

Глобальная обработка ошибок
Если вы предусмотрели в своей программе обработку ошибок, то можете
обнаружить, что ошибка одного и того же типа может возникать при
выполнении различных фрагментов программы. В этом случае затраты на
программирование и размер программы можно сократить путем создания
единого обработчика ошибок.
Visual Basic позволяет реализовать единый обработчик ошибок, так как
ошибки вызываемых процедур могут перехватываться в обработчике ошибок
вызывающей процедуры. Однако эта задача усложняется тем, что в Visual Basic
метка обработчика ошибок должна быть локальной. Хотя обработчик ошибок
вызываемой процедуры может содержать вызов других процедур (например,
глобального обработчика ошибок), оператор возврата также должен быть
локальным и поэтому не может находиться в глобальном обработчике.
Приведенный пример показывает, каким образом можно реализовать
единый обработчик ошибок. Функция анализирует передаваемый ей код
ошибки и возвращает числовое значение, определяющее, какой из операторов
— Resume, Resume Next или Exit Sub — следует применить в вызвавшей эту
функцию процедуре:
Function FileError(ErrValue As Integer) As Integer ' Номер ошибки
Описание ' 0 Resume ' 1 Resume Next ' 2
Неустранимая ошибка ' 3 Нераспознанная ошибка Dim
ВохТур As Integer, Txt As String, ret As Integer
BoxType = vbExclamation
Select Case ЗначениеОшибки
Case ERR_DEVICEUNAVAILABLE
Txt = 'Устройство недоступно!'
BoxTyp = vbYesNo Or vbCritical Case ERR_DISKNOTREADY
• = 71
Txt = 'Диск не готов! '
Case ERR_DEVICE10 ' = 57
Txt = 'Внутренняя ошибка диска.'
ВохТур Z vbYesNo Or vbCritical
Case ERR_BADFILENAME, ERR_BADFILENAMEORNOMBER '
= 64/Z 52
Txt = 'Недействительное имя файла.'
Case ERR_PATHDOESNOTEXIST' = 76
Txt = 'Путь недействительный.'
Case ERR_BADFILEMODE 'Z=54
Txt = 'Недействительный доступ.'
Case ERR_FILEALREADYOPEN ' = 55
Txt = 'Файл уже открыт.'
Case ERR_INPUTPASTENDOFFILE ' = 62
Txt = 'Попытка считывания после конца файла.' Case
Else
FileError = 3
Exit Function End
Select
ret = MsgBox(Txt, BoxType, 'Ошибка диска!') Select
Case ret
Case vbOK, vbRetry
FileError = 0 'означает RESUME Case vblgnore
FileError = 1 'означает RESUME NEXT Case
vbCancel, vbAbort
FileError = 2 'означает EXIT SUB Case Else
FileError = 3 'означает прекращение End Select End
Function
Функция, приведенная в примере, обрабатывает некоторые наиболее
распространенные ошибки, возникающие при работе с файлами и дисками.
Возвращаемые ею значения затем анализируются в вызвавшей ее процедуре:
Sub SomeProcedure ()
On Error GoTo ErrHandle
Exit Sub
ErrHandle:
Select Case FileError(Err.Number) Case 0
Resume Case 1
Resume Next Case 2
Exit Sub Case 3
Call MercyfulExit ' Обработка нераспознанных ошибок End Select End Sub
Процедура SomeProcedure содержит локальный обработчик ошибок, который
вызывает глобальный обработчик. Продолжение выполнения программы
зависит от значения, возвращаемого глобальной функцией обработки ошибки.
Для ошибок, обработка которых не предусмотрена в глобальном обработчике
ошибок, можно создавать локальный обработчик. В данном примере это
выполняется при возникновении нераспознаваемой ошибки (глобальный
обработчик возвращает значение 3). При возникновении нераспознаваемой
ошибки выход из программы должен происходить с минимальной потерей
информации.

0

4 AlexeyTyurin
Спасибо за ваш ответ, однако ничего нового я об обработке не узнал.
То, что вы предлагаете можно найти в любой книге по VB. А не ли более универсального способа?

0

я думаю что нет

0