例子:
class1Public Sub GetErr()
Err.Raise vbError + 100, , "错误了"
End Sub
form1Dim a As New Class1
Private Sub Command1_Click()
On Error GoTo ErrHandler
a.GetErr
Exit Sub
ErrHandler:
MsgBox Err.Description
End Sub
试试看结果
class1Public Sub GetErr()
Err.Raise vbError + 100, , "错误了"
End Sub
form1Dim a As New Class1
Private Sub Command1_Click()
On Error GoTo ErrHandler
a.GetErr
Exit Sub
ErrHandler:
MsgBox Err.Description
End Sub
试试看结果
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货