thing.cls

窗体控件随窗体变化大小的类模块,程序时声明对象,参数为该窗体.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Thing"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
  Option Explicit
  Public Name     As String
  Private mdtmCreated     As Date

Property Get Created() As Date
     Created = mdtmCreated
End Property

  Public Sub ReverseName()
        Dim intCt     As Integer
        Dim strNew     As String
        For intCt = 1 To Len(Name)
              strNew = Mid$(Name, intCt, 1) & strNew
        Next
        Name = strNew
  End Sub

  Private Sub Class_Initialize()
        '设置对象创建的日期/时间，
        '       由只读的   Created   属性返回。
        mdtmCreated = Now
        '显示对象属性。
        MsgBox "Name:   " & Name & vbCrLf & "Created:   " _
        & Created, , "Thing   Initialize"
  End Sub
  
  Private Sub Class_Terminate()
        '显示对象属性。
        MsgBox "Name:   " & Name & vbCrLf & "Created:   " _
        & Created, , "Thing   Terminate"
  End Sub