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

1、.：.；类模块和规范模块类模块和规范模块的不同点在于存储数据方法的不同。规范模块的数据只需一个备份。这意味着规范模块中一个公共变量的值改动以后，在后面的程序中再读取该变量时，它将得到同一个值。而类模块的数据，是相对于类实例也就是，由类创建的每一对象而独立存在的。 同样的，规范模块中的数据在程序作用域内存在，也就是说，它存在于程序的存活期中；而类实例中的数据只存在于对象的存活期，它随对象的创建而创建，随对象的吊销而消逝。 最后，当变量在规范模块中声明为Public时，那么它在工程中任何地方都是可见的；而类模块中的Public变量，只需当对象变量含有对某一类实例的援用时才干访问。 上面的比较，同样

2、适用于规范模块和类模块中的公共过程，用下面的例子可以阐明。新建一个工程，并在“工程菜单中个添加一个规范模块和一个类模块，然后运转以下的代码： 把下面的代码放在 Class1 中：下面是 Class1 对象的一个属性。 Public Comment As String 下面是 Class1 对象的一个方法。 Public Sub ShowComment() MsgBox Comment, , gstrVisibleEverywhere End Sub 把下面的代码放在 Module1 中： 规范模块中的代码是全局的。 Public gstrVisibleEverywhere As String

3、Public Sub CallableAnywhere(ByVal c1 As Class1) 下行改动一个全局变量，这是一个Class1实例的属性 只需传送给该过程的个别对象才遭到影 c1ment = 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

4、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设置了下面全局变量gstrVisi

5、bleEverywhere的值。 按下Command1，调用全局过程并传送援用给第一个Class1对象。全局过程设置Comment属性，然后Command1调用ShowComment方法显示该对象的数据。 正如图1所示，结果信息框演示了全局过程CallableAnywhere如何设置对象的Comment属性，而且全局字符串在Class1内部是可见的。 图1第一个Class1对象的信息框按下Command2，调用第二个Class1类实例的ShowComment方法。 如图 9.7 所示，两个对象都访问了全局字符串变量；然而，第二个对象的Comment属性是空的，由于对全局过程CallableAn

6、ywhere的调用只改动第一个对象的Comment属性。 图2第二个Class1对象的信息框 重点：要防止类的代码依赖于全局变量，也就是规范模块中的公共变量。一个类的许多实例可以同时存在，一切这些对象在程序中共享全局数据。 在类模块代码中运用全局变量也违背了面向对象封装的编程原那么，由于由这样的类所创建的对象并没有包含它们的一切数据。 静态类数据 有时，希望由一个类模块所创建的一些对象共享某个数据项。这就是所谓的静态类数据。 不能在Visual Basic类模块中实现真正的静态类数据。但是，经过运用Property过程在规范模块中设置及前往Public数据成员的值，可以仿真静态类数据，如以下的

7、代码： 只读属性前往运用程序的名字。 Property Get CommonString() As String 变量 gstrVisibleEverywhere 保管在 规范模块中，并声明为 Public。 CommonString = gstrVisibleEverywhere End Property 留意：在类模块中，对模块级的变量不能声明为Static，Static数据只能在过程中运用。 由Property Let过程对于含有对象援用的属性，运用Property Set对规范模块数据成员赋予新的值，可以仿真非只读的静态类数据。然而，这种运用全局变量的方式违背了封装编程的原那么，而且不

8、引荐运用。 例如，变量gstrVisibleEverywhere可以在工程中任何地方赋值，甚至可以从别的类代码中赋值，只需该类具有CommonString属性。这样做能导致程序中非常微妙的错误。 对象模型 经过创建类模块并赋以属性和方法，就可以定义了类，接着就可以由该类创建恣意数量的对象。如何记录所创建的这些对象呢？ 记录对象最简单的方法，莫过于为创建的每个对象都声明一个对象变量。当然，这样对可以创建对象的数量就有了限制。可以在某个数组或者集合中坚持多个对象援用. 刚开场时，能够要定位窗体或规范模块中的对象变量、对象数组以及对象集合，就跟处置普通变量一样。但是，随着添加更多的类，能够会发现正运

9、用的这些对象之间有明确的关系。 对象模型表达了包含关系 ，对象模型给出了基于对象程序的构造。经过定义程序中所运用的对象之间的关系，对象模型可以以一种使编程变得更容易的方式来组织对象。 普通来说，对象模型表达了这样一个现实：即某些对象是“更大的，或者说比其它对象更重要一些可以以为这些对象是包含其它对象的对象，或者是由其它对象所组成的对象。 例如，在编程时，能够创建一个SmallBusiness对象来作为程序的中心。能够想让这个SmallBusiness对象包含与其关联的其它类型的对象，比如Employee对象和Customer对象。能够同时也希望它包含一个Product对象。可以定义四个类模块，

