А. Структура обработчика ошибок
Date: 2015-10-07; view: 366.
Практическая работа 50. Обработчики ошибок
Обработка ошибок времени выполнения
Обработчик ошибок состоит из 3-х частей: оператор On Error GoTo в начале подпрограммы/функции, который сообщает, что следует предпринять при возникновении ошибки, код обработчика и оператор выхода из обработчика, указывающий, куда перейти после обработки ошибки; в этом отношении рассмативаются следующие варианты:
· использование команды Resume для возврата в точку возникновения ошибки и повторное выполнение этой команды,
· использование команды Resume Next для продолжения работы со строки, следущей за строкой с ошибкой,
· использование команды Resume (метка) для продолжения работы со строки с указанной меткой,
· использование команды Exit Sub/Function для выхода из программы/функции.
1. Создать командную кнопку (Caption = Structure, Resume Next),
2. ввести код, данный ниже, пояснения даны под комментариями, стартовать проект. После щелчка на командной кнопке выводится номер ошибки и пояснение.
3.
Private Sub Command1_Click()' в случае ошибки перейти к локальному обработчику ошибокOn Error GoTo LocalHandler Dim x As Byte, str As String ' описание переменных' задать значение х, не соответствующее описанному выше' типу данныхX = -7 GoTo LocalExit ' выйти из процедуры, если ошибки не былоLocalHandler:' простейший обработчик выводит номер ошибки и поясненияstr = CStr(Err.Number) & " - " & Err.Description MsgBox str, vbCritical, " Command1" Resume Next ' продолжить выполнение со следующей строкиLocalExit:End Sub| <== previous lecture | | | next lecture ==> |
| Общие сведения | | | С. Использование команд Resume Next и Resume. |