Visual Basic程序设计教程 第14章.pptVIP

14.1.1 ActiveX 控件的制作过程 14.1.2 使用向导创建ActiveX控件 * 14.1 制作ActiveX 控件 14.2 使用其他应用程序中的对象 第14章 ActiveX 部件 退出 ActiveX部件是由ActiveX技术创建的、一个或多个对象所组成的、可以重复使用的编程代码和数据，是定义从web页面到对象链接与嵌入OLE控件的所有内容的核心术语，ActiveX技术提供了一种把所有其他使网络生动起来的技术粘合在一起的粘合剂。在VB中使用的ActiveX部件有四种：ActiveX 控件、ActiveX文档、 ActiveX DLL和ActiveX EXE。 （1）新建工程时选择新建“ActiveX 控件”，打开如图14-1所示的UserControl对象的设计控件界面。 （2）在UserControl1对象上添加可能得到的各种对象。 （3）编写程序代码。 （4）参考类的创建，为控件添加属性、事件和方法。 （5）如果需要，可以为控件建立属性页。 （6）建立一个标准的EXE工程测试所建立的ActiveX 控件。 （7）编译成OCX文件发布。 14.1 制作ActiveX 控件 图14-1 ActiveX 控件的设计窗口 下面以建立一个“图片浏览器”控件为实例，说明ActiveX 控件的制作过程。 图片浏览器控件由驱动器列表框、目录列表框、文件列表框和图片框四个控件组成。 1、新建ActiveX 控件工程 单击“文件”菜单中的“新建工程”，打开“新建”对话框，双击“ActiveX 控件”，弹出如图14-1所示ActiveX 控件的设计窗口。根据需要将工程名称换名，如改为“AcdSystem”，则“AcdSystem”就是在“部件”对话框中显示的新的ActiveX 控件的名称。 在“AcdSystem”工程的设计窗口有一个UserControl1对象，其功能类似于标准EXE工程的窗体，是ActiveX 控件的设计平台，可以在其中添加各种已有对象以及编写事件过程。 通过单击“工程”菜单中的“添加用户控件”可以在一个ActiveX 控件工程中制作多个ActiveX 控件，这样在生成的OCX文件中就有多个ActiveX 控件。 表14-1 UserControl1对象的主要属性 设置控件在工具箱中的图案 ToolboxBitmap 决定控件是否可以在运行时可见 InvisibleAtRuntime 决定控件是否可以由其他应用程序共享 Public 回或设置字符串，该字符串是与控件关联的属性页的名称 PropertyPages 说 明 属 性 表14-2 UserControl1对象的主要事件 当焦点离开控件时，发生该事件 ExitFocus 当焦点进入控件时，发生该事件 EnterFocus 当保存对象的实例时，发生该事件。该事件通知对象此时需要保存对象的状态，以便将来可恢复该状态。大多数情况下，对象的状态仅包括属性值 WriteProperties 当加载具有保存状态的对象的旧实例时，发生该事件 ReadProperties 创建对象的新实例时，发生该事件，一般在该事件过程中设置界面属性的初始值 InitProperties 当控件被从内存删除时触发 Terminate 当控件被建立时触发 Initialize 说 明 事 件 2.设计ActiveX 控件界面 按图14-2设计界面，即添加四个控件：驱动器列表框Drive1、目录列表框Dir1、文件列表框File1和图片框Picture1，将UserControl1对象的Name属性设置为ACDSee，以后在其他窗体上添加该控件时，控件的默认名称将以ACDSee开头。如需要可以为UserControl1对象的ToolboxBitmap属性任意指定一个图形文件。 图14-2 “图片浏览器”控件 3.编写代码 Private Sub Drive1_Change() 当在驱动器列表框选择新的驱动器时 Dir1.Path = Drive1.Drive 目录列表框的路径改变 End Sub Private Sub Dir1_Change() 目录列表框的路径改变时 File1.Path = Dir1.Path 文件列表框的路径改变 End Sub Private Sub Combo1_Click() File1.Pattern = Trim(Right(Combo1.Text, 5)) 文件类型为列表框的后5个字符 End Sub Private Sub File1_Click() Pictur