在VB6中,可以使用如下语句处理程序错误,以避免程序突然中途退出。
1
On
Error
goto
errHandler:
2 ' Input your code here
3 Exit Sub
4
5 errHandler:
6 MsgBox Err.Description, vbCritical, " Error: "
2 ' Input your code here
3 Exit Sub
4
5 errHandler:
6 MsgBox Err.Description, vbCritical, " Error: "