如何在自定义的错误处理过程中显示标准的错误信息框.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 16 行

使 用 On Error GoTo 0就 可 以 恢 复 VB默 认 的 错 误 处 理 方 式 ， 如 ： 
    Private Sub Command1_Click() 
     On Error GoTo ErrHandle 
     Debug.Print 1 / 0 
     Exit Sub 
    ErrHandle: 
     If Err.Number = 6 Then 
     MsgBox "Hi!" 
     Exit Sub 
     Else 
     On Error GoTo 0 
     Resume 
     End If 
    End Sub 
    不 过 由 于 这 种 VB的 处 理 方 式 只 对 设 计 时 有 用 。 在 脱 离 集 成 环 境 运 行 时 ， VB不 会 显 示 “ 调 试 ” 、 “ 帮 助 ” 按 钮 。 
<END>