VB类模块和标准模块使用和区别.docx

VB类模块和标准模块使用和区别.docx

《VB类模块和标准模块使用和区别.docx》由会员分享，可在线阅读，更多相关《VB类模块和标准模块使用和区别.docx（9页珍藏版）》请在冰点文库上搜索。

VB类模块和标准模块使用和区别

类模块和标准模块

类模块和标准模块的不同点在于存储数据方法的不同。

标准模块的数据只有一个备份。

这意味着标准模块中一个公共变量的值改变以后，在后面的程序中再读取该变量时，它将得到同一个值。

而类模块的数据，是相对于类实例（也就是，由类创建的每一对象）而独立存在的。

同样的，标准模块中的数据在程序作用域内存在，也就是说，它存在于程序的存活期中；而类实例中的数据只存在于对象的存活期，它随对象的创建而创建，随对象的撤消而消失。

最后，当变量在标准模块中声明为Public时，则它在工程中任何地方都是可见的；而类模块中的Public变量，只有当对象变量含有对某一类实例的引用时才能访问。

上面的比较，同样适用于标准模块和类模块中的公共过程，用下面的例子可以说明。

新建一个工程，并在“工程”菜单中个添加一个标准模块和一个类模块，然后运行以下的代码：

把下面的代码放在 Class1 中：

'下面是 Class1 对象的一个属性。

Public Comment As String

'下面是 Class1 对象的一个方法。

Public Sub ShowComment（）

   MsgBox Comment, , gstrVisibleEverywhere

End Sub

把下面的代码放在 Module1 中：

'标准模块中的代码是全局的。

Public gstrVisibleEverywhere As String

Public Sub CallableAnywhere（ByVal c1 As Class1）

   '下行改变一个全局变量，这是一个Class1实例的（属性）

   '只有传递给该过程的个别对象才受到影

    c1.Comment = "Touched by a global function."

End Sub

把两个命令按钮放在 Form1 上，并在 Form1 中添加以下的代码：

Private mc1First As Class1

Private mc1Second As Class1

Private Sub Form_Load（）

   '创建两个 Class1 类的实例。

   Set mc1First = New Class1

   Set mc1Second = New Class1

   gstrVisibleEverywhere = "Global string data"

End Sub

Private Sub Command1_Click（）

   Call CallableAnywhere（mc1First）

   mc1First.ShowComment

End Sub

Private Sub Command2_Click（）

   mc1Second.ShowComment

End Sub

按F5键，运行该工程。

当Form1加载时，它创建两个Class1类实例，每个实例有自己的数据。

同时，Form1设置了下面全局变量gstrVisibleEverywhere的值。

按下Command1，调用全局过程并传递引用给第一个Class1对象。

全局过程设置Comment属性，然后Command1调用ShowComment方法显示该对象的数据。

正如图1所示，结果信息框演示了全局过程CallableAnywhere如何设置对象的Comment属性，而且全局字符串在Class1内部是可见的。

图1第一个Class1对象的信息框

按下Command2，调用第二个Class1类实例的ShowComment方法。

如图 9.7 所示，两个对象都访问了全局字符串变量；然而，第二个对象的Comment属性是空的，因为对全局过程CallableAnywhere的调用只改变第一个对象的Comment属性。

图2第二个Class1对象的信息框

重点：

要避免类的代码依赖于全局变量，也就是标准模块中的公共变量。

一个类的许多实例可以同时存在，所有这些对象在程序中共享全局数据。

在类模块代码中使用全局变量也违背了面向对象封装的编程原则，因为由这样的类所创建的对象并没有包含它们的所有数据。

静态类数据

有时，希望由一个类模块所创建的一些对象共享某个数据项。

这就是所谓的静态类数据。

不能在VisualBasic类模块中实现真正的静态类数据。

但是，通过使用Property过程在标准模块中设置及返回Public数据成员的值，可以仿真静态类数据，如以下的代码：

'只读属性返回应用程序的名字。

Property Get CommonString（） As String

   '变量 gstrVisibleEverywhere 保存在

   '标准模块中，并声明为 Public。

   CommonString = gstrVisibleEverywhere

End Property

注意：

在类模块中，对模块级的变量不能声明为Static，Static数据只能在过程中使用。

由PropertyLet过程（对于含有对象引用的属性，使用PropertySet）对标准模块数据成员赋予新的值，可以仿真非只读的静态类数据。

