vbclas1.sct

c#设计模式WithCla

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "$CLASS_NAME$"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Attribute VB_Description = "$CLASS_DESCRIPTION$"

'Class - CLASS_NAME

Option Explicit

[ATTRIBUTE_VISIBILITY m_$ATTRIBUTE_NAME As ATTRIBUTE_TYPE]

[Private m_$ASSOCIATION_ONE_NAME As ASSOCIATION_ONE_CLASS]

[Private m_$AGGREGATION_ONE_NAME As New AGGREGATION_ONE_CLASS]

[Private m_$ASSOCIATION_MANY_NAME As New Collection]

[Private m_$AGGREGATION_MANY_NAME As New Collection]

SELECT_WHEN OPERATION_IS_PROCEDURE
[OPERATION_VISIBILITY Sub OPERATION_NAME ( VB_OPERATION_PARAMETERS )
  OPERATION_CODE
End Sub
]

SELECT_WHEN OPERATION_IS_FUNCTION
[OPERATION_VISIBILITY Function OPERATION_NAME ( VB_OPERATION_PARAMETERS ) As OPERATION_RETURN_TYPE
  OPERATION_CODE
End Function
]

SELECT_WHEN ATTRIBUTE_IS_READ_PROPERTY
[Public Property Get ATTRIBUTE_NAME () As ATTRIBUTE_TYPE
  ATTRIBUTE_NAME = m_$ATTRIBUTE_NAME
End Property 
]

SELECT_WHEN ATTRIBUTE_IS_WRITE_PROPERTY
[Public Property Let ATTRIBUTE_NAME ( a$ATTRIBUTE_NAME As ATTRIBUTE_TYPE )
  m_$ATTRIBUTE_NAME = a$ATTRIBUTE_NAME
End Property
]

[Public Property Get ASSOCIATION_ONE_NAME () As ASSOCIATION_ONE_CLASS
  Set ASSOCIATION_ONE_NAME = m_$ASSOCIATION_ONE_NAME
End Property] 

[Public Property Set ASSOCIATION_ONE_NAME ( a$ASSOCIATION_ONE_NAME As ASSOCIATION_ONE_CLASS ) 
  Set m_$ASSOCIATION_ONE_NAME = a$ASSOCIATION_ONE_NAME
End Property
]

[Public Property Get AGGREGATION_ONE_NAME () As AGGREGATION_ONE_CLASS
  Set AGGREGATION_ONE_NAME = m_$AGGREGATION_ONE_NAME
End Property 
]

[Public Property Set AGGREGATION_ONE_NAME ( a$AGGREGATION_ONE_NAME As AGGREGATION_ONE_CLASS ) 
  Set m_$AGGREGATION_ONE_NAME = a$AGGREGATION_ONE_NAME
End Property
]

[Public Sub Add$ASSOCIATION_MANY_CLASS (a$ASSOCIATION_MANY_CLASS As ASSOCIATION_MANY_CLASS, Optional vKey As Variant)
    If Not IsMissing(vKey) Then
        If VarType(vKey) = vbString Then
           Call m_$ASSOCIATION_MANY_NAME.Add ( a$ASSOCIATION_MANY_CLASS, vKey)
        'Else Maybe allow other types as keys.
        End If
    Else
        Call m_$ASSOCIATION_MANY_NAME.Add ( a$ASSOCIATION_MANY_CLASS )
    End If
End Sub
]

[Public Sub Remove$ASSOCIATION_MANY_CLASS(Optional vKey As Variant)
    If Not IsMissing(vKey) Then
        If VarType(vKey) = vbString Then
            Call m_$ASSOCIATION_MANY_NAME.Remove  (vKey)
        ElseIf VarType(vKey) = vbInteger Then
            Call m_$ASSOCIATION_MANY_NAME.Remove  (vKey)
        End If
     Else 'vKey was Missing.
        Call m_$ASSOCIATION_MANY_NAME.Remove (m_$ASSOCIATION_MANY_NAME.Count)
     End If
End Sub
]

[Public Sub Add$AGGREGATION_MANY_CLASS (a$AGGREGATION_MANY_CLASS As AGGREGATION_MANY_CLASS, Optional vKey As Variant)
    If Not IsMissing(vKey) Then
        If VarType(vKey) = vbString Then
           Call m_$AGGREGATION_MANY_NAME.Add (a$AGGREGATION_MANY_CLASS, vKey)
        'Else Maybe allow other types as keys.
        End If
    Else
        Call m_$AGGREGATION_MANY_NAME.Add (a$AGGREGATION_MANY_CLASS)
    End If
End Sub
]

[Public Sub Remove$AGGREGATION_MANY_CLASS(Optional vKey As Variant)
    If Not IsMissing(vKey) Then
        If VarType(vKey) = vbString Then
            Call m_$AGGREGATION_MANY_NAME.Remove  (vKey)
        ElseIf VarType(vKey) = vbInteger Then
            Call m_$AGGREGATION_MANY_NAME.Remove  (vKey)
        End If
     Else 'vKey was Missing.
        Call m_$AGGREGATION_MANY_NAME.Remove (m_$AGGREGATION_MANY_NAME.Count)
     End If
End Sub
]

Private Sub Class_Initialize()
	[m_$ATTRIBUTE_NAME = ATTRIBUTE_INITIAL_VALUE]
End Sub

Private Sub Class_Terminate()
End Sub