10、分别叫做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 第一次援用Produc

11、t属性时，将创建对象，由于曾经把它声明为As new。例如，可以用下面的代码创建并设置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 . . 初始化并显示主窗体的代码。

12、. End Sub 留意： 用公共变量来实现一个对象属性并不简约。假设在代码中的某处，将该属性设置为Nothing的话，能够会无意中将Product对象吊销。更好的方法是创建对象属性时，将之设置为只读属性，如以下代码所示。 为更强壮的对象属性所编制的代码，该属性的存储是私有的， 因此不能从对象的外部将之设置为Nothing。 Private mProduct As New Product Property Get Product() As Product 初次调用这个属性时，mProduct包含Nothing， 因此Visual Basic将创建一个Product对象。 Set Product

13、 = mProduct End If 一对多对象关系 当对象之间关系是一对一时，对象属性可以正常任务。然而，经常出现的情况却是，某种类型的一个对象包含另一种类型的一些对象。在SmallBusiness对象模型中，Employees属性是作为一个Collection对象来实现的，因此，这个SmallBusiness对象可以包含多个Employee对象。以下代码显示了怎样把新的Employee对象添加到这个集合中。 Public Function NewEmployee(Name, Salary, HireDate, _ ID) As Employee Dim empNew As New Empl

14、oyee 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集合，都可将现有的雇员列出。 留意： 再次阐明，并

15、没有非常强壮的实现方法。比较好的实际是创建本人的集合类，并将它们按只读属性给出。这在“创建本人的集合类中作了讨论。 提示： 在Visual Basic的专业版和企业版中，包括Class Builder适用工具，利用这个适用工具，可以产生实现对象模型时需求的大量代码。Class Builder可创建强壮的对象属性和集合类，并且可以很容易地重新组织对象模型。 Parent 属性 具有对象的援用时，经过运用对象属性和对象集合，就可以到达这个援用所包含的对象。可以向分层构造的上层挪动也是非常有用的，由于可以到达包含所援用对象的那个对象。向上挪动通常是用Parent属性来完成的。Parent属性前往对象

16、容器的援用。关于对象模型定位的讨论，请参阅“用部件编程中的“定位对象模型。提示 当把Parent属性赋给集合中的对象时，不要运用对Collection对象的援用。这个对象真正的父是包含该集合的对象。假设Parent属性指向了该集合，将不得不运用两级间接指针，才干到达真正的父也就是说，要用obj.Parent.Parent，而不是obj.Parent。 Parent 属性、循环援用，以及对象装配 运用Parent属性的一个最大问题是它们会呵斥循环援用。“较大的对象具有对所包含对象的援用，而被包含的对象经过其Parent属性也有援用，这样就创建了一个环。 在这幅图片上有什么错误？去除这些对象的方法

17、，是在用对象完成任务后，释放一切对它们的援用。假设对 SmallBusiness 对象的援用是在一个名为sbMain的变量中，就象在本节主题前面讨论的那样，能够会写出象下面这样的代码： Set sbMain = Nothing 不幸的是，依然有一个对 SmallBusiness 对象的援用现实上，能够有许多援用，由于每个Employee对象的Parent属性都将包含对这个SmallBusiness对象的援用。 由于SmallBusiness对象的Employees集合包含有对每个Employee对象的援用，因此任何对象都不会被吊销。 TearDown 方法 一个处理这个问题的方法是，把Tear

18、Down方法添加给该SmallBusiness对象。这样，就可以将一切SmallBusiness对象的对象属性设置为Nothing，同时也将一切Collection对象 (Employees, Customers)设置为Nothing。 当Collection对象被吊销时，Visual Basic就把它所包含的一切对象援用设置为Nothing。假设没有对包含Employees和Customers 集合中的Employee和Customer对象其它的援用，那么它们将被吊销。 当然，假设Employee对象是由更小的对象构成的，那么将会存在其父对象所具有的同样的循环援用问题。在那种情况下，必需将一

19、个TearDown方法赋给Employee类。要做的事情并不仅仅是将Employees的Collection对象设置为Nothing，SmallBusiness对象还将不得不首先遍历该集合，调用每个Employee对象的TearDown方法。其它问题 即使这样，也并非一切对象都能被吊销。假设在程序的某个地方还有一些变量，这些变量依然包含对SmallBusiness对象，或者对SmallBusiness对象所包含的任何对象的援用，那么这些对象将不会被破坏。程序中必需有一部分清理代码，以确保各个地方的一切对象变量都被设置为Nothing。 为了测试能否正发生这种情况，能够需求将一些调试代码添加到对象中。例如，可以将以下代码添加到规范模块中：全局调试集合Public gcolDebug As New Collection 全局函数，赋给每个对象一个独一的 ID。 Public Function DebugSerial() As Long S