然而，这种使用全局变量的方式违背了封装编程的原则，而且不推荐使用。

例如，变量gstrVisibleEverywhere可以在工程中任何地方赋值，甚至可以从别的类代码中赋值，只要该类具有CommonString属性。

这样做能导致程序中非常微妙的错误。

对象模型 

通过创建类模块并赋以属性和方法，就可以定义了类，接着就可以由该类创建任意数量的对象。

如何记录所创建的这些对象呢？

记录对象最简单的办法，莫过于为创建的每个对象都声明一个对象变量。

当然，这样对能够创建对象的数量就有了限制。

可以在某个数组或者集合中保持多个对象引用.

刚开始时，可能要定位窗体或标准模块中的对象变量、对象数组以及对象集合，就跟处理普通变量一样。

但是，随着添加更多的类，可能会发现正使用的这些对象之间有明确的关系。

对象模型表达了包含关系，对象模型给出了基于对象程序的结构。

通过定义程序中所使用的对象之间的关系，对象模型能够以一种使编程变得更容易的方式来组织对象。

一般来说，对象模型表达了这样一个事实：

即某些对象是“更大的”，或者说比其它对象更重要一些—可以认为这些对象是包含其它对象的对象，或者是由其它对象所组成的对象。

例如，在编程时，可能创建一个SmallBusiness对象来作为程序的核心。

可能想让这个SmallBusiness对象包含与其关联的其它类型的对象，比如Employee对象和Customer对象。

可能同时也希望它包含一个Product对象。

可以定义四个类模块，分别叫做SmallBusiness、Employee、Customer和Product类模块，并给它们中的每个添加合适的属性和方法，但是怎样在对象之间建立连接呢？

有两种工具可以达到这个目的：

即Object属性和Collection对象。

下列这段代码显示了实现分层结构的一种办法：

' SmallBusiness 类模块中声明部分的代码。

Public Name As String

Public Product As New Product

Public Employees As New Collection

Public Customers As New Collection

第一次引用Product属性时，将创建对象，因为已经把它声明为Asnew。

例如，可以用下面的代码创建并设置SmallBusiness对象的Product对象的名称和价格。

' 一个标准模块的代码。

Public sbMain As New SmallBusiness

Sub Main

   sbMain.Name = "Velociraptor Enterprises, Inc."

   '在代码中首次使用Product变量时，创建Product对象。

   sbMain.Product.Name = "Inflatable Velociraptor"

   sbMain.Product.Price = 1.98

   .

   .   ' 初始化并显示主窗体的代码。

   .

End Sub

注意：

用公共变量来实现一个对象属性并不简洁。

如果在代码中的某处，将该属性设置为Nothing的话，可能会无意中将Product对象撤消。

更好的办法是创建对象属性时，将之设置为只读属性，如下列代码所示。

'为更强健的对象属性所编制的代码，该属性的存储是私有的，

'因此不能从对象的外部将之设置为Nothing。

Private mProduct As New Product

Property Get Product（） As Product

   '首次调用这个属性时，mProduct包含Nothing，

   '因此VisualBasic将创建一个Product对象。

   Set Product = mProduct

End If

一对多对象关系

当对象之间关系是一对一时，对象属性可以正常工作。

然而，经常出现的情况却是，某种类型的一个对象包含另一种类型的一些对象。

在SmallBusiness对象模型中，Employees属性是作为一个Collection对象来实现的，因此，这个SmallBusiness对象可以包含多个Employee对象。

下列代码显示了怎样把新的Employee对象添加到这个集合中。

Public Function NewEmployee（Name, Salary, HireDate, _

ID） As Employee

   Dim empNew As New Employee

   empNew.Name = Name      '对象的隐含创建。

   empNew.Salary = Salary

   empNew.HireDate = HireDate

   '添加到集合中，并使用ID作为一个键。

   sbMain.Employees.Add empNew, CStr（ID）

   '返回对新 Employee 的引用。

   Set NewEmployee = empNew

End Function

在创建SmallBusiness对象所代表的企业雇员时，需要调用这个NewEmployee函数多少次，就可以调用多少次。

任何时候，通过遍历Employees集合，都可将现有的雇员列出。

注意：

再次说明，并没有非常强健的实现方法。

比较好的实践是创建自己的集合类，并将它们按只读属性给出。

这在“创建自己的集合类”中作了讨论。

提示：

在VisualBasic的专业版和企业版中，包括ClassBuilder实用工具，利用这个实用工具，可以产生实现对象模型时需要的大量代码。

