首页 /编程语言和算法/VB6/ASP
 VB6 利用Err.Number得到错误编号
昨天 18:59

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Command1_Click()
    Dim lngA As Long
    On Error Resume Next
    
    lngA = 1 / 2
    Debug.Print Err.Number: Err.Clear
    
    lngA = 1 / 0
    Debug.Print Err.Number: Err.Clear
End Sub

运行结果:

 0 
 11

0就是没错误。

 
全部回复(0)
首页 | 电脑版 |