文档介绍："世上无难事,只要肯登攀",程序员,而且你一定能。
事实上,我们每次设置文本编程控件的Text属性时,,同样在DAO数据控件运行MoveNext方法时,甚至在使用VB控制字时,。
那么,呢?
是一种通信的方式。
例如,就像我们的电视遥控一样。当我们按下某个频道按钮时,电视频道立马切换;而当我们按下开关按钮时,电视立即关闭等等。其实,我们并不关心它们是怎样工作的,我们只知道按下按钮就能产生某个动作就可以了。
程序的原理也是一样的。当改变文本编程控件的Text属性时,我们并不知道其中的原理,也许系统内部会调用几十个API函数也说不定?但对于用户来说,则只关心文本编程控件中显示的文本就可以了。
是一种重用代码的方式。
的通信方式后,可以方便地在任何地方使用多次。例如,组件后,就可用于任何程序中的任何地方。不仅VB应用程序、Excel程序可以访问,而且C++应用程序也可以访问它。
组件的代码可重用性是最主要的。
是基于实际对象的。
用COM创建的大多数组件是基于实际对象的,这就意味着一旦组件被创建,其使用是相当容易的。试想一下,如果我们在计算机系统中再添加一个用户,,是添加数据处理代码包、算法,还是向应用程序添加较大的数据库DLL?就支持这种简单操作。
是一种通信方式、一种代码重用方式以及基于实际对象的。
和VB的相关内容,这包括类的创建,以及如何将类转换成一个实际对象。虽然,这里的内容太过简单,编程的基础。
在本节中,我们来实践一下。对象,然后使用它,最后再想法改进。 
首先进行下面两步:
运行Visual Basic;选择"Standard EXE"工程类型;对象是基于类的,而类实际上是程序包,就像模块中的代码一样。所以:
选择"Project"->"Add Class Module";当相应的对话框出现后,选择"'Class Module",然后单击"Open"按钮。
这样,在桌面上显示一个表单,以及包含在工程Project1中的Class1。
下面再将空的类的类名更改:
在类的属性窗口中,将类的Name属性改成CDog。
需要说明的是,为了区别起见,每个对象名的前面都有相应的前缀,例如Text Box对象前是"txt"、Form前是"frm"、类前可以大写字母"C"或小写字母"cls",但这里使用前者。
下面我们添加一些代码来测试一下:
在CDog类通用声明部分中,添加变量的声明:
Public Name As String
然后,打开Form1;
在表单中添加一个命令按钮;
打开代码窗口,为该命令按钮添加下列代码:
Dim MyDog As CDog
Set MyDog = New CDog
= "Billy Moore"
MsgBox
Set MyDog = Nothing
下面就来解释上述代码的含义: 
Dim MyDog As CDog
该行语句是用来通知Visual Basic为CDog对象设置一个位空间,但这时还不能使用该对象,必须等到下条语句为止:
Set MyDog = New CDog
它是用来创建CDog的实例。这就意味着前面空的MyDog模板变成了现在可以使用的CDog对象。 
= "Billy Moore"
MsgBox
上述代码的第一行是用来设置MyDog的Name变量,同时第二行语句是用来将该变量的内容显示在消息对话框中。最后:
Set MyDog = Nothing
用来将MyDog对象简单的置空。
按F5键运行并测试。 
怎么样?但同时,我们可能不禁要问,标准模块和类模块究竟有什么不同?我们再来看看下面的示例:
将命令按钮的代码变成:
Dim MyDog As CDog
Set MyDog = New CDog
Dim MyDog2 As CDog
Set MyDog2 = New CDog
= "Billy Moore"
MsgBox
= "Sadie Moore"
MsgBox
Set MyDog = Nothing
Set MyDog2 = Nothing
与最前面的代码不同的是,这里的代码实际上是定义两个对象MyDog和MyDog2,这两个对象是基于CDog的相互独立的两个对象。
按F5键运行并测试。
结果怎样?这一次是不是有两个对