01. В этот примере вы видите, как можно использовать оператор GoTo для сообщения об ошибке. Она записывается в переменную Err.
|
Private Sub butRead_Click()
On Error GoTo 999 ' В случае возникновения ошибки перейти на метку 999
Dim a As Long
a = Eval(Me.myEval)
MsgBox "Результат: " & a, vbInformation, "Результат вычисления"
Exit Sub 'Выходим из программы
999:
MsgBox "Номер ошибки: " & Err.Number & vbNewLine & "Описание ошибки: " & Err.Description, vbCritical, "Ошибка в программе"
Err.Clear 'Очищаем поток от ошибок
End Sub
|
|