Как сделать , в случае ошибки , чтобы код отсылался не на label а на исполнение определённой процедуры ( типа "on error KillError" )

Как сделать чтобы возникновение ошибок отслеживалось в фоновом режиме без привязки кода к определённым событиям

A в чем проблема вызвать в лабеле процедуру?

Код

on error lblKillError ... lblKillError:    KillError

boevik
Так он никогда обратно не вернется...

Код

on error lblKillError ... lblKillError:   call KillError   resume next

Добавлено @ 10:30
Rostik Ultra
и постарайся не нарваться на double error...

Цитата(Akina @ 21.2.2005, 10:29)

Так он никогда обратно не вернется...

Я не уверен, что ему надо назад вернуться.

Rostik Ultra, я тут матрериальчик нашел.
Может быть не совсем то, что тебе нужно но все равно глянь
(будь вминателен - в коде могут быть ошибки).


Глобальная обработка ошибок
Если вы предусмотрели в своей программе обработку ошибок, то можете
обнаружить, что ошибка одного и того же типа может возникать при
выполнении различных фрагментов программы. В этом случае затраты на
программирование и размер программы можно сократить путем создания
единого обработчика ошибок.
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). При возникновении нераспознаваемой
ошибки выход из программы должен происходить с минимальной потерей
информации.
Неожиданные ошибки выполнения
Профессионально разработанные приложения должны перехватывать и
обрабатывать все возможные ошибки. Поэтому появление ошибок в
окончательной версии программы свидетельствует о недостаточно
Основательном тестировании программы.
Для всех ожидаемых ошибок должны быть предусмотрены соответствующие
обработчики. При появлении неожиданных ошибок разработчик, как минимум,
должен вывести сообщение об ошибке, чтобы в дальнейшем эту ошибку можно
было проанализировать и подготовить для нее свой обработчик (сделать ошибку
ожидаемой). Для выявления неожиданных ошибок при тестировании
приложения моделируются различные экстремальные ситуации и проверяется
работоспособность программы. При выводе сообщения о неожиданной ошибке
можно воспользоваться свойством Description объекта Err, которое содержит
системное описание ошибки:
MsgBox Err.Description
Свойство Description можно использовать и для задания собственных
сообщений об ошибке:
Err.Description = "Отсутствует компонент X!"
Возникновение ошибок выполнения можно и сымитировать. Для этого
предназначен метод Raise объекта Err:
Err.Raise 11
Такое использование метода Raise вызывает ошибку выполнения "деление
на ноль" (код 11). После вызова метода Raise можно проверить корректность
обработки ошибки данного типа обработчиком.
Во время работы с OLEZобъектами или другими программами иногда нужно
знать имя приложения, в котором произошла ошибка:
Err.Source = "РазделА" sQuelle =
Err.Source
Для каждого модуля или компонента приложения можно предусмотреть
задание собственного значения свойства Source. Благодаря этому при обработке
ошибок можно точно локализовать источник ошибки.
Метод Clear позволяет очистить значения всех свойств объекта Err:
Err.Clear
В предыдущих версиях это выполнялось присвоением объекту Err значения О
(Err = 0).
Целью обработчика неожиданных ошибок должно быть обеспечение
продолжения работы с программой на срок, достаточный хотя бы для ее
корректного завершения.
Логические ошибки
Самым "крепким орешком" среди всех возможных являются логические
ошибки. При их появлении код выполняется корректно, но желаемый результат
не достигается.
Обнаружив логическую ошибку, вы можете либо исправить ее, либо
определить, какую задачу программа может решить, и довольствоваться этим.

Код

Sub LogicalError Const One = 1 Const Two = 3 Const Three = 2 Const Four = 4 Result = (Four + Three)/Two Z One MsgBox Result End Sub

В данном примере после выполнения арифметических действий функция
MsgBox выведет результат 1, а не 2.5, как ожидалось, так как при определении
констант перепутаны значения.
Для выявления причин логической ошибки и ее устранения требуется
обширное тестирование. Visual Basic предлагает некоторые эффективные
инструменты для поиска источников ошибок.

Это сообщение отредактировал(а) amt - 21.2.2005, 22:51

amt Бланодарю за код . У кого ещё есть матеоиал , кидайте