Как вы обрабатываете ошибки в обработчиках ошибок в VB6?

Question

я часто сталкиваюсь с этой ситуацией в своих приложениях VB6

Private Sub DoSomething 

    On Error Goto err1 

    Call ProcessLargeBatch1 
    Call ProcessLargeBatch2 
    '... more ...' 

    Exit Sub 

err1: 
    Call Cleanup 'Specific for DoSomething' 
    Call HandleError 'General error handling: Logging, message box, ...' 

End Sub 

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

Что мне делать в этом случае? Я добавлю On Error Resume Next в обработчик ошибок, но удалит существующий объект Err. Аналогичная проблема возникает при добавлении обработчика ошибок в Cleanup.

Каков наилучший способ гарантировать, что исходные ошибки все еще обрабатываются/регистрируются?

EDIT: Еще одна проблема заключается в том, что я также хочу уведомить пользователя об ошибке. Иногда важно, что очистка происходит быстро, и я не хочу, чтобы окно сообщения блокировало приложение в течение длительного времени и выполняло очистку после того, как пользователь подтвердил ошибку.

Answer 1

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

Измените способ информирования пользователя о том, как использовать кешированные значения, а не использовать сам объект Err.

Answer 2

Запишите сначала свою ошибку. Затем выполните следующее. Сделайте свою очистку инкапсулированной в методы, которые имеют собственную обработку ошибок. Это должна быть ваша ставка.

Answer 3

Мне действительно не нравятся обработчики ошибок. Вот что я делаю;

• Создайте класс ошибок или модуль, содержащий все свойства, которые встроенный в них содержит, а также метод CopyError, который заполняет эти свойства из err-объекта.
• Часы для ошибок, где они могут появиться:

.

' lots of code that will probably work 
On Error Resume Next 
Open "c:\filethatdoesntexist.txt" For Input As #1 
Error.CopyError 
On Error Goto 0 
Select Case Error.Number 
    Case 53'File doesn't exist 
     ' handle that error here 
    Case 0 
     ' no error 
    Case Else 
     ' Just throw the error on 
     Err.Raise Error.Number, Error.Description, ... 
End Select 
' more code that will probably work 

Answer 4

Если я могу обрабатывать все ошибки в одном месте, я обычно ставлю в в структуре что-то вроде этого:

Public Sub SubThatShouldHandleErrors() 
Const ROUTINE_NAME = "SubThatShouldHandleErrors" 
On Error Goto Catch 

    ' "normal" processing here... 

Finally: 
    ' non-error case falls through to here 
    ' perform clean-up that must happen even when an error occurred 
    On Error Goto 0 ' reset: not really needed any more, but it makes me feel more comfortable 
    Exit Sub 

Catch: 
    ' Error handling here, I may have logging that uses ROUTINE_NAME 
    Resume Finally 

End Sub 

Если мне нужно больше, чем одна ошибка обработчик, я постараюсь очень трудно реструктурировать мой код, чтобы сделать это не так, но если это абсолютно необходимо, я напишу пользовательский обработчик; мой шаблон является лишь ориентиром.

Answer 5

Из вашего примера вы делаете очистку должным образом. Ваш HandleError должен только регистрировать ошибку, а не пользовательский интерфейс. Пользовательский интерфейс обрабатывается на уровне формы.

Что вам нужно, когда происходит ошибка

1. Clean Up
2. Вход Ошибка
3. Поднимите ошибки снова через Err.Raise

Это будет работать так, чтобы стек вызова был вызван событием, которое вызвало исходный код. Тогда последовательность будет

1. Clean Up
2. Входа Ошибка
3. Выводит Уведомление об ошибке Dialog

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

Вы хотите удостовериться, что событие EVERY имеет обработчик ошибок. Не каждому процессу нужно одно, но определенно каждое событие. Необработанные ошибки в событии приведут к неожиданному завершению работы приложения VB6.