On Error Resume Next 的顶替方法

On Error Resume Next 的替代方法。

[解决办法]
大部分情况下,不要消灭异常,而是报告异常,
利用函数返回值向上层传递异常消息,这样还可以记录调用路径
Public Function AddArea_Area() As String
On Error GoTo ErrTrap
    AddArea_Area = ""
    
    With m_frmArea_Edit
        .Caption = "添加区域"
        .btnSave.Tag = "Insert"
        .txtProp(0).Text = ""
        .txtProp(1).Text = ""
        .txtProp(2).Text = ""
        
        .Show vbModal
    End With
    
    Exit Function
    
ErrTrap:
    AddArea_Area = MyApp.dfSemCreate("mdArea.AddArea_Area", Err.Number, Err.Description)
On Error GoTo 0
End Function

[解决办法]
引用:
引用:
打印出错误信息又有什么用呢。
我的程序一般是先把所有的错误都分别处理掉，最后什么错误都没有了，我再加上On error resume next作为保险。最最最最最最最最最最最最最最最最后有一道关就是用SEH处理Win32异常。
on error是VB的特色，C++是不允许这么干的。
就是为了保险的这步加的On Error Resume Nex……

你没明白我的意思！
我是说程序不加On error resume next都能经得起各种数据测试，最后没有任何错误了，再加了上On error resume next。 
 
有的错误不是On error resume next能够解决了，比如：死循环错误。所以，要把所有出现的错误都考虑到。