【转】VB6.0中用户类和数据源类的设计和使用技术

本文转自：http://www.pcworld.com.cn/99/script/9907/072601b.asp

 摘要：用户自定义类（Class）是Visual Basic 6.0中实现软件重用的最基本方法，也是设计和使用Active X EXE/DLL部件的技术基础。在VB6.0中除了可定义一般功能的类外，还可以定义从外部源获取数据的数据源类（包括ODBC 源、ADO，或者任何 OLE DB 提供程序）。该文介绍了在VB 6.0中定义和使用类的属性过程、方法、特别是类的自定义事件的方法与技巧，最后特别介绍了包含两个外部数据成员的数据源类的定义、使用的若干技术。

 关键词：类（Class），自定义事件，数据源类

 一、 绪论

 Visual Basic 6.0是面向对象的编程语言，允许开发人员设计自定义类。用户自定义类（Class）是VB 6.0中实现软件重用的最基本方法，也是设计和使用Active X EXE/DLL部件的技术基础。在VB 6.0中可以用手工的方式直接设计类，也可用类设计器设计类，而且，VB 6.0提供了类向导（如数据源类向导，复杂数据源类向导）供快速设计复杂类。本文基本上以笔者设计的通讯电源电压监控为例介绍定义和使用类（特别是类的自定义事件）的方法（包括属性、方法、自定义事件），并将讨论包含两个外部数据成员的数据源类的定义、使用技术。

 二、自定义类的设计和使用

 2.1 自定义类的设计

 手工设计自定义类分以下四步：

 第一步、设计类的属性或属性过程（Property）

 在VB 6.0中有两种类型的属性，即用向类模块中添加Public变量的方法定义的一般属性，和用向类模块中添加Property GET/LET/SET过程的方法定义的属性过程，一般使用属性过程。属性过程分只读（Property GET）、只写（Property LET/SET）、读写（Property GET和LET/SET）属性过程三种，SET用于定义对象类型属性过程，而LET用于定义非对象类型属性过程。GET/LET/SET的含义是：当读取/使用（即Access存取）该属性值时，执行Property Get中的代码；当写入/修改（即Assign指派）该属性值时，执行Property Let或Set中的代码。因为在存取或指派属性值时能执行一段代码，我们就可以在属性过程中增加许多代码（如检验代码），这正是属性过程的优点。

 例如：下面代码定义了两个属性CurVolume和PreviousVolume

Option Explicit
Public PreviousVolume As Integer
 '定义了属性PreviousVolume
'下述代码定义属性过程CurVolume
Dim mVolume As Integer 
'为属性CurVolume定义临时存贮区
Public Property Get CurVolume() As Integer
 '读属性CurVolume
CurVolume = mVolume
End Property
Public Property Let CurVolume(ByVal vNewValue As Integer)
   '写属性CurVolume
If vNewValue < 0 Then
     MsgBox ("电压值为负，无法写入！")
Else
     mVolume = vNewValue
End If
End Property

 关于属性过程有几点说明：

读写属性过程的Property GET名称和LET/SET名称必须相同，且Property GET的参数个数比LET/SET的参数个数少一个，但Property GET的类型和LET/SET的最后一个参数的类型相同。例如：下例定义了一个数组属性mintNa(0 TO 99)
Option Explicit
Private mintN As Integer
Private mintNa(100) As String
Public Property Get NumberOfTeeth
(ByVal Newvalue As Integer) As String
    NumberOfTeeth = mintNa(Newvalue)
End Property
Public Property Let NumberOfTeeth(ByVal Newvalue As
Integer, ByVal x As String)
    mintNa(Newvalue) = x
End Property

由于窗体为类，故可以为窗体添加属性过程。

属性过程的作用域有三种：
 Private：本类模块中有效

 Public：本类模块和其他模块中均有效

 Friend：主要用于Active X部件设计。对本工程中而言，相当于Public；对其他工程/应用而言，相当于Private

 第二步、设计类的方法（Method）

 向类模块中添加Sub 或 Function 过程即可。例如：下例定义了一个公用方法

Public Sub VolumeCheck()
    If CurVolume < 200 Or CurVolume > 240 Then
        MsgBox ("引发事件VolumeWarn")
        RaiseEvent VolumeWarn
    End If
End Sub

 第三步、设计类的事件（Event）

 在VB6中，设计和使用类模块中的自定义事件很特殊，不易理解。具体而言，向类模块中添加自定义事件有三步：

 （1）在类模块的声明部分，用Public Event 定义一个事件，事件可以有参数。例如，下例定义了两个事件：

