Class className
[Public | Private] propertyName
Private Sub Class_Initialize()
'...action when the class initialize
End Sub
'Cleaning up.
'Unhand that RAM you hog !
Private Sub Class_Terminate()
'...action when the class terminate
End Sub
[Public [Default]| Private] Property Get name [(arglist)]
[statements]
[[Set] name = expression]
[Exit Property]
[statements]
[[Set] name = expression]
End Property
[Public | Private] Property Let name ( [arglist,] value)
[statement]
[Exit Property]
[statement]
End Property
[Public | Private] Property Set name( [arglist,] reference)
[statement]
[Exit Property]
[statement]
End Property
End Class
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。