我想创建一个VB6类的对象,并对该对象调用一个方法。如果错误发生在
我希望该方法能够在方法中引发错误,并在类的外部捕获它,在
我调用该方法的例程。
例如,该类可能包含:
Const cmlngMYERROR As Long = vbObjectError + 1001
Public Sub MyMethod()
...
Err.Raise cmlngMYERROR, Err.Source, Err.Description
End Sub
调用例程可能包含:
Private Sub MyCallingRoutine()
Dim objMyObject As ClassName
On Error GoTo ErrorHandler
Set objMyObject = New ClassName
objMyObject.MyMethod
Exit Sub
ErrorHandler:
If Err.Number=clngMYERROR Then
...
End If
End Sub
我遇到的问题是,你不能在类的顶部定义公共常量。因此,您不能
使用调用例程错误处理程序中定义的常量检查错误号。最好的是什么?
练习检查调用例程中的错误代码?我在这里正确地使用了错误处理吗?
例子(或者至少是在正确的轨道上)?
提前谢谢。
发布于 2010-02-25 14:40:32
有一个聪明(丑陋?)模拟公共常量的诀窍:改用公共枚举
Public Enum PseudoConst
cmlngMYERROR = vbObjectError + 1001
End Enum
https://stackoverflow.com/questions/2334578
复制相似问题