文档介绍：（冶金行业）VB类模块和 标准模块使用和区别
20XX年XX月
，值得您下载拥有
类模块和标准模块
类模块和标准模块的不同点在于存储数据方法的不同。标准模块
的数据只有壹个备份。这意味着标准模块中壹个公共变量的值改变以
后，在后面的程序中再读取该变量时，它将得到同壹个值。而类模块
的数据，是相对于类实例(也就是，由类创建的每壹对象)而独立存
在的。
同样的，标准模块中的数据在程序作用域内存在，也就是说，它
存在于程序的存活期中；而类实例中的数据只存在于对象的存活期，
它随对象的创建而创建，随对象的撤消而消失。
最后， 当变量在标准模块中声明为 Public 时， 则它在工程中任何
地方都是可见的； 而类模块中的 Public 变量， 只有当对象变量含有对
某壹类实例的引用时才能访问。
上面的比较，同样适用于标准模块和类模块中的公共过程，用下
面的例子能够说明。新建壹个工程，且在“工程”菜单中个添加壹个
标准模块和壹个类模块，然后运行以下的代码：
把下面的代码放在 Class1 中：
' 下面是 Class1 对象的壹个属性。
PublicCommentAsString
' 下面是 Class1 对象的壹个方法。
PublicSubShowComment()
MsgBoxComment,,gstrVisibleEverywhere
EndSub
把下面的代码放在 Module1 中：
' 标准模块中的代码是全局的。
PublicgstrVisibleEverywhereAsString
PublicSubCallableAnywhere(ByValc1AsClass1)
' 下行改变壹个全局变量，这是壹个 Class1 实例的(属性)
' 只有传递给该过程的个别对象才受到影
="Touchedbyaglobalfunction."
EndSub
把俩个命令按钮放在 Form1 上， 且在 Form1 中添加以下的代码：
Privatemc1FirstAsClass1
Privatemc1SecondAsClass1
PrivateSubForm_Load()
' 创建俩个 Class1 类的实例。
Setmc1First=NewClass1
Setmc1Second=NewClass1
gstrVisibleEverywhere="Globalstringdata"
EndSub
PrivateSubCommand1_Click()
CallCallableAnywhere(mc1First)
EndSub
PrivateSubCommand2_Click()
EndSub
按 F5 键，运行该工程。当 Form1 加载时，它创建俩个 Class1
类实例， 每个实例有自己的数据。同时， Form1 设置了下面全局变量
gstrVisibleEverywhere 的值。
按下 Command1 ， 调用全局过程且传递引用给第壹个 Class1 对
象 。 全 局 过 程 设 置 Comment 属 性 ， 然 后 Command1 调 用 ShowComment 方法显示该对象的数据。
正如图 1 所示，结果信息框演示了全局过程 CallableAnywhere
如何设置对象的 Comment 属性，而且全局字符串在 Class1 内部是
可见的。
图 1 第壹个 Class1 对象的信息框
按下 Command2 ， 调用第二个 Class1 类实例的 ShowComment 方
法。
如图 所示，俩个对象都访问了全局字符串变量；然而，第二个对
象的 Comment 属性是空的， 因为对全局过程 CallableAnywhere 的
调用只改变第壹个对象的 Comment 属性。
图 2 第二个 Class1 对象的信息框
重点： 要避免类的代码依赖于全局变量，也就是标准模块中的公共变
量。壹个类的许多实例能够同时存在，所有这些对象在程序中共享全
局数据。
在类模块代码中使用全局变量也违背了面向对象封装的编程原则，因
为由这样的类所创建的对象且没有包含它们的所有数据。
静态类数据
有时，希望由壹个类模块所创建的壹些对象共享某个数据项。这就是
所谓的静态类数据。
不能在 VisualBasic 类模块中实现真正的静态类数据。可是，通过使
用 Property 过程在标准模块中设置及返回 Public