vbclas0.sct

来自「c#设计模式WithCla」· SCT 代码 · 共 42 行

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

[Public ATTRIBUTE_NAME As ATTRIBUTE_TYPE]

[Public ASSOCIATION_ONE_NAME As ASSOCIATION_ONE_CLASS]

[Public AGGREGATION_ONE_NAME As New AGGREGATION_ONE_CLASS]

[Public ASSOCIATION_MANY_NAME As New Collection]

[Public AGGREGATION_MANY_NAME As New Collection]

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

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

Private Sub Class_Initialize()
End Sub

Private Sub Class_Terminate()
End Sub