程序如何做出错处理?
小弟现在需要对程序运行中弹出的出错提示记录下来,并让程序继续进行。
------------------------------
以前作出错记录是在一个模块里面写
On Error GoTo erro
然后在ERRO:写内容
现在在一个FRM里面使用多个模块,为了记录出错情况,我是不是必须在每个模块都写 On Error GoTo erro?但ERRO:该段内容是在 LOAD里面写,还是必须在每个模块都写入?正确的方法是怎样的?
万分感谢
[解决办法]
Private Sub Form_Click()
On Error GoTo erro
Print 1 / 0
Exit Sub
erro:
Call f
End Sub
Private Sub f()
Print "被除数不能为0 "
End Sub
[解决办法]
每个模块都写 On Error GoTo erro
[解决办法]
For better habit:
On Error GoTo vbErrorHandler
...
vbErrorHandler:
MsgBox Err.Number & " " & Err.Description & " " & Err.Source & "::ctlDownloader_Initialise "