Учебник по Visual Basic 5.0


Таблица 1



Таблица 1

Код ошибки

 Объяснение 

57

Ошибка ввода вывода (например, попытка печати при выключеном принтере).

68

Устройство недоступно (устройство не существует или недоступно в данный момент).

 
 
    


 

    Способ использования данной информации очень прост. Предположим, процедура обработки события использует принтер. Где-нибудь внутри процедуры перед оператором печати необходимо разместить строку

On Error GoTo PrinterCheck

Теперь перед оператором End Sub необходимо добавить следующий код:

Exit sub


PrinterCheck:


    ErrorNumber = Err. Number


    Beep


    Select Case ErrorNumber


        Case 25


                MsgBox "Your printer may be off-line."


        Case 27


                MsgBox "Is there a printer available?" Case Else


                        M$ = "Please tell the operator (= program author?) that"


                        M$ = M$ & vbCrLf '= Chr$(10) + Chr$(13) New Line


                        M$ = M$ & "error number " & ErrorNumber & " occurred."


                        MsgBox M$


                        End




Начало  Назад  Вперед



Книжный магазин