Option Explicit
Public Event VolumeWarn()
Public Event PercentDone(ByVal pERcent As
 Integer, ByRef Cancel As Boolean)

 （2）在该类模块的某一个模块中，用Raise Event引发该事件。例如，公用模块VolumeCheck引发事件VolumeWarn（如果属性CurVolume之值在200~240V范围之外则引发该事件）：

Public Sub VolumeCheck()
    If CurVolume < 200 Or CurVolume > 240 Then
        MsgBox ("引发事件VolumeWarn")
        RaiseEvent VolumeWarn
    End If
End Sub

 如果该事件被引发，那么将执行为该事件编写的事件代码。问题是：事件代码在哪儿编写？不是在该类模块中编写，而是在事件源（引发该事件的对象）中编写，在事件源的声明部分用WITHEVENT声明该类。

 （3）在事件源中编写事件代码。例如，在项目中的Test窗体中引发该事件(即Test为事件源)，那么：

首先在Test窗体的声明部分用WITHEVENT声明该类（Private WithEvents xVolume As ClsVolumeCheck），代码编辑窗口的左边将出现该WITHEVENT变量xVolume

然后在代码编辑窗口的左边选择WITHEVENT变量，在右边选择VolumeWarn模块，于是产生一个空模块（如下图）：

 
在右边的VolumeWarn模块中为该事件编写的事件代码：
Private Sub xVolume_VolumeWarn()
        MsgBox ("电压不正常！")     '处理电压代码
    ' ..............
End Sub

 从上可以发现，不同的事件源所编写的自定义事件代码可以不相同。如何使用事件将在后面讲述。

 第四步、编写类的Initalize和Terminate事件代码

 为该类编写初始化和中断事件。

 2.2 自定义类的使用

 使用自定义类分四步：

 第一步、在适当的模块中（如通用）声明类变量。若类中有自定义事件，则使用用WITHEVENT声明该类，并为自定义事件编写事件代码（如前述的设计类的事件的第（3）步）。例如：

Private WithEvents xVolume  As ClsVolumeCheck
Private yVolume  As cls多态接口  
Private zVolume  As cls抽象类

 第二步、在适当的模块中（如Form_Load模块）对类变量赋值。例如：

Private Sub Form_Load()
        Set xVolume = New ClsVolumeCheck
End Sub

 第三步、在适当的模块中（如Form_Load模块）使用类的Public或Friend属性、方法。例如：

Private Sub Command1_Click()
xVolume.CurVolume = Text1.Text 
 '对xVolume的CurVolume属性赋值
Call xVolume.VolumeCheck 
 '调用xVolume的VolumeCheck过程
End Sub

 由于ClsVolumeCheck类中的VolumeCheck过程中有RaiseEvent VolumeWarn语句，故Call xVolume.VolumeCheck时可能引发事件VolumeWarn。当200 >Text1.Text >240时,将引发事件VolumeWarn，并执行在本窗体中为该类编写的事件代码：

Private Sub xVolume_VolumeWarn()
        MsgBox ("电压不正常！")
   '处理电压代码
End Sub

 第四步、释放类对象变量。这一点非常重要，当不用类对象变量时一定要释放它，以释放内存资源。例如：

Private Sub Form_QueryUnload(Cancel As Integer,
 UnloadMode As Integer)
Set xVolume = Nothing
End Sub

 三、数据源类的设计与使用

 数据源类是一个从外部源获取数据的类，这些数据将被其他对象所使用的，数据识别类不是必须有可视的外在表示，也不局限于某个特定的数据接口（如DAO 或者RDO)。数据识别类可以作为任何类型数据的数据源，包括传统的 ODBC 源、ActiveX Data Objects (ADO)，或者任何 OLE DB 提供程序。

 3.1创建步骤

 第一步、增加一个新类，设置类的DataSourceBehavior 属性为vbDataSource，则类就可以作为其他对象的数据源；增加ActiveX Data Objects 2.0 Library的引用。

 第二步、设计数据源类的Initialize事件代码、GetDataMember过程模块；

 第三步、为数据源类设计一些Public方法。

 例如下面的代码定义了一个包含两个外部数据成员的数据源类：

Option Explicit
Public Event MoveComplete() 
'公共事件
Dim WithEvents adoEmployeesRS As Recordset
   '第一个外部数据成员
Dim WithEvents adoVolumeRS As Recordset  
  '第二个外部数据成员

Private Sub Class_Initialize()
 '类的初始化事件
  Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;
Data Source=C:\Program Files\Microsoft
Visual Studio\VB98\Nwind.mdb;"
     '创建一个具体的ADO连接
  Set adoEmployeesRS = New Recordset
  adoEmployeesRS.Open "select Address,BirthDate,City
