VB如何忽略错误?

来源：百度知道 编辑：UC知道 时间：2024/06/22 20:57:13
就是在程序运行时,若出错了,不弹出错误提示,而是忽略并保持程序正常运行,要如何做?谢谢!
兄弟.....又是你.....

用On Error 捕获程序运行时引发的错误，捕获后清除错误。实现方法如下

'函数实现除法操作并返回结果。如果发生错误（如0除）返回值为0
Public Function Divide(Byval v as Single) As Single
    '为了消除可能的错误（如即0除错误）打开错误捕获陷阱
    '一旦发生错误，立即转到行标号ErrProc执行
    On Error Goto ErrProc
    Divide = 1 / v
    Exit Function
    
ErrProc: '发生错误时转到这里处理
    '清除错误
    Err.Clear
    Divide = 0    
End Function

更为简洁的写法如下：

'函数实现除法操作并返回结果。如果发生错误（如0除）返回值为0
Public Function Divide(Byval v as Single) As Single
    Divide = 0
    '为了消除可能的错误（如即