vb 类模块的使用

Private Declare Function timeGetTime Lib "winmmdll" () As Long
Private Declare Function timeGetDevCaps Lib "winmmdll" (lpTimeCaps As TIMECAPS, ByVal uSize As Long) As Long
'
' API Structure definitions
'
Private Type TIMECAPS
wPeriodMin As Long
wPeriodMax As Long
End Type
'
' Set aside storage for private member variables
'
Private m_StartTime As Long
Private m_PeriodMin As Long
Private m_PeriodMax As Long
'
' Initialize
'
Private Sub Class_Initialize()
'
' Retrieve system timer resolution
'
Dim tc As TIMECAPS
Call timeGetDevCaps(tc, Len(tc))
m_PeriodMin = tcwPeriodMin
m_PeriodMax = tcwPeriodMax
'
' Initialize starting time
'
m_StartTime = timeGetTime()
End Sub
'
' Public Properties
'
Public Property Get Elapsed() As Long
'
' Read-Only: return elapsed time in milliseconds
' since stopwatch was reset
'
Elapsed = timeGetTime() - m_StartTime
End Property
Public Property Get MinimumResolution() As Long
'
' Read-Only: return minimum number of milliseconds
' timer is capable of resolving
'
MinimumResolution = m_PeriodMin
End Property
Public Property Get MaximumResolution() As Long
'
' Read-Only: return maximum number of milliseconds
' timer is capable of resolving
'
MaximumResolution = m_PeriodMax
End Property
'
' Public Methods
'
Public Sub Reset()
'
' Reinitialize starting time
'
m_StartTime = timeGetTime()
End Sub

窗体级变量和模块级别的变量是根据变量的作用域来确定窗体级变量是指定义在窗体内部,但在任何一个过程内部的变量这个变量在该窗体内部任何一个过程中都可以直接使用不在需要定义模块级别的变量是指定义在标准模块中的变量如果定义的是public的那么这个变量将对整个工程有效,如果是private的则仅仅能够在模块内部使用标准模块中的变量会一直存在,直到整个工程被销毁窗体级别的变量是在窗体创建时创建,直到窗体被销毁时销毁过程内部的变量一般都是过程级别的,只在该过程内部有效超过该过程则无效
如果朋友还不明白可以自己定义几个这样的变量来时候不过
vb6中需要加入option
explicit
关键字在模块或者窗体的顶部,也就是第一行这样编译器会强制要求每个变量定义

本示例演示了如何用类模块定义类（然后可以用它创建对象）。还将展示如何为新的类创建属性和方法并演示对象是如何创建和撤消的。

打开一个新的“标准 EXE”工程，在“工程”菜单中选中“添加类模块”插入一个类模块。在窗体上画四个按钮。下表列出了本示例中要设置的对象属性值。

对象 属性 设置值
Class 类模块 Name Thing
Command1 Caption 显示该 Thing
Command2 Caption 颠倒该 Thing 的名称
Command3 Caption 创建新的 Thing
Command4 Caption 临时的 Thing
注意 类模块保存在扩展名为 cls 的文件中。

添加下列代码到类模块的声明段：

Option Explicit
Public Name As String
Private mdtmCreated As Date

变量 Name 将成为 Thing 对象的属性，因为它声明为 Public。

注意 不要把这个 Name 属性和上表设置的类模块的 Name 属性混淆（类模块的 Name 属性为 Thing 类提供了名称）。为什么要给 Thing 类命名呢？最好应该反过来问，为什么不？应该给 Thing 类一个名称因为事物总是有名称的！应该知道 Visual Basic 使用属性和方法的名称并没有什么特殊点。可以为自己不同的类使用相同的属性和方法名。

变量 mdtmCreated 是私有数据成员，用于存储只读的 Created 属性的值。Created 属性返回 Thing 对象产生的日期和时间。为了实现 Created 属性，将以下 Property Get 代码添加到类模块的声明部分：

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

注意 如果通过“工具”菜单下的“添加过程”对话框添加属性过程，应确认删除了 Property Let 声明，它是通过本对话框自动添加的。Property Let 只用于读写属性，参见“运用属性过程”部分。

Thing 对象有一个方法 ReverseName，用于颠倒 Name 属性的字母顺序。它不返回值，因此是一个 Sub 过程。向类模块添加以下 Sub 过程。

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

类模块有两个事件：Initialize 和 Terminate。从类模块的“对象”下拉列表中，选择“类”。下拉出的“过程”列表将显示事件。将以下代码放到事件过程中：

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

一般 Initialize 事件包含了对象创建时所需的所有代码，如为 Created 属性提供时间标记。Terminate 事件包含撤消对象后进行清理的所有代码。

