Блог

У меня ошибка, возникающая в моей программе Visual Basic 6 (первоначально написанной кем-то другим), где установлен (глобальный) флаг, который всегда должен быть сброшен до окончания процедуры. Иногда (редко, нерегулярно) это не так. Насколько я могу судить, он всегда будет сбрасываться в обычном потоке, просмотрев рассматриваемые подпрограммы.

Мое лучшее предположение о том, как этот флаг остается установленным, заключается в том, что в вызывающей функции (которых может быть много) происходит обработка ошибок, которая неправильно обрабатывает ошибку, возможно, с «Возобновить далее». Есть ли какой-либо способ, которым я могу помешать интересующему меня подразделу передать ошибку на более высокий уровень, а также показать мне строку, в которой произошла ошибка, и исходную ошибку? (Очевидно, я мог бы обернуть рассматриваемые подзаголовки в теги ошибок и получить подсказку msgbox, но это оставило бы меня довольно потерянным относительно того, где произошла фактическая ошибка)

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

 Sub Routine_n()

    On Error GoTo ErrorHandler

    ... code ...

    g_bGlobalFlag = False

Exit Sub

ErrorHandler:
    g_bGlobalFlag = False
    Err.Raise Err.Number, Err.Source, Err.Description
End Sub
  

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