看你知道不知道-VB6的模块之间循环关系
今天兄弟在调试程序的时候发现了一个有意思的现象,系统提示"模块之间循环关系",下面看看示例代码:
'cD
Option Explicit
![](/Images/OutliningIndicators/None.gif)
Public Event ClickEvent()
![](/Images/OutliningIndicators/None.gif)
Public WithEvents c As cE
![](/Images/OutliningIndicators/None.gif)
Public Sub Click()
RaiseEvent ClickEvent
End Sub
![](/Images/OutliningIndicators/None.gif)
Private Sub c_ClickEvent()
'
End Sub
![](/Images/OutliningIndicators/None.gif)
'cE
Option Explicit
![](/Images/OutliningIndicators/None.gif)
Public Event ClickEvent()
![](/Images/OutliningIndicators/None.gif)
Public WithEvents c As cD
![](/Images/OutliningIndicators/None.gif)
Public Sub Click()
RaiseEvent ClickEvent
End Sub
![](/Images/OutliningIndicators/None.gif)
Private Sub c_ClickEvent()
'
End Sub
其实类cD 和cE的使用没有任何的错误,关键就是VB6本身的问题,就是两个带事件的类,可以相互引用,但是不能使用事件,如果去掉任何一个c_ClickEvent系统就没问题了.
后来我们采用了循环代理的方式,增加一个代理做为中介,系统依然这样提示.
最后的解决办法只能增机一个容器类,通过容器类来协调2个类的工作了,真是不优美,解决办法如下:
'cA
Option Explicit
![](/Images/OutliningIndicators/None.gif)
Public Event ClickEvent()
![](/Images/OutliningIndicators/None.gif)
Public Sub Click()
RaiseEvent ClickEvent
End Sub
'cB
Option Explicit
![](/Images/OutliningIndicators/None.gif)
Public Event ClickEvent()
![](/Images/OutliningIndicators/None.gif)
Public Sub Click()
RaiseEvent ClickEvent
End Sub
'cContainer
Option Explicit
![](/Images/OutliningIndicators/None.gif)
Public WithEvents a As cA
Public WithEvents b As cB
![](/Images/OutliningIndicators/None.gif)
Private Sub a_ClickEvent()
b.Click
End Sub
![](/Images/OutliningIndicators/None.gif)
Private Sub b_ClickEvent()
a.Click
End Sub
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
其实类cD 和cE的使用没有任何的错误,关键就是VB6本身的问题,就是两个带事件的类,可以相互引用,但是不能使用事件,如果去掉任何一个c_ClickEvent系统就没问题了.
后来我们采用了循环代理的方式,增加一个代理做为中介,系统依然这样提示.
最后的解决办法只能增机一个容器类,通过容器类来协调2个类的工作了,真是不优美,解决办法如下:
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)