本示例中，两个事件主要用来提供 Thing 对象创建或撤消的可视化指示。

Thing 对象的使用
添加以下代码到窗体模块的声明段：

Option Explicit
Private mth As Thing

变量 mth 保存了对一个 Thing 对象的引用，该对象是在窗体的 Load 事件中产生的。将以下代码分别添加到 Form_Load 事件过程及四个按钮的 Click 事件过程中。

Private Sub Form_Load()
Set mth = New Thing
mthName = InputBox("Enter a name for the Thing")
End Sub

'按钮“显示该 Thing”
Private Sub Command1_Click()
MsgBox "Name: " & mthName & vbCrLf _
& "Created: " & mthCreated, , "Form Thing"
End Sub

'按钮“颠倒该 Thing 的名称”
Private Sub Command2_Click()
mthReverseName
'单击“显示该 Thing”
Command1Value = True
End Sub

'按钮“创建新的 Thing”
Private Sub Command3_Click()
Set mth = New Thing
mthName = InputBox( _
"Enter a name for the new Thing")
End Sub

'按钮“临时的 Thing”。
Private Sub Command4_Click()
Dim thTemp As New Thing
thTempName = InputBox( _
"Enter a name for the Temporary Thing")
End Sub

运行工程
按 F5 键运行该工程。观察 Form_Load 事件过程可知 New *** 作符用于创建 Thing 对象。对该对象的引用赋给了变量 mth。

InputBox 函数要求输入 Thing 的名称。输入名称并按 ENTER 键后，返回值被赋予 Thing 对象的 Name 属性。

显示窗体 Thing
可以通过按下第一个按钮“显示该 Thing”来验证所赋的 Name 属性值，此时将显示一个包含了 Thing 对象所有属性的消息框。

颠倒 Thing 的名称
按第二个按钮“颠倒该 Thing 的名称”。该按钮调用 ReverseName 方法把 Thing 对象的名称倒过来，然后按第一个按钮显示更新过的属性值。

创建新的 Thing
单击“创建新的 Thing”按钮撤消已存在的 Thing 对象后再创建一个新的对象。（或，反过来进行，创建一个新的 Thing 对象然后撤消旧的。）

New *** 作符创建一个新的 Thing，因此可以看见新 Thing 的 Initialize 事件显示的消息框。单击“确定”，对新 Thing 的引用被赋给了窗体级的变量 mth。

这样做清除了对旧的 Thing 的引用。由于不再有引用，所以它被撤消，因此可以看到 Terminate 事件的消息框。单击“确定”后，InputBox 语句要求输入新 Thing 的名称。

注意 如果希望在创建新的 Thing 之前撤消旧的，可以添加代码 Set mth = Nothing 到事件过程的开始部分。

临时的 Thing
第四个按钮演示了对象存活期的另一个方面。按下后，将提示输入临时 Thing 的名称。

可是等一等，这还不是一个临时的 Thing 对象。还没有见到其 Initialize 消息框，怎么赋给它名称呢？

由于变量 thTemp 已被 As New 声明过了，因此当一个属性或方法被使用时就会创建 Thing 对象。这将发生在输入框返回的值被赋给 Name 属性时。在输入框键入名称后单击“确定”。

此时可以看到 Initialize 的消息框，其中的 Name 属性还是空白。当单击“确定”关闭消息框后，InputBox 语句的值终于赋给了 Name 属性。看看这一行代码作了多少事。

当然，当完成了这一切后，Click 事件过程也结束了，变量 thTemp 也超出可见范围，对临时 Thing 的对象引用也被释放，因此可以看到 Thing 的 Terminate 消息框，注意其中包含所提供的名称。

每次单击该按钮将创建另一个临时 Thing，并进行命名，将它撤消。

关闭程序
单击窗体的“关闭”按钮可终止应用程序。不要使用工具栏上的 End 按钮。应用程序终止时，Form1 被撤消。变量 mth 也超出可见范围，Visual Basic 清除对 Thing 的引用。由于已不存在对 Thing 的引用，因此被撤消并显示 Terminate 事件的消息框。

再次运行应用程序，这次用工具栏上的 End 按钮终止程序。注意这时没有显示 Thing 对象的 Terminate 消息框。

应特别记住使用 End 按钮终止应用程序或在代码中用 End 语句立即退出应用程序，并不能运行任何对象的 Terminate 事件。最好能通过卸载所有的窗体来关闭应用程序。

通过 F8 键以每次运行一行代码的形式运行示例，是一个很有用的方法。这有利于理解创建和撤消对象的事件的顺序。

重点 在实际的应用程序中，Initialize 和 Terminate 事件不应包含消息框或其它任何使 Windows 显示消息的代码。一般来说，调试对象的存活期时最好用 DebugPrint 语句。

---