基于VB的COM编程入门教程

基于VB的COM编程入门教程
第一节COM简介
"世上无难事，只要肯登攀"，所以你要有信心成为一个COM程序员，而且你一定能。

事实上，我们每次设置文本编程控件的Text属性时，就已经在使用COM，同样在DAO 数据控件运行MoveNext方法时，甚至在使用VB控制字时，也都是在使用COM。

那么，什么是COM呢？
首先，COM是一种通信的方式。

例如，就像我们的电视遥控一样。

当我们按下某个频道按钮时，电视频道立马切换；而当我们按下开关按钮时，电视立即关闭等等。

其实，我们并不关心它们是怎样工作的，我们只知道按下按钮就能产生某个动作就可以了。

程序的原理也是一样的。

当改变文本编程控件的Text属性时，我们并不知道其中的原理，也许系统内部会调用几十个API函数也说不定？但对于用户来说，则只关心文本编程控件中显示的文本就可以了。

其次，COM是一种重用代码的方式。

使用COM的最大好处是一旦建立COM的通信方式后，可以方便地在任何地方使用多次。

例如，当用户创建一个用于显示日期和时间的COM组件后，就可用于任何程序中的任何地方。

不仅VB应用程序、Excel程序可以访问，而且C++应用程序也可以访问它。

所以，COM组件的代码可重用性是最主要的。

再次，COM是基于实际对象的。

用COM创建的大多数组件是基于实际对象的，这就意味着一旦组件被创建，其使用是相当容易的。

试想一下，如果我们在计算机系统中再添加一个用户，又有哪种添加方式如Customer.Add那样简单，是添加数据处理代码包、算法，还是向应用程序添加较大的数据库DLL？很显然，COM就支持这种简单操作。

所以，COM是一种通信方式、一种代码重用方式以及基于实际对象的。

本教程的以后部分中将简单讨论COM和VB的相关内容，这包括类的创建，以及如何将类转换成一个实际对象。

虽然，这里的内容太过简单，但却是以后COM编程的基础。

第二节类的建立
在本节中，我们来实践一下。

首先创建一个COM对象，然后使用它，最后再想法改进。

首先进行下面两步：
运行Visual Basic；选择"Standard EXE"工程类型；由于COM对象是基于类的，而类实际上是程序包，就像模块中的代码一样。

所以：
选择"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键运行并测试。

结果怎样？这一次是不是有两个对话框出现？一个显示"Billy Moore"，另一个显示"Sadie Moore"。

上述定义的每个对象中除了Name外，没有任何实际的属性，因此下面过程就来添加：打开前面的Class1；
声明下面的公共变量：
Public Age As Integer
打开前面的Form1；
将命令按钮的代码变成：
Dim MyDog As CDog
Set MyDog = New CDog
Dim MyDog2 As CDog
Set MyDog2 = New CDog
= "Billy Moore"
MyDog.Age = 4
MsgBox & " is " & MyDog.Age & " years old"
= "Sadie Moore"
MyDog2.Age = 7
MsgBox & " is " & MyDog2.Age & " years old"
Set MyDog = Nothing
Set MyDog2 = Nothing
这些代码和前面差不多，只不过这里使用了Age变量。

按F5键运行并测试。

应该出现显示name和age内容的两个消息对话框。

现在再试着将其中一个对象的age值设置成1,000或者30,000。

看看结果如何？程序照样正常运行，这是因为定义的整型变量最大值可达32,767，但是实际中的狗(Dog)是不会有30,000岁的。

那么，这种情况应该怎样处理呢？
第三节添加属性
属性操作很像公共变量，但属性还有更多的控制。

常用属性通常包括"Get(获取)"和"Let(设置)"两种。

这两项操作能规定一个主要属性，就像下面的代码片段：
Private intAge As Integer
Public Property Get Age() As Integer
Age = intAge
End Property
Public Property Let Age(ByVal vNewValue As Integer)
intAge = vNewValue
End Property
上述代码的工作方式极像Age变量的操作。

当像下面语句操作变量时，
MyDog.Age = 4
就好比运行Let属性，并将4赋给vNewValue。

当像下面语句操作变量时，
MsgBox MyDog.Age
是获取属性，就好比运行Get属性，并将相应的值由intAge返回。

因此，我们可以这样认为：
所谓Get属性，就是运行后获取某个值；
所谓Let属性，就是运行后让某个属性等于某个值；
但至此为止，我们仅仅说明属性工作方式与标准变量极为相似，还没有来得及对属性进行更多的控制。

所以，下面就来讨论。

