VB_OCX制作ppt课件.ppt

1、，14.1制作ActiveX控件，14.2在其他应用程序中使用对象，第14章ActiveX组件，退出，ActiveX组件是由ActiveX技术创建的可重用的编程代码和数据，由一个或多个对象组成，这些对象是定义从网页到对象链接和嵌入式OLE控件的所有内容的核心术语。ActiveX技术提供了一种粘合剂，可以将所有其他技术结合起来，使网络变得生动。在VB中使用的ActiveX组件有四种：ActiveX控件、ActiveX文档、ActiveX动态链接库和ActiveX EXE。1、14 . 1 . 1 ActiveX控件的制作过程，(1)新建项目时，选择 activeX控件打开用户控件对象的设计控件界

2、面，如图14-1所示。(2)在UserControl1对象上添加各种可能的对象。(3)编写程序代码。(4)参照类的创建，为控件添加属性、事件和方法。(5)如果需要，可以为控件创建属性页。(6)创建一个由EXE工程测试创建的标准ActiveX控件。(7)编译成OCX文件供出版。14.1制作ActiveX控件，2。图14-1控件的设计窗口，3。下面以“图片浏览器”控件的建立为例，说明ActiveX控件的制作过程。图片浏览器控件由四个控件组成：驱动器列表框、目录列表框、文件列表框和图片框。1.新建ActiveX控件项目点击“文件”菜单中的“新建项目”打开“新建”对话框，双击“ActiveX控件”弹出

3、ActiveX控件设计窗口，如图14-1所示。根据需要更改项目的名称，如“自动系统”，然后“自动系统”是显示在“组件”对话框中的新ActiveX控件的名称。在“AcdSystem”项目的设计窗口中有一个UserControl1对象。它的功能类似于标准EXE项目的形式。它是ActiveX控件的设计平台，可以在其中添加各种现有对象并编写事件过程。通过单击“项目”菜单中的“添加用户控件”，可以在一个ActiveX控件项目中创建多个ActiveX控件，以便在生成的OCX文件中有多个ActiveX控件。4，表14-1 user control 1对象的主要属性，5，表14-2 user control

4、1对象的主要事件，6，2。根据图14-2设计ActiveX控件界面，即增加四个控件：驱动器列表框Drive1、目录列表框Dir1、文件列表框File1和图片框Picture1。将UserControl1对象的“名称”属性设置为ACDSee，将来将该控件添加到其他表单时，该控件的默认名称将以ACDSee开头。如果需要，您可以为用户控件1对象的工具箱位图属性任意指定一个图形文件。图14-2 图片浏览器控件，7，3。在驱动器列表框中选择新驱动器时，写入代码“专用子驱动器1 _更改()”,目录1。路径=驱动器1。驱动器目录列表框的路径更改了文件1的结束子私有子目录1 _更改()路径。路径=Dir1。当