from Employees", db, adOpenStatic, adLockOptimistic
 '创建第一个具体的外部源所对应的
  ADO Recordset（adoEmployeesRS）
  DataMembers.Add " Employees"
  Set adoVolumeRS = New Recordset
  adoVolumeRS.Open "select Address,City,CompanyName from
 Customers", db, adOpenStatic, adLockOptimistic
 '创建第二个具体的外部源所对应的
  ADO Recordset（adoVolumeRS）
  DataMembers.Add " Customers "
End Sub

Private Sub Class_GetDataMember(DataMember As String,
Data As Object) '读数据源时发生
  Select Case DataMember
  Case "Employees"   '第一个ADO Recordset
     Set Data = adoEmployeesRS
 Case  "Customers" '第二个ADO Recordset
    Set Data = adoVolumeRS
  End Select
End Sub
'下面设计一些方法：
Private Sub adoPrimaryRS_MoveComplete()
  RaiseEvent MoveComplete
End Sub
Public Sub RequeryEmployees ()
  adoPrimaryRS.Requery
  DataMemberChanged "Employees"
End Sub
Public Sub RequeryCustomers ()
  adoVolumeRS.Requery
  DataMemberChanged "Customers"
End Sub

 3.2 如何在窗体模块中使用数据源类

 可以使用下面两种方法之一完成数据源和数据消费者（如TextBox）之间的绑定:

 方法一、利用数据属性来完成绑定。

 假设Form中有两个下面文本框控件数组（txtFieldsEmployees，txtFieldsCustomers）将分别用于显示两个外部数据成员的三个字段数据，其代码为：

Option Explicit
Private WithEvents PrimaryCLS As clsEmployeesCustomers

Private Sub Form_Load()
  Set PrimaryCLS = New clsEmployeesCustomers
  Dim oText As TextBox  
'绑定文本框控件数组txtFieldsEmployees到数据提供者
  For Each oText In Me.txtFieldsEmployees
    oText.DataMember = "Employees"    '设置DataMember
    Set oText.DataSource = PrimaryCLS  '设置DataSource
  Next
  txtFieldsEmployees (0).DataField = "Address"   '设置DataField
  txtFieldsEmployees (1).DataField = "BirthDate"
  txtFieldsEmployees (2).DataField = "City"
'绑定文本框控件数组txtFieldsCustomers到数据提供者
For Each oText In Me.txtFieldsCustomers
    oText.DataMember = "Customers"
    Set oText.DataSource = PrimaryCLS
  Next
  txtFieldsCustomers (0).DataField = "Address"
  txtFieldsCustomers (1).DataField = "City"
  txtFieldsCustomers (2).DataField = "CompanyName"
End Sub

Private Sub cmdRefresh_Click()    '调用公用方法
  On Error GoTo RefreshErr
  PrimaryCLS.RequeryEmployees
  PrimaryCLS.RequeryCustomers
  Exit Sub
RefreshErr:
  MsgBox Err.Description
End Sub

 方法二、利用BindingCollection来完成绑定。

 第一步、增加BindingCollection的引用，BindingCollection 是某个数据源和一个或多个数据使用者之间的绑定的集合。

 第二步、设计窗体声明、Load代码。

 第三步、在窗体的其他模块中使用数据源类的Public方法。

 例如下面的代码使用上面的包含两个外部数据成员的数据源类：

Option Explicit
Private WithEvents PrimaryCLS As clsEmployeesCustomers
Private objBC As BindingCollection   '定义一个绑定集合objBC
Private Sub Form_Load()
Set PrimaryCLS = New clsEmployeesCustomers
Set objBC = New BindingCollection   '对绑定集合objBC赋值

objBC.DataMember = "Employees"  '设置objBC 的DataMember
Set objBC.DataSource = PrimaryCLS '设置objBC 的DataSource
objBC.Add txtFieldsEmployees(0), "text", "address"
  '使用objBC绑定集合的.Add方法绑定txtFieldsEmployees(0)
文本框的Text属性到Employees 记录集的address字段
objBC.Add txtFieldsEmployees(1), "text", "BirthDate"
  '绑定txtFieldsEmployees(1)到BirthDate
objBC.Add txtFieldsEmployees(2), "text", "City"
     '绑定txtFielldsEmployees(1)到City

objBC.DataMember = "Customers"
Set objBC.DataSource = PrimaryCLS
objBC.Add txtFieldsCustomers(0), "text", "address"
objBC.Add txtFieldsCustomers(1), "text", "CompanyName"
objBC.Add txtFieldsCustomers(2), "text", "City"
End Sub

 上述两方法中第一种方法显得简洁，不象第二种方法需要BindingCollection的知识，建议使用第一种方法。