如何在VB自定义类的方法中生成错误,并传到调用者进行处理
如题,VB自定义类,在此类的方法中用err.raise生成自定义错误。但我发现传不出来,只能在方法中处理。我试过,在普通过程中可以用raise方法生成自定义错误并并传出,调用者可以捕获并进行处理。请问如何实现类模块自定义错误的传出?谢谢各位!
[解决办法]
不要说vb6解决不了这样的问题,实在不想听!
你可以在你的类class1中定义一事件!
public event error()
然后在适当的时候扔出错误
Public function clssub1() as string
On Error GoTo errHandle
Dim a, b, c As Integer
a = 1
b = 0
c = a / b
Exit Sub
errHandle:
RaiseEvent error
End Sub
然后在form中接收这个事件!
Dim WithEvents myClass As Class1
Private Sub myClass_error()
MsgBox "error "
End Sub
[解决办法]
在VB的IDE里,Err.Raise 会直接被系统处理,不会传给调用者处理,但编译后就可以了。
[解决办法]
结帖。
[解决办法]
为何不尝试使用一个自定义事件?
Public Events ErrorHandle(Byval ErrNumber As Long, Byval ErrDescription As String)
然后发生错误的时候,你可以触发这个事件
RaiseEvent ErrorHandle(xxx, "xxxxxxxxxxxxxxxxxxxxxxxx ")