打开上一节的工程，对CDog类进行如下修改：
从CDog类中去掉Age变量；
添加下列代码：
Private intAge As Integer
Public Property Get Age() As Integer
Age = intAge
End Property
Public Property Let Age(ByVal vNewValue As Integer)
If vNewValue <= 50 Then
intAge = vNewValue
End If
End Property
与前面的代码相比，这里只是对Let属性代码作稍加修改。

下面对其作小小的测试，假想用户试图想使：
MyDog.Age=30
也就是运行Let属性，使vNewValue等于30。

代码中，还检测vNewValue是否小于或等于50。

显然，30是符合要求的，因此实例中的intAge值等于30。

但如果超过50，则什么也不会发生，属性退出且没有任何赋值。

当然，我们也可以对此给出相应的错误代码或是
显示一个提示对话框。

切换到Form1后面的代码窗口；
在设置Age属性代码处的第一行语句中单击鼠标，并按F9；
MyDog.Age = 4
在获取Age属性代码处的第一行语句中单击鼠标，并按F9；
MsgBox & " is " & MyDog.Age & " years old"
现在让我们测试一下：
按F5运行程序；
单击Command按钮；
代码应该中断在按F9添加的断点的代码行上。

当代码中断后，按F8单步运行并观察结果；
现在明白它们是怎样工作的吗？注意Age属性的"get"和"let"是怎样运行的？
在下一节中，我们不仅要讨论使用更多属性的方式，而且还讨论如何随意创建它们。

第四节添加更多的属性
有时候，为了更好地处理类往往需更多的属性。

例如，假如你有四种不同的客户群：集团、较大、较小和新的客户类型，或者一个用于搜索的类中有三种不同的搜索方式：软盘、硬盘和网络。

那么，能不能最好从选项列表中选择一个，而不是用不能理解的数字或文本来设置相关属性？
我想，答案是肯定的。

因为这种处理就称为"枚举"。

打开上一节的工程，让我们添加一些代码。

在CDog类中添加下列代码：
Public Enum CoatType
BigAndShaggy = 1
ShortCrewCut = 2
PoodleStyleAfro = 3
Unknown = 4
End Enum
关键词"Enum"就是用来定义枚举的，换句话说，它是可能选项的列表。

各选项都有相应的数字，也就是说BigAndShaggy表示1，ShortCrewCut等于2，等等。

需要注意的是，当将枚举项相关信息添加在数据库中时，其相应的数值是非常有用的。

由于"BigAndShaggy"实际代表的是数值1，所以可以直接将其插入到数据库的数值字段中。

这就意味着，可以方便使用字符串来维护数据库。

所以，我们来创建一个Dog的Coat类型列表，并另外定义一个属性，将这些类型添加在CDog类中。

在类中声明下列变量：
Private udtCoat As CoatType
这个定义的私有变量用来保存即将添加的Coat类型属性，注意到udtCoat变量既不是字符串也不是整型，而是我们自己定义的枚举类型CoatType。

当类CDog打开时，选择"Tools"菜单中的"Add Procedure"命令，弹出相应的对话框；
Name编辑框中键入Coat；
选中"Property"选项按钮，然后单击[OK]。

系统自动产生下列代码框架：
Public Property Get Coat() As Variant
End Property
Public Property Let Coat(ByVal vNewValue As Variant)
End Property
但我们需要的却不是这个框架。

代码中，"Variant"变量类型是能接收和处理任何类型数据。

在我们定义的CDog类中，最后的属性是Age，它只能接受整型。

但现在需要属性能接收CoatType列表中的数据类型，因此需要作下列修改：
将产生的代码中所有的"Variant"改成"CoatType"；
然后，添加一些实际处理属性的代码。

在属性的Get过程中，添加下列代码：
Coat = udtCoat
在属性的Let过程中，添加下列代码：
udtCoat = vNewValue
切换到Form1；
将Command按钮的代码改为：
Dim MyDog As CDog
Set MyDog = New CDog
= "Billy"
现在开始键入：MyDog.Coat =
奇迹出现了，当你敲下"="键时，出现一个含有可能选项的列表，从中我们可以选择一个。

完成代码的键入：MyDog.Coat = ShortCrewCut
下一步，我们将获取Coat属性的值。

假如现在就来简单地在消息对话框中显示属性值，则只需返回选择项的值就可以了。

例如，若选择了ShortCrewCut，其属性一定返回2。

不信，可以试一试！
但这里采用另外一种方法，它是用If-Then语句判断Coat：
在Command按钮已有的代码后面添加下列代码：
If MyDog.Coat = BigAndShaggy Then
MsgBox "You have a big, bouncy, bushy pup!"
ElseIf MyDog.Coat = PoodleStyleAfro Then
MsgBox "Your pooch is pretty, petit and pooch-like!"
ElseIf MyDog.Coat = ShortCrewCut Then
MsgBox "Your dog is full of oomph, oomph and more oomph!"
ElseIf MyDog.Coat = Unknown Then
MsgBox "I have no idea about your dog. I don't think " & _
"you do either!"
End If
这里的代码只是简单判断Coat属性值，并显示相应的消息对话框。