ClassBuilder可创建强健的对象属性和集合类，并且可以很容易地重新组织对象模型。

Parent 属性

具有对象的引用时，通过使用对象属性和对象集合，就可以到达这个引用所包含的对象。

能够向分层结构的上层移动也是非常有用的，因为可以到达包含所引用对象的那个对象。

向上移动通常是用Parent属性来完成的。

Parent属性返回对象容器的引用。

关于对象模型定位的讨论，请参阅“用部件编程”中的“定位对象模型”。

提示   

当把Parent属性赋给集合中的对象时，不要使用对Collection对象的引用。

这个对象真正的父是包含该集合的对象。

如果Parent属性指向了该集合，将不得不使用两级间接指针，才能到达真正的父—也就是说，要用obj.Parent.Parent，而不是obj.Parent。

Parent 属性、循环引用，以及对象拆卸

使用Parent属性的一个最大问题是它们会造成循环引用。

“较大”的对象具有对所包含对象的引用，而被包含的对象通过其Parent属性也有引用，这样就创建了一个环。

在这幅图片上有什么错误？

去除这些对象的办法，是在用对象完成工作后，释放所有对它们的引用。

假设对 SmallBusiness 对象的引用是在一个名为sbMain的变量中，就象在本节主题前面讨论的那样，可能会写出象下面这样的代码：

Set sbMain = Nothing

不幸的是，仍然有一个对 SmallBusiness 对象的引用—事实上，可能有许多引用，因为每个Employee对象的Parent属性都将包含对这个SmallBusiness对象的引用。

由于SmallBusiness对象的Employees集合包含有对每个Employee对象的引用，因此任何对象都不会被撤消。

TearDown 方法

一个解决这个问题的办法是，把TearDown方法添加给该SmallBusiness对象。

这样，就可以将所有SmallBusiness对象的对象属性设置为Nothing，同时也将所有Collection对象（Employees,Customers）设置为Nothing。

当Collection对象被撤消时，VisualBasic就把它所包含的所有对象引用设置为Nothing。

如果没有对包含Employees和Customers 集合中的Employee和Customer对象其它的引用，那么它们将被撤消。

当然，如果Employee对象是由更小的对象构成的，则将会存在其父对象所具有的同样的循环引用问题。

在那种情况下，必须将一个TearDown方法赋给Employee类。

要做的事情并不仅仅是将Employees的Collection对象设置为Nothing，SmallBusiness对象还将不得不首先遍历该集合，调用每个Employee对象的TearDown方法。

其它问题

即使这样，也并非所有对象都能被撤消。

如果在程序的某个地方还有一些变量，这些变量仍然包含对SmallBusiness对象，或者对SmallBusiness对象所包含的任何对象的引用，那么这些对象将不会被破坏。

程序中必须有一部分清理代码，以确保各个地方的所有对象变量都被设置为Nothing。

为了测试是否正发生这种情况，可能需要将一些调试代码添加到对象中。

例如，可以将下列代码添加到标准模块中：

'全局调试集合

Public gcolDebug As New Collection

' 全局函数，赋给每个对象一个唯一的 ID。

Public Function DebugSerial（） As Long

   Static lngSerial As Long

   lngSerial = lngSerial + 1

   DebugSerial = lngSerial

End Function

在每个类模块中，都可以加入类似下面这样的代码。

每个类在“Product”出现的地方提供它自己的名字。

'调试ID的存储。

Private mlngDebugID As Long

Property Get DebugID（） As Long

   DebugID = mlngDebugID

End Property

Private Sub Class_Initialize（）

   mlngDebugID = DebugSerial

   '将一个字符串登录项添加到全局集合中。

   gcolDebug.Add "Product Initialize; DebugID=" _

   & DebugID, CStr（DebugID）

End Sub

Private Sub Class_Terminate（）

   '删除字符串登录项，这样，就会知道对象不再存在了。

   gcolDebug.Remove CStr（DebugID）

End Sub

随着每个对象的创建，该对象将一个字符串放到全局集合中；当该对象撤消时，将删除该字符串。

在任何时候，都可以遍历全局集合，看看什么对象还没有撤消。

详细信息   

ActiveX部件中的全局数据，与普通程序中的处理方式不同。

 如果有VBP或VBE，请参阅《部件工具指南》中的“创建ActiveX部件”，“部件设计的一般准则”中的“标准模块与类模块”。