clconnector.cls

很好的学习资料可供参考有实例从图书馆着的希望有帮祝

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clConnector"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Public Property Get MessageAffiche() As clMessageAffiche
    '只读的 MessageAffiche 属性
    '返回对 clMessageAffiche 的单个全局实例的引用。
    Set MessageAffiche = gMessageAffiche
End Property

Private Sub Class_Initialize()
    If gMessageAffiche Is Nothing Then
        '客户第一次申请连接器对象时，
        '会创建clMessageAffiche类的全局实例。
        Set gMessageAffiche = New clMessageAffiche
    End If
    
    '创建的每个连接器对象被作为
    '增加使用 clMessageAffiche类的全局实例的计数。
    glngUseCount = glngUseCount + 1
End Sub

Private Sub Class_Terminate()
    '释放的每个连接器对象，
    '减少使用 clMessageAffiche类的全局实例的计数。
    glngUseCount = glngUseCount - 1
    If glngUseCount = 0 Then
        '当连接器对象数为0时，
        '必须把clMessageAffiche类的全局实例释放。
        Set gMessageAffiche = Nothing
    End If
End Sub