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

5
errHandler:6
MsgBox
Err.Description, vbCritical,
"
Error:
"
1006

被折叠的 条评论
为什么被折叠?



