看你知道不知道VB6的模块之间循环关系

今天兄弟在调试程序的时候发现了一个有意思的现象,系统提示"模块之间循环关系",下面看看示例代码:

'cD
Option Explicit

Public Event ClickEvent()

Public WithEvents c As cE

Public Sub Click()
    RaiseEvent ClickEvent
End Sub

Private Sub c_ClickEvent()
    '
End Sub

'cE
Option Explicit

Public Event ClickEvent()

Public WithEvents c As cD

Public Sub Click()
    RaiseEvent ClickEvent
End Sub

Private Sub c_ClickEvent()
    '
End Sub

其实类cD 和cE的使用没有任何的错误,关键就是VB6本身的问题,就是两个带事件的类,可以相互引用,但是不能使用事件,如果去掉任何一个c_ClickEvent系统就没问题了.

后来我们采用了循环代理的方式,增加一个代理做为中介,系统依然这样提示.

最后的解决办法只能增机一个容器类,通过容器类来协调2个类的工作了,真是不优美,解决办法如下:

'cA
Option Explicit

Public Event ClickEvent()

Public Sub Click()
    RaiseEvent ClickEvent
End Sub
'cB
Option Explicit

Public Event ClickEvent()

Public Sub Click()
    RaiseEvent ClickEvent
End Sub
'cContainer
Option Explicit

Public WithEvents a As cA
Public WithEvents b As cB

Private Sub a_ClickEvent()
    b.Click
End Sub

Private Sub b_ClickEvent()
    a.Click
End Sub