VB6 如何获得错误的代码和文字2023年6月6日 15:27
新建From1（窗体），代码：
Private Sub Form_Load()
On Error GoTo hErr
MsgBox 1 / 0
Exit Sub
hErr:
Debug.Print Err.Source & " " & Err.Number & " " & Err.Description
End Sub得到结果：
工程1 11 除数为零新建From1（窗体），代码：
Private Sub Form_Load()
On Error GoTo hErr
MsgBox 1 / 0
Exit Sub
hErr:
Debug.Print Err.Source & " " & Err.Number & " " & Err.Description
End Sub得到结果：
工程1 11 除数为零
全部回复（0）