On Error Statement 的作用是什么,看MSDN迷迷糊糊的不太懂

解决方案 »

  1.   

    错误处理语句,当发生错误时为了不使整个程序挂掉,需要对错误进行捕获,如果知道了指定的错误,那么可以对其进行处理,不知道的也可以忽略什么的,不过建议不要忽略。'下面举个例子
    Private Sub Form_Load()
    On Error GoTo err1    Dim i%
        i = InputBox("input a number:")
        MsgBox 1 / i
        
        Exit Sub
    err1:
    '    MsgBox Err.Number & vbCrLf & Err.Description'Err是个内部对象,可以获得错误号和错误描述等等
        If Err.Number = 11 Then
            MsgBox "输入的数字不能为0"
        ElseIf Err.Number = 6 Then
            MsgBox "溢出,输入的数字必须为整型"
        Else
            MsgBox "其它未知错误"
        End If
    End Sub
    '如果要全部忽略错误可以用on error resume next,不过不建议这样做
      

  2.   


    捕获程序中的错误,按照你的意思来处理。例如:On Error Goto ErrorHandler'......Exit SubErrorHandler:MsgBox "实时错误 " & Err.Number & " (" & Hex(Err.Number) & "h):" & vbNewLine & Err.Description
      

  3.   

    on error resume next
    on error goto 0
    on error goto mylabel