看你知道不知道-VB6的模块之间循环关系
今天兄弟在调试程序的时候发现了一个有意思的现象,系统提示"模块之间循环关系",下面看看示例代码:<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;">http://www.agoit.com/Images/OutliningIndicators/None.gif'cD
http://www.agoit.com/Images/OutliningIndicators/None.gifOption Explicit
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPublic Event ClickEvent()
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPublic WithEvents c As cE
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPublic Sub Click()
http://www.agoit.com/Images/OutliningIndicators/None.gif RaiseEvent ClickEvent
http://www.agoit.com/Images/OutliningIndicators/None.gifEnd Sub
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPrivate Sub c_ClickEvent()
http://www.agoit.com/Images/OutliningIndicators/None.gif '
http://www.agoit.com/Images/OutliningIndicators/None.gifEnd Sub
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gif'cE
http://www.agoit.com/Images/OutliningIndicators/None.gifOption Explicit
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPublic Event ClickEvent()
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPublic WithEvents c As cD
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPublic Sub Click()
http://www.agoit.com/Images/OutliningIndicators/None.gif RaiseEvent ClickEvent
http://www.agoit.com/Images/OutliningIndicators/None.gifEnd Sub
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPrivate Sub c_ClickEvent()
http://www.agoit.com/Images/OutliningIndicators/None.gif '
http://www.agoit.com/Images/OutliningIndicators/None.gifEnd Sub
页:
[1]