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