vb4clas1.sct

c#设计模式WithCla

NO_OUTPUT_BEGIN 
			// Class File Header //
NO_OUTPUT_END
VERSION 1.0 CLASS
BEGIN
   MultiUse = CLASS_USER3
END
Attribute VB_Name = "$CLASS_NAME$"
Attribute VB_Creatable = CLASS_USER1
Attribute VB_Exposed = CLASS_USER2
Attribute VB_Description = "$CLASS_DESCRIPTION$"

 
Option Explicit

' *************************************************************************
'  CLASS_INVARIANT
' *************************************************************************

' Declare private variables.
[Private ATTRIBUTE_USER1$ATTRIBUTE_NAME As ATTRIBUTE_TYPE]
[Private m$ASSOCIATION_ONE_NAME As ASSOCIATION_ONE_CLASS]
[Private m$AGGREGATION_ONE_NAME As AGGREGATION_ONE_CLASS]
' Declare Class Containers.
[Private m$ASSOCIATION_MANY_CLASS As C$ASSOCIATION_MANY_CLASS]
' Declare Collections.
[Private n$AGGREGATION_MANY_CLASS As Collection]



NO_OUTPUT_BEGIN
			//  Create Property Get and Let Procs //
NO_OUTPUT_END

[ATTRIBUTE_ACCESS Property Get ATTRIBUTE_NAME() As ATTRIBUTE_TYPE
    ATTRIBUTE_NAME = ATTRIBUTE_USER1$ATTRIBUTE_NAME
End Property

ATTRIBUTE_ACCESS Property Let ATTRIBUTE_NAME($ATTRIBUTE_USER2$ATTRIBUTE_NAME$A As ATTRIBUTE_TYPE)
    ATTRIBUTE_USER1$ATTRIBUTE_NAME = ATTRIBUTE_USER2$ATTRIBUTE_NAME$A
End Property]



[Public Property Get ASSOCIATION_ONE_NAME() As ASSOCIATION_ONE_CLASS
    ASSOCIATION_ONE_NAME = m$ASSOCIATION_ONE_NAME
End Property

Public Property Let ASSOCIATION_ONE_NAME($ASSOCIATION_ONE_NAME$A As ASSOCIATION_ONE_CLASS)
    m$ASSOCIATION_ONE_NAME = ASSOCIATION_ONE_NAME$A
End Property]

[Public Property Get AGGREGATION_ONE_NAME() As AGGREGATION_ONE_CLASS
    AGGREGATION_ONE_NAME = m$AGGREGATION_ONE_NAME
End Property

Public Property Let AGGREGATION_ONE_NAME($AGGREGATION_ONE_NAME$A As AGGREGATION_ONE_CLASS)
    m$AGGREGATION_ONE_NAME = AGGREGATION_ONE_NAME$A
End Property]



NO_OUTPUT_BEGIN 
			// Create Collection Get and Set Procs //
NO_OUTPUT_END

[Public Property Get AGGREGATION_MANY_NAME() As Collection
    Get AGGREGATION_MANY_NAME = n$AGGREGATION_MANY_NAME
End Property

Public Property Set AGGREGATION_MANY_NAME(n$AGGREGATION_MANY_NAME$A As Collection)
    Set n$AGGREGATION_MANY_NAME = n$AGGREGATION_MANY_NAME$A
End Property]



NO_OUTPUT_BEGIN 
			// Create Contained Class Get and Set Procs //
             
NO_OUTPUT_END
[Private m$ASSOCIATION_MANY_CLASS As C$ASSOCIATION_MANY_CLASS

Public Property Get ASSOCIATION_MANY_CLASS() As C$ASSOCIATION_MANY_CLASS
	' Direct Access to Class Provided Here
    Set ASSOCIATION_MANY_NAME = m$ASSOCIATION_MANY_NAME
End Property

Public Property Set ASSOCIATION_MANY_CLASS($ASSOCIATION_MANY_CLASS As C$ASSOCIATION_MANY_CLASS)
    Set m$ASSOCIATION_MANY_CLASS = ASSOCIATION_MANY_CLASS
End Property
]



NO_OUTPUT_BEGIN 
			// Create Method Procedures and Functions //
NO_OUTPUT_END

SELECT_WHEN OPERATION_IS_PROCEDURE 
[Public Sub OPERATION_NAME($VB_OPERATION_PARAMETERS)
	On Error Resume Next
	' Proc Code Goes Here
	OPERATION_CODE
	If Not Err.Number = 0
	   Err.Raise vbObjectError + CLASS_INVARIANT, _
	      "$VB_OPERATION_PARAMETERS"
	End If
End Sub]
SELECT_WHEN OPERATION_IS_FUNCTION 
[Public Function OPERATION_NAME($VB_OPERATION_PARAMETERS) AS OPERATION_RETURN_TYPE
	On Error Resume Next
	' Proc Code Goes Here
	OPERATION_CODE
	If Not Err.Number = 0
	   Err.Raise vbObjectError + CLASS_INVARIANT, _
	      "$VB_OPERATION_PARAMETERS"
	End If
End Function]


NO_OUTPUT_BEGIN 
	// Create Private Class Init and Terminate Procs
NO_OUTPUT_END

Private Sub Class_Initialize()
' Initialize Data
[Set n$AGGREGATION_MANY_CLASS As New Collection]
[Set m$ASSOCIATION_MANY_CLASS As New C$ASSOCIATION_MANY_CLASS]

End Sub

Private Sub Class_Terminate()
' Terminate Class

End Sub