VB6－设计模式点滴
1、单件模式Class：SingletonClass
<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.gifOption Explicit
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPublic Count As Integer
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPrivate Sub Class_Initialize()
http://www.agoit.com/Images/OutliningIndicators/None.gif If gSingleton Is Nothing Then
http://www.agoit.com/Images/OutliningIndicators/None.gif Set gSingleton = Me
http://www.agoit.com/Images/OutliningIndicators/None.gif End If
http://www.agoit.com/Images/OutliningIndicators/None.gifEnd Sub
http://www.agoit.com/Images/OutliningIndicators/None.gif
http://www.agoit.com/Images/OutliningIndicators/None.gifPublic Function GetInstance() As SingletonClass
http://www.agoit.com/Images/OutliningIndicators/None.gif Set GetInstance = gSingleton
http://www.agoit.com/Images/OutliningIndicators/None.gifEnd Function
页:
[1]