错误处理程序

任务内发生错误等级1的错误时，可不输出错误，直接转移至错误处理程序。

“错误处理程序”指过程内发生等级1的错误时执行的一系列处理。

错误处理程序必须带有标签。

错误处理程序可保存“Err对象”发生的错误，并可获取该错误的属性。

Sub ErrTest()
    On Error GoTo RecoverErr
    Dim aaa As Position
    Dim bbb As Joint
    Dim ccc As String

    aaa = P(1000000, 0, 0, 0, 0, 0, -1)  '可运行范围外的位置
    bbb = P2J(aaa)

    'Other Statements

    Exit Sub
    
RecoverErr:   '错误处理程序
    bbb = CurJnt
    ccc = "&h" & Hex(Err.Number) & ":" & Err.Description
    PrintMsg "不代入变量bbb。首先代入CurJnt。" & Chr(13) & ccc
    Resume Next
End Sub

相关事项

Err.Number、Err.Description、On Error、Resume、错误处理示例