文档介绍：制作ActiveX 控件
使用其他应用程序中的对象
第14章 ActiveX 部件
退出
ActiveX部件是由ActiveX技术创建的、一个或多个对象所组成的、可以重复使用的编程代码和数据，是定义从web页e控件处于设计阶段，TextAcdPRJ工程的窗口将布满斜线，参见图14-5。
图14-3设置启动窗体 图14-4 ACDSee控件图标 图14-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
如为控件增加Drive属性的步骤为：
（1）打开ActiveX 控件设计窗口的代码窗口。
（2）单击“工具”菜单中的“添加过程”，打开“添加过程”对话框，输入属性名“Drive”，过程类型为“属性”，范围为“公有的”。
这样，VB立即提供如下两个过程模板：
Public Property Get Drive() As Variant
End Property
Public Property Let Drive(ByVal vNewValue As Variant)
End Property
在这两个过程中添加所需代码：
Public Property Get Drive() As String
Drive =
End Property
Public Property Let Drive(ByVal New_Drive As String)
= New_Drive
End Property
这样，就将UserControl对象子控件Drive1的Drive属性显露出来，关闭ActiveX 控件设计窗口，在属性窗口可以看到Drive属性，参见图14-6（Drive的默认值设置为“c:”。在程序运行时，在驱动器列表中选择的驱动器就是ActiveX 控件的Drive属性值。
采用类似的方法可以将UserControl对象子控件Dir1的Path属性和子控件File1的FileName属性显露出来。参见图14-6（已将Path的默认值设置为“c:\效果图”）。
图14-6 ActiveX 控件的属性
在UserControl对象中有三个与属性访问密切相关的事件：InitProperties事件、 ReadProperties事件和WriteProperties事件。
属性保存在称为“属性包”、类型为PropertyBag的对象中，可以通过调用“属性包”的WriteProperties方法和ReadProperties方法来保存和读取属性值。
如读取Drive、Path、FileName属性的过程代码为：
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
= ("Drive", "c:")
= ("Path", "c:\效果图")
=