文件名称：为控件添加属性-OCX制作开发
文件大小：377KB
文件格式：PPT
更新时间：2024-05-15 03:18:46
OCX ActiveX VB控件
6.为控件添加属性 如为控件增加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 = Drive1.Drive End Property Public Property Let Drive(ByVal New_Drive As String) Drive1.Drive = New_Drive End Property 这样，就将UserControl对象子控件Drive1的Drive属性显露出来，关闭ActiveX 控件设计窗口，在属性窗口可以看到Drive属性，参见图14-6（Drive的默认值设置为“c:”。在程序运行时，在驱动器列表中选择的驱动器就是ActiveX 控件的Drive属性值。