小编Ada*_*ott的帖子

我有一个较旧的VB6项目,我正在尝试添加单元测试.我通过模拟对象打破了类中的依赖关系.一切都很顺利,直到我发现了一些引发事件的依赖,现在我已经碰壁了.

这是一个我正在努力做的事情的一个简单例子:

ITab.cls:

Option Explicit

Public Event Click(tabNumber As Integer)

Public Sub SomeOtherFunction()

End Sub

clsRealTab.cls:

Option Explicit
Implements ITab

Public Event Click(tabNumber As Integer)

Public Sub ITab_SomeOtherFunction()
    'code here'
End Sub

frmMain.frm:

Option Explicit

Private WithEvents mTab as ITab

Public Sub Main()
    Set mTab = New clsRealTab 'gives "Object or class does not support the set of events" error'
End Sub

有没有人知道是否有办法让这项工作或其他方式来处理这种情况？

我实现了一个我调用的回调接口ITabEventsHandler.它看起来像这样:

Option Explicit

Public Sub Click(intPreviousTab As Integer, objSSTab As Object)

End Sub

然后我添加Implements …