5、目录列表框的路径更改时，路径文件列表框也会更改结束子私有子组合1 _ click()文件1 .模式=修剪(右(组合1.text，5)文件类型是列表框的最后5个字符：结束子私有子文件1 _ click()图片1。图片=loadpicture(文件1。路径文件1。filename)结束子私有子用户控件_ initialize()文件1。模式=*。骨形态发生蛋白；*。tif*。tiff*。jmp*。jpg。*。jpeg*。gif末端接头，8，4。构建测试项目(1)单击“文件”菜单中的“新建项目”，创建一个新的标准EXE项目，并重命名新项目TextAcdPRJ。(2)在“项目资源管理器”中点击“文本”

6、项目名称，在弹出的快捷菜单中选择“设为开始”，将文本项目设为开始项目。参见图14-3。(3)必须关闭ActiveX控件设计窗口，以便可以在工具箱中看到图14-4所示的新创建的ActiveX控件图标(右下角)，从而可以将ActiveX控件添加到测试窗口中。(4)在TextAcdPRJ项目的窗口中添加ACDSee控件，并将ACDSee1的默认名称更改为TestACDSee。此时，如果ACDSee控件的设计窗口打开，这意味着ACDSee控件处于设计阶段，并且TextAcdPRJ项目的窗口将充满对角线，如图14-5所示。图14-3设置启动表单图14-4显示控制图标图14-5充满斜线10、5的测试表单。

7、为控件添加事件对于使用ActiveX控件的用户，用户控件1对象及其子控件的事件和属性不可见，而ActiveX控件的事件和属性对用户可见。VB自动为ActiveX控件提供GotFocus、LostFocus、DragDrop、DragOver和验证事件。此外，ActiveX控件的设计者可以为ActiveX控件自定义事件。以ACDSee控件设计PictureDblClick事件(当双击ACDSee对象上的图片框时发生此事件)为例，说明自定义事件的过程。(1)声明一个事件以打开ACDSee控件的设计窗口，在代码窗口的一般声明部分添加以下声明：事件图片(Event PicturedBulclick()

8、(2)在双击ACDSee对象的图片框中的事件的过程中，在适当的位置添加触发事件的代码：私有子图片_ DblClick().用这种方法，在关闭ACDSee控件设计窗口之后，您可以在测试窗口中的TestACDSee控件的事件组合框中看到图片DblClick事件，并且您可以根据需要添加所需的事件代码。我的答案=msgbox(你想放大图片吗？vbYesNoCancel)末端接头，11，6。向控件添加属性的步骤，如向控件添加驱动属性，如下：(1)打开ActiveX控件设计窗口的代码窗口。(2)点击工具菜单中的添加流程，弹出添加流程对话框，输入属性名称“驱动”，流程类型为“属性”，范围为“公共”。这样，V

9、B立即提供了以下两个过程模板：公共属性获取驱动()作为变量结束属性公共属性让驱动(通过新值作为变量)结束属性在这两个过程中添加所需的代码：公共属性获取驱动()作为字符串驱动=驱动1。驱动器结束属性公共属性让驱动器(byval new _ drive作为字符串)驱动器1。drive=new _ drive end属性，显示用户控件对象的子控件drive1的drive属性，关闭ActiveX控件设计窗口，在属性窗口中查看Drive属性，如图14-6所示(Drive的默认值设置为“c:”)。当程序运行时，在驱动器列表中选择的驱动器是ActiveX控件的驱动器属性值。12，使用类似的方法，可以公开子控

10、件Dir1的路径属性和用户控件对象的子控件File1的文件名属性。参见图14-6(路径的默认值已设置为“c:渲染”)。图14-6控件的属性，13，7。保存属性值在用户控制对象中有三个与属性访问密切相关的事件：初始化属性事件、读取属性事件和写入属性事件。属性保存在名为“属性包”的属性包类型的对象中，属性值可以通过调用“属性包”的写属性方法和读属性方法来保存和读取。例如，读取驱动器、路径和文件名属性的过程代码是：私有子用户控件_读取属性(道具包作为属性包)驱动器1 .驱动器=道具包。读取属性(驱动器，C:)目录1 .路径=道具包。读取属性(路径，c:渲染)文件1 .文件名=道具包。读取属性(文件名

11、，结束子用私有子用户控件的过程代码保存驱动器、路径和文件名属性_写入属性(道具包作为属性包)调用道具包。写入属性(驱动器，驱动器1。开车)打电话给背包。写属性(路径，目录1。路径)调用PropBag。WriteProperty(文件名，文件1。文件名)结束子虽然保存属性的代码被添加到写属性事件中，但是写属性事件不知道属性值何时改变。可以调用PropertyChanged方法通知VB控件属性值已更改，然后通知WriteProperties事件保存新的属性值。例如，公共财产出租驱动(byval new _ drive作为字符串)驱动1。drive=new _ drive属性更改了驱动端属性，14，

12、8。设计属性页。以构建AcdSee控件的“我的属性空间”属性页为例，说明构建新属性页的步骤：(1)根据前面的介绍为AcdSee控件添加新属性，这些属性应与新属性页“我的属性空间”相对应。此处不添加新属性，仅将现有属性“驱动器”和“路径”映射到“我的属性”页面属性页。(2)点击“项目”菜单中的“添加属性页”，打开“添加属性页”对话框，使用VB属性页向导可以轻松创建。双击VB属性页向导打开对话框。(3)单击下一步。当出现如图14-9所示的对话框时，单击添加打开如图14-10所示的属性页名称对话框，输入属性页名称MyPropertyPage，然后单击确定返回。(4)点击“下一步”按钮，将出现如图14

13、-11所示的“属性页向导-添加属性”对话框，新属性页中可以添加的属性名称将显示在“可用属性”框中，然后依次双击“驱动器”和“路径”，将其添加到右侧的“我的属性页”属性页中。(5)单击“完成”完成属性页的创建。此时，您可以在项目资源管理器窗口中看到新的属性页图标。关闭控件设计窗口，在测试窗口中打开控件的属性页，如图14-12所示。15、图14-7连接属性页窗口图14-8标准属性页，图14-9添加属性页图14-10输入属性页名称，图14-11添加属性页图14-12我的属性页，16，9。发布ActiveX控件在设计和测试ActiveX控件后，您应该发布ActiveX控件。单击生成我的系统。OCX在控

14、制设计窗口下的文件菜单中生成相应的ocx文件进行发布。由于由VB创建的ActiveX控件需要VB运行时的DLL文件和ActiveX控件中子控件的支持文件，所以最好使用安装向导来生成ActiveX控件的安装程序，以确保所有必要的支持文件都被释放。17，14.1.2使用向导创建ActiveX控件。步骤如下：(1)根据上述方法创建用户界面并编写用户代码。(2)在“外部程序”菜单中选择“外部程序管理器”，打开“外部程序管理器”对话框，选择“VB 6 ActiveX控件界面向导”，在“加载行为”中选择“启动时加载”，加载“ActiveX控件界面向导”。(3)在“外部程序”菜单中选择“控件界面向导”，开始运行控件界面向导。在图14-13中，将可用名称中的驱动器、路径和文件名属性移动到右侧的选定名称。点击图14-14中的“新建”按钮，打开“添加自定义成员”对话框，输入要自定义的事件名称，选择“事件”类型。18，图14-13“选择接口成员”对话框图14-14“创建自定义接口成员”对话框，19。在图14-15所示的“设置映射”对话框中，在“公共名称”列中选择需要映射到控件的成员(属性、事件或方法)，然后在“映射”列中选择映射，例如将PictureDblClick事件映