VB6－设计模式点滴

duiker

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;">Option Explicit

Public Count As Integer

Private Sub Class_Initialize()
    If gSingleton Is Nothing Then
        Set gSingleton = Me
    End If
End Sub

Public Function GetInstance() As SingletonClass
    Set GetInstance = gSingleton
End Function