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

duiker

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

<div style="border-right: #cccccc 1px solid; padding-right: 5px; border-top: #cccccc 1px solid; padding-left: 4px; font-size: 13px; padding-bottom: 4px; border-left: #cccccc 1px solid; width: 98%; padding-top: 4px; border-bottom: #cccccc 1px solid; background-color: #eeeeee;">'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