当然，这里也可以使用"Select Case"语句。

最后，我们添加最后一条语句来释放计算机内存：
在Command按钮已有的代码后面添加下列代码：
Set MyDog = Nothing
按F5运行程序，并单击Command按钮测试一下。

结果怎样？
第五节子过程、函数和参数
前面已经接触到类的变量、属性以及枚举，但我们怎样才能更好的利用它们呢？
显然，子过程就是其中的一种方式，它几乎出现所有的Visual Basic程序中，所以这里来举例说明。

在CDog类中添加下列代码：
Public Sub Bark()
MsgBox "Woof! Woof!"
End Sub
这里的子过程是最常见的，我们可以简单地使用MyDog.Bark来调用它。

下面来试一试：
将表单Form1的Command按钮的代码改成：
Dim MyDog As CDog
Set MyDog = New CDog
= "Billy"
MyDog.Bark
Set MyDog = Nothing
需要说明的是，在键入"MyDog."会弹出相应的列表，各列表项前面都有不同颜色的小图标区分不同的类型。

例如Bark子过程项前面的是黄绿色的，属性是灰色和蓝色的，这样能帮助我们识别Bark是MyDog对象的一个方法。

按F5运行并测试。

事实上，除了子过程外，我们也可以在代码中添加函数。

这里我们就不举例了，你可以自己尝试一下。

因为函数和一般子过程除了能在一个类中外，其工作也是相同的。

但不要忘记，所有子过程和函数都可以有自己的参数。

现在，让我们设想一下，在类中有一个Sleep方法。

当我们想要cat睡觉或dog打盹时，每次都得调用这个方法。

但是，我们怎么知道这些小东西什么时候醒来？这是一个非常有趣的问题，其答案是使用事件(event)。

当我们在文本编辑框中键入字符时就会产生Change事件，而当我们单击命令按钮时就
会产生Click事件。

同样，想知道这些小东西什么时候醒来，就需使用下一节所着重讨论的Awake事件。

第六节事件
相对来说，事件的使用是比较简单的。

在使用前，我们必须先定义该事件，这就意味着通知Visual Basic什么事件被调用。

一个事件可能有自己的参数，例如，一个Command按钮有一个Click(单击)事件，它没有参数。

另外，文本编辑框有一个KeyPress事件，它通过一个叫"KeyAscii"的值来处理相关内容。

定义一个事件是在一个类的通用声明部分添加类似下面的代码：
Public Event MyEventName(PossArguments As String, Etc As Variant)
然后在代码调用RaiseEvent方法来激发一个事件。

就像下面的代码一样：RaiseEvent MyEventName("PossArgs", "Etc")
为了更好地说明上述添加和激发事件的过程，我们举一个例子。

首先，定义一个事件：在CDog类的通用声明部分添加下列代码：
Public Event Awake()
在CDog类中添加Sleep子过程：
Public Sub Sleep()
Dim i As Long
For i = 1 To 1000000
DoEvents: DoEvents: DoEvents
exit
RaiseEvent Awake
End Sub
代码中，一开始做一些1000000次无用的循环，计算机短暂停顿后，Sleep子过程激发Awake事件。

但Awake事件产生后，我们应该让程序作相应的反应呢？当然，利用命令按钮是最简单的，只要在代码窗口的列表中选择命令按钮对象。

但是那样的话，我们必然需要一个控件，而且所见的内容都在表单上。

这里我们纯粹使用相应的代码，并且是不可见的。

当然用代码来接收事件，还需要额外的操作：
在表单代码窗口中的通用声明部分，添加下列代码：
Dim WithEvents MyDog As CDog
该代码不同于以前的MyDog声明，它有个关键词WithEvents用来通知Visual Basic该对象可以按收任何事件，而且该对象必须接收事件。

删除命令按钮中的所有代码；并在Command1中添加下列代码：
Set MyDog = New CDog
= "Billy"
MyDog.Bark
MyDog.Sleep
该代码简单地将MyDog设置成CDog的一个新的实例，设置Name后，调用Bark，最后运行Sleep子过程。

现在添加一些代码来相应Awake事件。

在Form代码窗口中，从对象下拉列表中选择"MyDog"；
在"MyDog"的"Awake"事件中，添加下列代码：
Private Sub MyDog_Awake()
MsgBox "Your pooch has awoken!"
End Sub。