当前位置 → 中国站长学院 → 网络编程 → Visual Basic教程 → 浏览正文

VisualBasicCOM基础讲座之事件

作者：中国站长学院[收集整理] 来源：互联网转载点击数：更新时间：2008年03月17日

【字体：大中小】荐【背景色】【收藏本文】【打印】

相对来说，事件的使用是比较简单的。在使用前，我们必须先定义该事件，这就意味着通知VisualBasic什么事件被调用。一个事件可能有自己的参数，例如，一个Command按钮有一个Click(单击)事件，它没有参数。另外，文本编辑框有一个KeyPress事件，它通过一个叫KeyAscii的值来处理相关内容。

-align=right>->->->

　　定义一个事件是在一个类的通用声明部分添加类似下面的代码：

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

　　但是那样的话，我们必然需要一个控件，而且所见的内容都在表单上。这里我们纯粹使用相应的代码，并且是不可见的。

　　当然用代码来接收事件，还需要额外的操作：

　　在表单代码窗口中的通用声明部分，添加下列代码：

->DimWithEventsMyDogAsCDog->

　　该代码不同于以前的MyDog声明，它有个关键词WithEvents用来通知VisualBasic该对象可以按收任何事件，而且该对象必须接收事件。

　　删除命令按钮中的所有代码；并在Command1中添加下列代码：

->SetMyDog=NewCDog
MyDog.Name=Billy
MyDog.Bark
MyDog.Sleep->

　　该代码简单地将MyDog设置成CDog的一个新的实例，设置Name后，调用Bark，最后运行Sleep子过程。

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

　　在Form代码窗口中，从对象下拉列表中选择MyDog；

　　在MyDog的Awake事件中，添加下列代码：

->　　PrivateSubMyDog_Awake()

　　　MsgBoxYourpoochhasawoken!

　　EndSub->

　　好了，现在就可以测试了。

　　按F5运行程序；

　　单击Command按钮；

　　这样，当小狗Bark后，开始打盹，最后结束时还被你叫醒。真是神奇！
->

支持

反对

责任编辑：中国站长学院

注册投稿

收藏本文到 >>>