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

《vb类模块和标准模块使用和区别》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、类模块和标准模块类模块和标准模块的不同点在于存储数据方法的不同。标准模块的数据只有一个备份。这意味着标准模块中一个公共变量的值改变以后，在后面的程序中再读取该变量时，它将得到同一个值。而类模块的数据，是相对于类实例（也就是，由类创建的每一对象）而独立存在的。同样的，标准模块中的数据在程序作用域内存在，也就是说，它存在于程序的存活期中；而类实例中的数据只存在于对象的存活期，它随对象的创建而创建，随对象的撤消而消失。最后，当变量在标准模块中声明为Public时，则它在工程中任何地方都是可见的；而类模块中的Public变量，只有当对象变量含有对

2、某一类实例的引用时才能访问。上面的比较，同样适用于标准模块和类模块中的公共过程，用下面的例子可以说明。新建一个工程，并在“工程”菜单中个添加一个标准模块和一个类模块，然后运行以下的代码：把下面的代码放在 Class1 中：'下面是 Class1 对象的一个属性。Public Comment As String'下面是 Class1 对象的一个方法。Public Sub ShowComment()   MsgBox Comment, , gstrVisibleEverywhereEnd Sub把下面的代码放在 Module1 中：'标准模块

3、中的代码是全局的。Public gstrVisibleEverywhere As StringPublic Sub CallableAnywhere(ByVal c1 As Class1)   '下行改变一个全局变量，这是一个Class1实例的（属性）   '只有传递给该过程的个别对象才受到影    c1.Comment = "Touched by a global function."End Sub把两个命令按钮放在 Form1 上，并在 Form1 中添加以下的代码：Private mc1First As Class1Private 

4、mc1Second As Class1Private Sub Form_Load()   '创建两个 Class1 类的实例。   Set mc1First = New Class1   Set mc1Second = New Class1   gstrVisibleEverywhere = "Global string data"End SubPrivate Sub Command1_Click()   Call CallableAnywhere(mc1First)   mc1First.ShowCommentEnd SubPrivat

5、e Sub Command2_Click()   mc1Second.ShowCommentEnd Sub按F5键，运行该工程。当Form1加载时，它创建两个Class1类实例，每个实例有自己的数据。同时，Form1设置了下面全局变量gstrVisibleEverywhere的值。按下Command1，调用全局过程并传递引用给第一个Class1对象。全局过程设置Comment属性，然后Command1调用ShowComment方法显示该对象的数据。正如图1所示，结果信息框演示了全局过程CallableAnywhere如何设置对象的Comm

6、ent属性，而且全局字符串在Class1内部是可见的。图1第一个Class1对象的信息框按下Command2，调用第二个Class1类实例的ShowComment方法。如图 9.7 所示，两个对象都访问了全局字符串变量；然而，第二个对象的Comment属性是空的，因为对全局过程CallableAnywhere的调用只改变第一个对象的Comment属性。图2第二个Class1对象的信息框重点：要避免类的代码依赖于全局变量，也就是标准模块中的公共变量。一个类的许多实例可以同时存在，所有这些对象在程序中共享全局数据。在类模块代码中使用全局变量也

7、违背了面向对象封装的编程原则，因为由这样的类所创建的对象并没有包含它们的所有数据。静态类数据有时，希望由一个类模块所创建的一些对象共享某个数据项。这就是所谓的静态类数据。不能在VisualBasic类模块中实现真正的静态类数据。但是，通过使用Property过程在标准模块中设置及返回Public数据成员的值，可以仿真静态类数据，如以下的代码：'只读属性返回应用程序的名字。Property Get CommonString() As String   '变量 gstrVisibleEverywhere 保存在   '标准模块中，并声明为 P

8、ublic。   CommonString = gstrVisibleEverywhereEnd Property注意：在类模块中，对模块级的变量不能声明为Static，Static数据只能在