文件名称：为控件添加事件-OCX制作开发
文件大小：377KB
文件格式：PPT
更新时间：2024-05-15 03:18:45
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