UC知道★●●●★ VB 里面怎样捕捉类模块里面的错误?
来源：百度知道 编辑：UC知道 时间：2024/05/14 06:45:20
我在一个类模块里面的一个函数里有Err.Raise语句, 在调用这个函数的上层做了on error goto的错误处理. 但真正执行这个类模块的函数时, 当发生错误时并不能被捕捉到, 会导致程序发生错误.
该怎么解决?
这个问题困扰了我很久了,如果哪个帮我解决了,追加能追加的最高分(好像是100...)
有耐心的话看下面的代码示例:
'------------上层函数:
Private Sub Form_Load()
Set c = New Class1
On Error GoTo errH
c.fc
Exit Sub
errH:
MsgBox "Err h in Form_Load OK"
End Sub
'------------类模块中的函数:
Public Sub fc()
Err.Raise 53
End Sub
'就是这么简单~!
谢谢vlaoda,但我的主要目的是由上层来处理错误,类模块自己并不知道怎样处理.况且,类模块的函数的返回值还有其它用处.
是不是VB不支持这样一种机制? 有没有别的替换方法呢?
该怎么解决?
这个问题困扰了我很久了,如果哪个帮我解决了,追加能追加的最高分(好像是100...)
有耐心的话看下面的代码示例:
'------------上层函数:
Private Sub Form_Load()
Set c = New Class1
On Error GoTo errH
c.fc
Exit Sub
errH:
MsgBox "Err h in Form_Load OK"
End Sub
'------------类模块中的函数:
Public Sub fc()
Err.Raise 53
End Sub
'就是这么简单~!
谢谢vlaoda,但我的主要目的是由上层来处理错误,类模块自己并不知道怎样处理.况且,类模块的函数的返回值还有其它用处.
是不是VB不支持这样一种机制? 有没有别的替换方法呢?
Private Sub Form_Load()
Set c = New Class1
On Error Resume Next
c.fc
If Err.Number <> 0 Then GoTo errH
Exit Sub
errH:
MsgBox "Err h in Form_Load OK"
End Sub
'------------类模块中的函数:
Public Sub fc()
On Error Resume Next
Err.Raise 53
End Sub
答案补充：
1、上层，我估计你做不到。
2、函数的返回值，难道你只会使用一个吗？