VB6.0 ActiveX 控件开发详解 [第四章：事件的设计与引发]

这里是《VB6.0 ActiveX 控件开发详解》的第四章，介绍如何布局用户控件设计器的界面，和如何初始化控件。如果你没有看过第一章，建议你先去看看：《VB6.0 ActiveX 控件开发详解 [第三章：属性的设计，属性映射，属性的初始化，属性的保存]》

第四章：事件的设计与引发

好的，本人已经很久没续写这篇文章了，应网友邀请，我现在继续。事件是一个对象的对外输出，客户通过事件得知控件对象当前的情况，于是，学习事件的设计与引发就变得很重要。

启动我们以前设计好的工程，打开ActiveX空间设计器的代码窗口，然后选择【工具】菜单的【添加过程】菜单项。假设我们现在要为图片框设计一个单击事件。我们在【名称】当中输入“Picclick”，然后在【类型】当中选择“事件”，我们可以看到【范围】选项已经自动禁用了，因为事件必须是公有的。最后设置如下图所示：

然后单击【确定】，我们就能够在代码窗口看到一个关于Picclick的事件声明，如下图：

其实事件的声明很简单，一般由以下的格式构成：

Public Event EnentName([Parameter1,Parameter2,Parameter3……])

在上面的格式中，EnentName是必须的，而且在声明的时候即使没有参数，那一对括号也是不能省的！而Parameter是参数，理论上可以有无数个，但是嘛~~（谁也没试过），而且参数表是可选的。必须注意的是：

①事件不支持返回值，就是说下面这样的语句是错的：

Public Event ABC() As Integer '这个句子会出错

②事件不支持命名参数（命名参数就是指参数的传递可以不按照参数表的位置，只需要用参数的名称直接赋值），这个会在事件的引发里面详细讲。

③事件的参数不能使用Optional（可选参数），和ParamArray（数组参数）关键字。

带有参数的事件的设计

当然，事件可以有参数，例如我们常用的MouseMove事件就有一堆参数，我们来看一下MouseMove事件的声明，打开对象浏览器（F2），在库“VB”中随便找一个有MouseMove事件的对象（例如：PictureBox），然后点击一下MouseMove事件，在下方我们就能看到他的声明：

我们同样可以这样声明，例如，我们要我们刚才的Picclick事件有一个参数，传回图片框的Picture属性，我们可以这样声明：

Public Event Picclick(PictureAs Object)

记住，Picture属性的类型本来是StdPicture对象，然而在事件里面最好使用Object类型。

事件的引发（事件的映射）

有了事件，还必须要对事件进行引发才能让事件生效，而这种处理就叫做事件的映射。那么怎么映射呢？？我们可以想到，当鼠标单击我们的PicFrame控件上的图片框时，图片框的单击事件被引发，我们可以双击图片框控件，就能在ActiveX控件设计器的代码窗口里看到Picture1_Click()事件，如下图：

这样我们就需要在Picture1_Click()事件加某一些代码使到程序转接到我们设计的事件里。在这里，我们使用Raiseevent方法来引发一个事件，如下图：

然后我们就必须在引发事件的语句里加入被传递的参数，如上面所说，我们这个参数是图片框的Picture属性，所以，最后的语句如下：

Raiseevent Picclick(Picture1.Picture)

这样我们就完成了事件的引发，也就是事件的映射。

但是，注意一个问题，如果要引发的是没有参数的事件，那么只需要Raiseevent +事件名即可，不能带上括号。这个要与声明的时候必须要带上括号要区分开。也就是说，假设有不带参数的abc事件，在引发事件的时候语句就应该是这样：

Raiseevent abc'后面千万别接括号

现在，说一下命名参数的问题，假设事件有好几个参数，例如：

Public Event def(aAs Integer,bAs String,C As Double)

在引发事件的时候，正常来说，引发事件的代码应该这样写：

Raiseevent def(1,"ASCVVD",2.5)'参数的值是我随便打的

如果事件支持命名参数，我们就可以将引发事件的代码写成这样（看清楚了，是“如果”啊）：

Raiseevent def(a=1,c=2.5,b="ASCVVD")'参数的值是我随便打的

然而，事件不支持命名参数，所以上面的代码是错的。

设计充当返回值的参数

看不懂这个标题？？不要紧，问一下你，你用过QueryUnload事件吗？不论你用过没用过，我们来看一下MSDN对这个事件的解释：

“

QueryUnload 事件语法包括下列部分：

部分	描述
cancel	一个整数。将此参数设定为除 0 以外的任何值，可在所有已装载的窗体中停止 QueryUnload 事件，并阻止该窗体和应用程序的关闭。
unloadmode	一个值或一个常数，如返回值中所描述的，它指示引起 QueryUnload 事件的原因。

”

其他的描述在这里都用不到，我就不打了，留意一下cancel这个参数，发现没有，这个参数只要我们一改它的值（只要不是0），窗体就会取消关闭，仔细想一下，VB系统内部引发了这个事件，我们修改Cancel参数的值，然后~~，接着窗体取消关闭。我们就会发现，中间缺少的部分是不是就是VB系统内部受收到Cancel的值，才有可能实现取消关闭啊，但是不是说事件没有返回值吗，怎么VB系统内部又收到了这个更改，难道是VB自己开挂的~~？？

其实不然，这个跟事件的作用方式有关，因为事件其实是同步的，在VB系统内部引发了事件后，必须是执行完了事件之后才回到VB系统的内部代码，所以这个修改能够获得。还是不懂，看下图：

看懂了吧，其实只有在我们的代码执行完后，系统的代码才会继续。根据这个原理，我们就能设计事件的“返回值”。

声明如下的事件：

Public Event ABC(ReCome As Integer)

然后在引发的时候，我们只需将一个没有意义的值传进去，然后就像获取函数的返回值一样就可以了，代码如下：

Private Sub Picture1_Click()

Raiseevent ABC(0)'从这里开始转跳到PicFrame1_ABC来执行

MsgBox ReCome

End Sub

我们可以演示一下，在一个标准EXE工程里面，放入一个PicFrame控件，然后双击它，找到ABC事件，添加代码如下：

PrivateSubPicFrame1_ABC(ReComeAs Integer)

ReCome =10 '这里修改了值

End Sub '这里又回去，去执行Raiseevent后面的语句

最后运行的结果就是弹出一个显示是10的对话框，这里的对话框是由MsgBox产生的，而后来ReCome的值等于10

好了，事件的设计与引发就说到这里，可能还会有下一章，也可能没有了，感谢各位的关注。