关于VB出错代码

Question

在VB程序执行时,如果发生错误,则会弹出一个错误代码,
如何捕获这个错误代码的值呢?

Answer 1

On Error GoTo Err_Handle
.
.
.      Exit Sub
Err_Handle:
    ErrorHandling Err.Description, Err.Number,"过程或函数名 "
    Err.Clear'清除错误
    Resume Next'返回 到不错位置
  
ErrorHandling  函数记录 错误的描述和错误号, 和 过程名

Answer 2

首先在你要捕获出错程序段的前面加上on error goto ErrMsg
然后在程序段的未尾使用err.number来得到，即做如下的程序设计：
on error goto ErrMsg
.....你的程序段.....
exit sub
ErrMsg:
msgbox "错误号：" & err.number