Шаг 56 - Инструкция Resume

Продолжает выполнение программы после завершения подпрограммы обработки ошибок.

Замечания
Если инструкция Resume используется в любой другой программе, помимо обработчика ошибок, то возникает ошибка.

Пример
В данном примере инструкция Resume используется для прекращения обработки ошибок в процедуре и возобновлению выполнения инструкции, которая привела к ошибке. Для иллюстрации создается ошибка с кодом 55.

Sub ResumeStatementDemo()
	On Error GoTo ErrorHandler		' Включаем обработчик ошибок.
	Open "TESTFILE" For Output As #1	' Открываем файл.
	Kill "TESTFILE"				' Попытка удалить открытый файл.
	Exit Sub				' Выходим из процедуры, чтобы
						' не попасть в обработчик.
ErrorHandler:					' Подпрограмма обработки ошибок.
	Select Case Err.Number			' Определяем код ошибки.
		Case 55	' "Ошибка "Файл уже открыт".
			Close #1		' Закрываем открытый файл.
		Case Else

' Здесь размещаются инструкции для обработки других ошибок...
	End Select
	Resume					' Возобновляем выполнение процедуры 
						' со строки, вызвавшей ошибку.
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 16.02.2002