Шаг 47 - Обработка ошибок в VB

Стандартный код обработки ошибки выглядит так:

Private Sub Command1_Click()
On Error GoTo Errors
' код
	Exit Sub
Errors:
' код по ошибке
End Sub

Обратите внимание на Exit Sub. Именно Exit Sub, так как применить End Sub нельзя, так как с помощью него определяется окончание всей процедуры. Если Вы напишете End Sub, то при сборке приложения получите ошибку:

gif/47_1.gif (1549 b)

Более подробно почитайте в разделе VBA, так как обработка аналогичная "Шаг 12 - Обработка ошибок VBA". И есть объект Err, который умеет сам генерировать ошибку и получать о ней информацию.

Private Sub Command1_Click()
On Error GoTo Error1
	Err.Raise 1001, "Test()", "Это я сделал"
Error1:
	MsgBox "Error detected"
	MsgBox (Str(Err.Number))
	MsgBox (Err.Source)
	MsgBox (Err.Description)
Ends:
End Sub

Это пример, а подробнее опять есть в VBA: "Шаг 13 - Объект Err".


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