vbnet1.sct

c#设计模式WithCla

SYSTEM_NAME
[Imports INCLUDE_FILE;]

CLASS_VISIBILITY CLASS_VBNET_ABSTRACT Class CLASS_NAME [VBNET_BASE_CLASSES] SKIP_NEXT_IF_BLANK$Implements CLASS_LIBRARY_BASE_CLASS     

   SELECT_WHEN LOGICAL_NOT ATTRIBUTE_IS_PROPERTY
   [ATTRIBUTE_ACCESS ATTRIBUTE_VBNET_CONST ATTRIBUTE_VBNET_STATIC ATTRIBUTE_NAME As ATTRIBUTE_TYPE = ATTRIBUTE_INITIAL_VALUE]
   [Private ASSOCIATION_ONE_NAME As ASSOCIATION_ONE_CLASS]
   [Private  AGGREGATION_ONE_NAME As New AGGREGATION_ONE_CLASS()]
   [Private ASSOCIATION_MANY_NAME() As ASSOCIATION_MANY_CLASS]
   [Private AGGREGATION_MANY_NAME() As New ASSOCIATION_MANY_CLASS]
   
   'Default Constructor
   Public Sub New()  
     SELECT_WHEN_ONCE ATTRIBUTE_IS_STATIC [] 
    SELECT_WHEN_ONCE ATTRIBUTE_IS_FINAL [] 
    SELECT_WHEN_ONCE ATTRIBUTE_IS_CONSTANT [] 
    SELECT_THE_REST [COLUMN_TAB(5) ATTRIBUTE_NAME = ATTRIBUTE_INITIAL_VALUE
    ]
   
     SELECT_RESET
   End Sub

' OPERATION_COMMENT1
' OPERATION_COMMENT2
' OPERATION_COMMENT3
SELECT_WHEN OPERATION_IS_PROCEDURE
   [COLUMN_TAB(3)' OPERATION_COMMENT1
    COLUMN_TAB(3)' OPERATION_COMMENT2
    COLUMN_TAB(3)' OPERATION_COMMENT3
    OPERATION_ACCESS OPERATION_OVERLOADS OPERATION_OVERRIDES OPERATION_OVERRIDABLE OPERATION_NOT_OVERRIDABLE OPERATION_MUST_OVERRIDE OPERATION_SHADOWS OPERATION_SHARED Sub OPERATION_NAME(VB_OPERATION_PARAMETERS)
    OPERATION_CODE
    End Sub
   ]

SELECT_WHEN OPERATION_IS_FUNCTION
    [COLUMN_TAB(3)' OPERATION_COMMENT1
     COLUMN_TAB(3)' OPERATION_COMMENT2
     COLUMN_TAB(3)' OPERATION_COMMENT3
     OPERATION_ACCESS OPERATION_OVERLOADS OPERATION_OVERRIDES OPERATION_OVERRIDABLE OPERATION_NOT_OVERRIDABLE OPERATION_MUST_OVERRIDE OPERATION_SHADOWS OPERATION_SHARED Function OPERATION_NAME(VB_OPERATION_PARAMETERS) As OPERATION_RETURN_TYPE
       OPERATION_CODE   
    End Function
   ]

SELECT_WHEN ATTRIBUTE_IS_PROPERTY
[Property ATTRIBUTE_NAME AS ATTRIBUTE_TYPE
Get
  ATTRIBUTE_NAME = My$ATTRIBUTE_NAME
End Get
Set
  My$ATTRIBUTE_NAME = Value
End Set
End Property
]


   
   
   public Overrides Function ToString() As String
     ToString = "CLASS_NAME"
   End Function
 
   
End Class