vb4clas0.sct

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

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$"

'Class - CLASS_NAME

Option Explicit

[Private m$ATTRIBUTE_NAME As ATTRIBUTE_TYPE]

[Private m$ASSOCIATION_ONE_NAME As ASSOCIATION_ONE_CLASS]

[Private m$AGGREGATION_ONE_NAME As AGGREGATION_ONE_CLASS]

[Private m$ASSOCIATION_MANY_NAME As Collection]

[Private m$AGGREGATION_MANY_NAME As 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
]

[Public Property Get ATTRIBUTE_NAME () As ATTRIBUTE_TYPE
  ATTRIBUTE_NAME = m$ATTRIBUTE_NAME
  End 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
  ASSOCIATION_ONE_NAME = m$ASSOCIATION_ONE_NAME
  End Property 

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

[Public Property Get ASSOCIATION_MANY_NAME ( ) As Collection
  ASSOCIATION_MANY_NAME = m$ASSOCIATION_MANY_NAME
  End Property 

Public Property Let ASSOCIATION_MANY_NAME ( a$ASSOCIATION_MANY_NAME As Collection ) 
  m$ASSOCIATION_MANY_NAME = a$ASSOCIATION_MANY_NAME
  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 ( a$AGGREGATION_ONE_NAME As AGGREGATION_ONE_CLASS ) 
  m$AGGREGATION_ONE_NAME = a$AGGREGATION_ONE_NAME
  End Property
]

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

Public Property Let AGGREGATION_MANY_NAME ( a$AGGREGATION_MANY_NAME As Collection ) 
  m$AGGREGATION_MANY_NAME = a$AGGREGATION_MANY_NAME
  End Property
]

Private Sub Class_Initialize()
  End Sub

Private Sub Class_Terminate()
  End Sub