查看: 387  |  回复: 0
  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 除数为零


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com