vb编程入门
力帆发动机-代培
2023年2月19日发(作者：in4007)1
基于VB的COM编程入门教程
第一节COM简介
"世上无难事，只要肯登攀"，所以你要有信心成为一个COM程序员，而且你一定能。
事实上，我们每次设置文本编程控件的Text属性时，就已经在使用COM，同样在DAO数据控件运行
MoveNext方法时，甚至在使用VB控制字时，也都是在使用COM。
那么，什么是COM呢？
首先，COM是一种通信的方式。
例如，就像我们的电视遥控一样。当我们按下某个频道按钮时，电视频道立马切换；而当我们按下开关
按钮时，电视立即关闭等等。其实，我们并不关心它们是怎样工作的，我们只知道按下按钮就能产生某个动
作就可以了。
程序的原理也是一样的。当改变文本编程控件的Text属性时，我们并不知道其中的原理，也许系统内部
会调用几十个API函数也说不定？但对于用户来说，则只关心文本编程控件中显示的文本就可以了。
其次，COM是一种重用代码的方式。
使用COM的最大好处是一旦建立COM的通信方式后，可以方便地在任何地方使用多次。例如，当用户
创建一个用于显示日期和时间的COM组件后，就可用于任何程序中的任何地方。不仅VB应用程序、Excel
程序可以访问，而且C++应用程序也可以访问它。
所以，COM组件的代码可重用性是最主要的。
再次，COM是基于实际对象的。
用COM创建的大多数组件是基于实际对象的，这就意味着一旦组件被创建，其使用是相当容易的。试
想一下，如果我们在计算机系统中再添加一个用户，又有哪种添加方式如那样简单，是添加数
据处理代码包、算法，还是向应用程序添加较大的数据库DLL？很显然，COM就支持这种简单操作。
所以，COM是一种通信方式、一种代码重用方式以及基于实际对象的。
本教程的以后部分中将简单讨论COM和VB的相关内容，这包括类的创建，以及如何将类转换成一个
实际对象。虽然，这里的内容太过简单，但却是以后COM编程的基础。
第二节类的建立
在本节中，我们来实践一下。首先创建一个COM对象，然后使用它，最后再想法改进。
首先进行下面两步：
运行VisualBasic；选择"StandardEXE"工程类型；由于COM对象是基于类的，而类实际上是程序包，
就像模块中的代码一样。所以：
选择"Project"->"AddClassModule"；当相应的对话框出现后，选择"'ClassModule"，然后单击"Open"按钮。
这样，在桌面上显示一个表单，以及包含在工程Project1中的Class1。
下面再将空的类的类名更改：
在类的属性窗口中，将类的Name属性改成CDog。
2
需要说明的是，为了区别起见，每个对象名的前面都有相应的前缀，例如TextBox对象前是"txt"、Form
前是"frm"、类前可以大写字母"C"或小写字母"cls"，但这里使用前者。
下面我们添加一些代码来测试一下：
在CDog类通用声明部分中，添加变量的声明：
PublicNameAsString
然后，打开Form1；
在表单中添加一个命令按钮；
打开代码窗口，为该命令按钮添加下列代码：
DimMyDogAsCDog
SetMyDog=NewCDog
="BillyMoore"
SetMyDog=Nothing
下面就来解释上述代码的含义：
DimMyDogAsCDog
该行语句是用来通知VisualBasic为CDog对象设置一个位空间，但这时还不能使用该对象，必须等到下
条语句为止：
SetMyDog=NewCDog
它是用来创建CDog的实例。这就意味着前面空的MyDog模板变成了现在可以使用的CDog对象。
="BillyMoore"
上述代码的第一行是用来设置MyDog的Name变量，同时第二行语句是用来将该变量的内容显示在消息
对话框中。最后：
SetMyDog=Nothing
用来将MyDog对象简单的置空。
按F5键运行并测试。
怎么样？但同时，我们可能不禁要问，标准模块和类模块究竟有什么不同？我们再来看看下面的示例：
将命令按钮的代码变成：
DimMyDogAsCDog
SetMyDog=NewCDog
DimMyDog2AsCDog
SetMyDog2=NewCDog
="BillyMoore"
="SadieMoore"
SetMyDog=Nothing
SetMyDog2=Nothing
3
与最前面的代码不同的是，这里的代码实际上是定义两个对象MyDog和MyDog2，这两个对象是基于
CDog的相互独立的两个对象。
按F5键运行并测试。
结果怎样？这一次是不是有两个对话框出现？一个显示"BillyMoore"，另一个显示"SadieMoore"。
上述定义的每个对象中除了Name外，没有任何实际的属性，因此下面过程就来添加：
打开前面的Class1；
声明下面的公共变量：
PublicAgeAsInteger
打开前面的Form1；
将命令按钮的代码变成：
DimMyDogAsCDog
SetMyDog=NewCDog
DimMyDog2AsCDog
SetMyDog2=NewCDog
="BillyMoore"
=4
&"is"&&"yearsold"
="SadieMoore"
=7
&"is"&&"yearsold"
SetMyDog=Nothing
SetMyDog2=Nothing
这些代码和前面差不多，只不过这里使用了Age变量。
按F5键运行并测试。
应该出现显示name和age内容的两个消息对话框。
现在再试着将其中一个对象的age值设置成1,000或者30,000。看看结果如何？程序照样正常运行，这是
因为定义的整型变量最大值可达32,767，但是实际中的狗(Dog)是不会有30,000岁的。
那么，这种情况应该怎样处理呢？
第三节添加属性
属性操作很像公共变量，但属性还有更多的控制。
常用属性通常包括"Get(获取)"和"Let(设置)"两种。这两项操作能规定一个主要属性，就像下面的代码片段：
PrivateintAgeAsInteger
PublicPropertyGetAge()AsInteger
Age=intAge
EndProperty
PublicPropertyLetAge(ByValvNewValueAsInteger)
intAge=vNewValue
EndProperty
上述代码的工作方式极像Age变量的操作。当像下面语句操作变量时，
=4
4
就好比运行Let属性，并将4赋给vNewValue。当像下面语句操作变量时，
是获取属性，就好比运行Get属性，并将相应的值由intAge返回。因此，我们可以这样认为：
所谓Get属性，就是运行后获取某个值；
所谓Let属性，就是运行后让某个属性等于某个值；
但至此为止，我们仅仅说明属性工作方式与标准变量极为相似，还没有来得及对属性进行更多的控制。所以，下面就来讨
论。
打开上一节的工程，对CDog类进行如下修改：
从CDog类中去掉Age变量；
添加下列代码：
PrivateintAgeAsInteger
PublicPropertyGetAge()AsInteger
Age=intAge
EndProperty
PublicPropertyLetAge(ByValvNewValueAsInteger)
IfvNewValue<=50Then
intAge=vNewValue
EndIf
EndProperty
与前面的代码相比，这里只是对Let属性代码作稍加修改。下面对其作小小的测试，假想用户试图想使：
=30
也就是运行Let属性，使vNewValue等于30。代码中，还检测vNewValue是否小于或等于50。显然，30是符合要求的，
因此实例中的intAge值等于30。但如果超过50，则什么也不会发生，属性退出且没有任何赋值。当然，我们也可以对此给出
相应的错误代码或是显示一个提示对话框。
切换到Form1后面的代码窗口；
在设置Age属性代码处的第一行语句中单击鼠标，并按F9；
=4
在获取Age属性代码处的第一行语句中单击鼠标，并按F9；
&"is"&&"yearsold"
现在让我们测试一下：
按F5运行程序；
单击Command按钮；
代码应该中断在按F9添加的断点的代码行上。
当代码中断后，按F8单步运行并观察结果；
现在明白它们是怎样工作的吗？注意Age属性的"get"和"let"是怎样运行的？
在下一节中，我们不仅要讨论使用更多属性的方式，而且还讨论如何随意创建它们。
第四节添加更多的属性
有时候，为了更好地处理类往往需更多的属性。例如，假如你有四种不同的客户群：集团、较大、较小
和新的客户类型，或者一个用于搜索的类中有三种不同的搜索方式：软盘、硬盘和网络。那么，能不能最好
从选项列表中选择一个，而不是用不能理解的数字或文本来设置相关属性？
我想，答案是肯定的。因为这种处理就称为"枚举"。
5
打开上一节的工程，让我们添加一些代码。
在CDog类中添加下列代码：
PublicEnumCoatType
BigAndShaggy=1
ShortCrewCut=2
PoodleStyleAfro=3
Unknown=4
EndEnum
关键词"Enum"就是用来定义枚举的，换句话说，它是可能选项的列表。各选项都有相应的数字，也就是
说BigAndShaggy表示1，ShortCrewCut等于2，等等。
需要注意的是，当将枚举项相关信息添加在数据库中时，其相应的数值是非常有用的。由于
"BigAndShaggy"实际代表的是数值1，所以可以直接将其插入到数据库的数值字段中。这就意味着，可以方
便使用字符串来维护数据库。
所以，我们来创建一个Dog的Coat类型列表，并另外定义一个属性，将这些类型添加在CDog类中。
在类中声明下列变量：
PrivateudtCoatAsCoatType
这个定义的私有变量用来保存即将添加的Coat类型属性，注意到udtCoat变量既不是字符串也不是整型，
而是我们自己定义的枚举类型CoatType。
当类CDog打开时，选择"Tools"菜单中的"AddProcedure"命令，弹出相应的对话框；
Name编辑框中键入Coat；
选中"Property"选项按钮，然后单击[OK]。
系统自动产生下列代码框架：
PublicPropertyGetCoat()AsVariant
EndProperty
PublicPropertyLetCoat(ByValvNewValueAsVariant)
EndProperty
但我们需要的却不是这个框架。代码中，"Variant"变量类型是能接收和处理任何类型数据。在我们定义
的CDog类中，最后的属性是Age，它只能接受整型。但现在需要属性能接收CoatType列表中的数据类型，
因此需要作下列修改：
将产生的代码中所有的"Variant"改成"CoatType"；
然后，添加一些实际处理属性的代码。
在属性的Get过程中，添加下列代码：
Coat=udtCoat
在属性的Let过程中，添加下列代码：
udtCoat=vNewValue
切换到Form1；
将Command按钮的代码改为：
DimMyDogAsCDog
SetMyDog=NewCDog
="Billy"
6
现在开始键入：=
奇迹出现了，当你敲下"="键时，出现一个含有可能选项的列表，从中我们可以选择一个。
完成代码的键入：=ShortCrewCut
下一步，我们将获取Coat属性的值。假如现在就来简单地在消息对话框中显示属性值，则只需返回选择
项的值就可以了。例如，若选择了ShortCrewCut，其属性一定返回2。不信，可以试一试！
但这里采用另外一种方法，它是用If-Then语句判断Coat：
在Command按钮已有的代码后面添加下列代码：
=BigAndShaggyThen
MsgBox"Youhaveabig,bouncy,bushypup!"
=PoodleStyleAfroThen
MsgBox"Yourpoochispretty,petitandpooch-like!"
=ShortCrewCutThen
MsgBox"Yourdogisfullofoomph,oomphandmoreoomph!"
=UnknownThen
MsgBox"'tthink"&_
"youdoeither!"
EndIf
这里的代码只是简单判断Coat属性值，并显示相应的消息对话框。当然，这里也可以使用"SelectCase"
语句。
最后，我们添加最后一条语句来释放计算机内存：
在Command按钮已有的代码后面添加下列代码：
SetMyDog=Nothing
按F5运行程序，并单击Command按钮测试一下。
结果怎样？
第五节子过程、函数和参数
前面已经接触到类的变量、属性以及枚举，但我们怎样才能更好的利用它们呢？
显然，子过程就是其中的一种方式，它几乎出现所有的VisualBasic程序中，所以这里来举例说明。
在CDog类中添加下列代码：
PublicSubBark()
MsgBox"Woof!Woof!"
EndSub
这里的子过程是最常见的，我们可以简单地使用来调用它。
下面来试一试：
将表单Form1的Command按钮的代码改成：
DimMyDogAsCDog
SetMyDog=NewCDog
="Billy"
SetMyDog=Nothing
7
需要说明的是，在键入"MyDog."会弹出相应的列表，各列表项前面都有不同颜色的小图标
区分不同的类型。例如Bark子过程项前面的是黄绿色的，属性是灰色和蓝色的，这样能帮助我
们识别Bark是MyDog对象的一个方法。
按F5运行并测试。
事实上，除了子过程外，我们也可以在代码中添加函数。这里我们就不举例了，你可以自
己尝试一下。因为函数和一般子过程除了能在一个类中外，其工作也是相同的。但不要忘记，
所有子过程和函数都可以有自己的参数。
现在，让我们设想一下，在类中有一个Sleep方法。当我们想要cat睡觉或dog打盹时，每
次都得调用这个方法。
但是，我们怎么知道这些小东西什么时候醒来？这是一个非常有趣的问题，其答案是使用
事件(event)。
当我们在文本编辑框中键入字符时就会产生Change事件，而当我们单击命令按钮时就会产
生Click事件。同样，想知道这些小东西什么时候醒来，就需使用下一节所着重讨论的Awake
事件。
第六节事件
相对来说，事件的使用是比较简单的。在使用前，我们必须先定义该事件，这就意味着通知VisualBasic
什么事件被调用。一个事件可能有自己的参数，例如，一个Command按钮有一个Click(单击)事件，它没有
参数。另外，文本编辑框有一个KeyPress事件，它通过一个叫"KeyAscii"的值来处理相关内容。
定义一个事件是在一个类的通用声明部分添加类似下面的代码：
PublicEventMyEventName(PossArgumentsAsString,EtcAsVariant)
然后在代码调用RaiseEvent方法来激发一个事件。就像下面的代码一样：
RaiseEventMyEventName("PossArgs","Etc")
为了更好地说明上述添加和激发事件的过程，我们举一个例子。首先，定义一个事件：
在CDog类的通用声明部分添加下列代码：
PublicEventAwake()
在CDog类中添加Sleep子过程：
PublicSubSleep()
DimiAsLong
Fori=1To1000000
DoEvents:DoEvents:DoEvents
exit
RaiseEventAwake
EndSub
代码中，一开始做一些1000000次无用的循环，计算机短暂停顿后，Sleep子过程激发Awake事件。
但Awake事件产生后，我们应该让程序作相应的反应呢？当然，利用命令按钮是最简单的，只要在代码
窗口的列表中选择命令按钮对象。
但是那样的话，我们必然需要一个控件，而且所见的内容都在表单上。这里我们纯粹使用相应的代码，
并且是不可见的。
当然用代码来接收事件，还需要额外的操作：
在表单代码窗口中的通用声明部分，添加下列代码：
8
DimWithEventsMyDogAsCDog
该代码不同于以前的MyDog声明，它有个关键词WithEvents用来通知VisualBasic该对象可以按收任何
事件，而且该对象必须接收事件。
删除命令按钮中的所有代码；并在Command1中添加下列代码：
SetMyDog=NewCDog
="Billy"
该代码简单地将MyDog设置成CDog的一个新的实例，设置Name后，调用Bark，最后运行Sleep子过
程。
现在添加一些代码来相应Awake事件。
在Form代码窗口中，从对象下拉列表中选择"MyDog"；
在"MyDog"的"Awake"事件中，添加下列代码：
PrivateSubMyDog_Awake()
MsgBox"Yourpoochhasawoken!"
EndSub
好了，现在就可以测试了。
按F5运行程序；
单击Command按钮；
这样，当小狗Bark后，开始打盹，最后结束时还被你叫醒。真是神奇！