【文件属性】：
文件名称：为控件添加事件-OCX制作开发
文件大小：377KB
文件格式：PPT
更新时间：2021-04-25 09:32:05
OCX ActiveX VB控件
5.为控件添加事件
对使用ActiveX 控件的用户来说，其中的UserControl1对象和该对象上的子控件的事件、属性是不可见的，而ActiveX 控件的事件和属性对用户是可见的。VB自动为ActiveX 控件提供了GotFocus、LostFocus、DragDrop、DragOver和Validate事件。另外，ActiveX 控件的设计者可以为ActiveX 控件自定义事件。以为ACDSee控件设计一个PictureDblClick事件为例（该事件在双击ACDSee对象上的图片框时发生），说明自定义事件的过程。
（1）声明事件
打开ACDSee控件的设计窗口，在代码窗口的通用声明部分加上如下声明：
Event PictureDblClick()
（2）在ACDSee对象上的图片框双击事件过程中适当位置加上触发事件的代码：
Private Sub Picture1_DblClick()
'......其他代码
RaiseEvent PictureDblClick
End Sub
这样，关闭ACDSee控件设计窗口后，在测试窗口的TestACDSee控件的事件组合框中可以看到PictureDblClick事件，根据需要，可以在其中加上所需事件代码，如：
Private Sub TestACDSee_PictureDblClick()
Myanswer = MsgBox("你想放大图片吗？", vbYesNoCancel)
End Sub