VB6 一个子程序中可以用两个On Error吗？On Error Resume Next会影响下面的子程序吗？
发表于 2024年4月6日 18:45
新建From1（窗体），新建Command1（按钮CommandButton），代码：
返回列表Private Sub Command1_Click()
On Error Resume Next
Debug.Print 1 / 0
On Error GoTo hErr
Debug.Print 2 / 0
Exit Sub
hErr:
Debug.Print "Error!!!"
End Sub运行结果：
Error!!!证明可以。
再来举个例子：
Private Sub Command1_Click()
On Error Resume Next
Call s_1
Debug.Print "over"
End Sub
Private Sub s_1()
Debug.Print 1 / 0
Debug.Print "s_1"
End Sub运行结果：
over证明了：
采用On Error Resume Next 后，子程序某行出错，直接跳出子程序，而不会执行下方正常命令 Debug.Print "s_1" 。