第 8 章 ActiveX 控件初步应用 8.1 ActiveX控件概述 8.2 ActiveX控件 8.3 建立和使用 ActiveX 文档 8.4 综合实例 8.5 本章小结 习题

ActiveX 控件的来源包括 3 个反面：系统提供，第三方厂商提供，用户开发。ActiveX 控件包含：工具栏（ Toolbar ）、数据组合框 (DataCombo) 、数据列表框（ DataList ）等。不同版本的 Visual Basic 提供的控件数量不同，其中学习版提供的控件比较少，专业版和企业版提供的控件比较

8.1 ActiveX 控件概述

返回

8.2 ActiveX 控件 8.2.1ActiveX 控件的使用 8.2.2 ActiveX 控件的创建 8.2.3 通过向导制作 ActiveX 控件

返回

8.2.1ActiveX 控件的使用ActiveX 控件使用前，必须将其添加到工具箱中。操作步骤如下：在菜单栏上选择“工程→部件”选项，或在工具箱中单击鼠标右键，在弹出的快捷菜

单中选择“部件”选项，弹出“部件”对话框，。该对话框中列出所有可以使用的部件，包括“控件”、“设计器”和“可插入对象”等。

在“控件”选项卡中选择要插入的控件，被选择中控件名称左边的复选框中 有一个标记“√”。单击“确定“按钮，关闭“部件”对话框，被中的控件出现在工具箱中。例如，在“部件”对话框的“控件”选项卡中选择“ Microsoft Windows Common

Controls6.0” 并将其添加到工具箱中，工具箱中即可增加工具栏（ ToolBar ）、状态栏（ StatusBar ）、进度条（ ProgressBar ）、树状视图（ TreeView ）、列表视图（ ListView ）、滑快（ Slider ）等 9 个控件。

1 ．工具栏控件（ ToolBar ）　　 工具栏是按钮对象的集合，默认名称为 ToolBar 。工具栏控件的使用可参阅 5.3

节中的介绍。2 ．状态栏控件（ StatusBar ）状态栏用于显示应用程序的运行状态，默认名称为 StatusBar 。状态栏控件的使用可

参阅 5.3 节中的介绍。

3 ．进度条（ ProgressBar ）进度条控件是一个给用户提供操作进程的动态指示器 ( 如显示文件传输操作完成百分比 ) 。操作过程中，该控件显示一条色带，这条色带随着时间的增加而伸长。创建进度条的操作步骤如下：在工具箱中选择进度条控件并画到窗体中，创建一个进度条。按需要报告的操作范围设置该控件的属性值。几个主要的属性：①Height 属性：设置进度条的高度②Width 属性：设置进度条的宽度。通常进度条的宽度是高度的几备。③Value 属性：设置或检索进度条被填充的程度。④Min 属性：设置允许 Value 属性使用的最小值（下限），默认为 0 。⑤Max属性：设置允许 Value 属性使用的最大值（上限），默认为 100 。

4 ．数状视图（ TreeView ）TreeView 控件显示 Node 对象的分层列表，每个 Node 对象均由一个标签和一个可选的位图组成。 TreeView 一般用于显示文档标题、索引入口、磁盘上的文件和目录或能被有效地分层显示的其它各种信息。类似于 Win98的资源管理器的界面就可以用该控件来实现。　　在设计时可以通过 TreeView 控件的属性页来指定控件的部分属性。在 TreeView 控件的属性中，比较重要的有如下属性：（ 1 ）样式（ Style ）属性返回或设置 Node 对象的图形类型（图像、文本、 +/- 号、直线）以及出现在 TreeView 控件中每一 Node 对象上的文本类型。（ 2 ）行样式（ LineStyle ）属性　 返回或设置在 Node 对象之间显示的线的样式。注意：若 Style 属性设置为包含直线的值，则 LineStyle 属性就确定了直线的外观。如果 Style 属性设置为不含直线的值，则 LineStyle 属性将被忽略。 （ 3 ） imageList 属性：读出或设置与本控件相联系的 imageLis 控件。（ 4） Indentation 属性： 设置各个新的 Node 对象缩进的量度。（ 5 ） LabelEdit 属性：设置用户是否编辑本控件中 Node 对象的标签。它有 0 和 1两个属性值， 0代表自动编辑标签， 1代表人工编辑标签。（ 6 ） Nodes 属性： 设置访问控件的 NodeS 对象集合。

5 ．列表视图（ ListView ）ListView 控件比前面几种控件要复杂一些，通过此控件，可将项目组成带有或不带有列标头的列，并显示伴随的图标和文本。 ListView 控件是由 ColumnHeader 和 ListItem 对象所组成的，其中 ColumnHeader 对象的个数决定了控件的列数，而 ListItem 对象的个数则决定了控件的行数。　　 ColumnHeader 对象是 ListView 控件中包含标头文字的项目。利用 ColumnHeader对象，用户可以：　　①单击对象触发 ColumnClick 事件并根据数据项目将项目排序。②拖动对象的右边框来调整列宽度。③ 在报表视图中隐藏 ColumnHeader 对象。ColumnHeader 对象的数目决定每个 ListItem 对象可包含的子项目数目。删除 ColumnHeader 对象后所有与列关联的子项目也将被删除，并且每个 ListItem 对象的子项目数组将平移以更新 ColumnHeader 的索引，而这将导致剩余的列标头 SubItemIndex属性的改变。ColumnHeader 对象的 SubItemIndex属性　　该属性返回与 ListView 控件中 ColumnHeader 对象关联的子项目的索引。子项目是字符串数组，代表显示在报表视图中的 ListItem 对象的数据。第一列的列标头 SubItemIndex属性设置为 0 ，这是因为小图标和 ListItem 对象的文字总出现在第一列中，而且它们被当作 ListItem 对象而不是子项目。列标头数目取决于子项目数目。列标头数目总是比子项目数目多 1 。ListItem 对象的 SubItems 属性　　

返回或设置一个字符串（子项目）数组，它代表 ListView 控件中 ListItem 对象的数据。ListItem 对象可包含任意多个的关联项目数据字符串（子项目），但每个 ListItem 对象子项目数目必须相同。每个子项目都对应于相关的列标头，无法直接向子项目数组添加元素，只有通过 ColumnHeaders 的 Add 方法添加列标头的方法来添加子项目。ListView 控件的 View 属性ListView 控件可使用四种不同视图显示项目，这可以用 View 属性来确定。该属性返回或设置 ListView 控件中 ListItem 对象的外观。ListView 控件的 SortOrder ， SortKey和 Sorted 属性控件中的 ListItem 对象可以按要求进行排序，与排序有关的属性是 SortOrder ， Sorted和 SortKey属性。SortOrder 属性返回或设置一个值，此值决定 ListView 控件中的 ListItem 对象以升序或降序排序。SortKey属性返回或设置一个值，此值决定 ListView 控件中的 ListItem 对象如何排序。Sorted 属性返回或设置确定 ListView 控件中的 ListItem 对象是否排序的值。下面的代码说明了如何创建 ColumnHeaders 和 ListItem 对象， SubItemIndex和 SubItem 属性的使用方法以及如何排序。

建立 Active 控件的步骤如下：1 、创建 Active 控件工程通过创建新的 Active 控件工程开始创建 Active 控件。在该工程中可以创建任意数量的 Active 控件。为了便于使用 Active 控件，应当将相关的控件组合到一个工程中。创建一个 Active 控件时，将显示默认的用户控件。用户控件与窗体类似，其中包含用于控件客户接口的窗口和用于处理控件事件的代码。如果要在工程内定义多个控件，可在菜单栏上选择“工程→添加用户控件”命令，即可为工程中定义的每个控件添加一个用户控件。 2 、创建控件的用户接口。在类似窗体的 UserControl 对象上设计控件界面，在 UserControl 对象上可以加入现有的各种控件。创建控件的用户接口有 3种基本方式：组合已有控件的方式：通过将几个其他控件组合到新控件来建立控件。用于组成新控件的控件称为组元控件。例如，可以用文本框和滚动条建立一个微调控件。增强已有控件的方式：通过向已有控件添加属性、方法和事件来建立增强的控件。例如，建立一个用户的文本框控件，该文本框提供标准文本框的全部功能，但只允许输入数值。重新开始建立控件的方式：建立的控件称为客户设计的控件。在用户需要特效的接口或其他特殊要求时，应当重新开始建立控件。在用户控件窗口中建立控件的用户接口时，可以按新控件的要求添加或设计控件，也可以向用户控件添加除了 OLE容器外的任意控件。用户窗口激活时，该控件在工具箱中无效。

8.2.2 ActiveX 控件的创建

3 ．编写控件的程序代码一般来说，控件的开发者希望控件能按设计要求提供一组基本功能；而控件的终端用户可能希望控件能具有某种行为的能力（单击某个按钮可实现向一个文本框输入）。可以通过向控件添加代码来满足这些需求。Visual Basic 提供了 Active 控件界面向导，以帮助用户映射属性、方法和事件。只要在菜单上选择“外接程序→外接程序管理器”命令，在弹出“外接程序管理器”对话框中选择“ VB6.0 Active 控件接口向导”并单击“确定”按钮，即可在“外接程序”菜单中添加一个菜单项“ Active 控件接口向导”。在“ Active 控件接口向导”的帮助下，用户可创建 Active 控件工程和控件的用户接口，然后用该向导帮助建立控件的全部代码。

4．为控件添加属性、事件和方法控件添加方法与创建类的方法相同。UserControl 对象及其子控件的属性，对最终用户是不可见的。用户开始创建控件时， VB赋予它一些简单的属性，如 Name 、 Visible 等。其中最主要的是 Name 属性，在使用控件时用于标识控件。控件的其他属性一般通过简单显示 UserControl 对象或其子控件的现有属性来实现。在“工程”菜单中选择当前工程的属性选项，可以设置 Active 控件工程的属性。

5 ．建立属性页属性页不是一个控件必须有的，但建立属性页有助于控件的使用。几乎 VB提供的所有 Active 控件都有属性页， VB也为用户设计的 Active 控件准备了 4个标准属性页： StandardFont 、 StandardColor 、 StandardPicture 和 StandardDataFormat 。如果要使用这些属性页，应在 UserControl1的属性页中选种 PropertiesPage 属性，弹出的“连接属性页”对话框，如图所示。从中选择要用的属性页。

在测试窗体中添加 Active 控件并选种该控件 ,在菜单栏上选择“视图→属性页”选项，弹出该控件的“属性页”对话框，如图所示。该对话框包含 4个选项卡，分别对应 4个属性页。系统自动把字体类型的属性对应到 StandardFont；把颜色类型的属性对应到 StandardColor；把图片类型的属性对应到 StandardPicture； StandarddataFormat 用来数据格式。如果 VB 提供的标准属性页不能满足要求，则用户可以定制自己的属性页。

6 ．测试控件为了能在制作控件的同时进行测试，提前建立一个“标准 EXE”测试工程，与 Active 控件工程组成工程组，随时测试控件。测试 Active 控件的操作步骤如下：（ 1 ）在菜单栏上选择“文件→添加工程”选项，以便向工程组添加测试工程。可以添加已有的工程或新的工程。通过向集成开发环境添加另一个工程而创建了可以保存的工程组。然后可以打开工程组（而不是单一的工程），以便打开集成开发环境中的工程。(2) 在“工程”窗口中选择要测试的工程并设置属性。(3) 关闭 Active 控件工程。(4) 向测试工程中的窗体添加一个控件。(5) 将测试工程设置为启动工程。(6) 运行测试工程。演示控件将如何为终端用户操作，可根据需要编辑和调试控件。(7) 关闭和再打开工程。测试设计时属性的保存。

7．将控件编译为 .OCX 文件若控件对于一个特殊应用程序是私有的 ,可保留在工程而不必分别编译 ;如果控件要提供给其他开发人员 ,则不必编译和分配 .8．发布控件 一旦编译了 Active 控件工程，就可以把该 Active 控件工程发布给其他程序员。随后，这些程序员就可以向应用程序中的任意窗体添加控件。在大多数的情况下，控件使用者仅仅取得 .OCX 文件并不能使用控件。因为 VB 创建的 Active 控件需要 VB 运行的 DLL ，如果控件使用了子控件，可能还需要其他的支持文件。为了确保发布所有必要的支持文件，最好使用安装向导，生成 Active 控件的安装程序。

8.2.3 通过向导制作 ActiveX 控件 为了减轻用户在制作 ActiveX 控件时为添加属性、事件、方法

或属性页所作的编码工作， VB 提供了 ActiveX 控件接口向导。 ActiveX 控件接口向导可以引导用户创建控件的属性、事件和方法，

并生成相应的基本代码，但不用创建用户界面。使用 ActiveX 控件接口向导前，必须创建一个具有目标界面元素的 ActiveX 控件。

利用 ActiveX 控件接口向导和属性页向导可以添加各种需要的属性、方法和事件并设置其属性。

1 ． ActiveX 控件界面向导ActiveX 控件界面向导引导用户快速地创建控件的属性、事件和方法，生成相应的基本代码，但界面仍然需要自己制作。用向导制作 ActiveX 控件的操作步骤如下：（ 1 ）在菜单栏上选择“文件→新建工程”选项，在弹出的“新建工程”对话框中选择“ ActiveX 控件”图标，单击“确定”按钮，生成一个新的工程和 UserControl1 控件。（ 2 ）在菜单栏上选择“工程→工程 1 属性”选项，在弹出的“工程 1—工程属性”对话框。选择“通用”选项卡并填写相关内容，单击“确定”按钮。（ 3 ）在工程中双击 UserControl1 ，使其处于激活状态。（ 4）在属性窗口中将 UserControl1 的 Name 属性修改为所需要的名字。（ 5 ）按需求在对象窗口中添加一些控件。（ 6 ）在菜单栏上选择“工程→添加用户控件”选项，在弹出的对话框中选择“ VB ActiveX 控件用户界面向导”选项，弹出“添加用户控件”对话框。（ 7）单击“打开”按钮，进入 VB ActiveX 控件界面向导程序。在该向导的指导下，生成与控件有关的属性、方法和代码，完成 ActiveX 控件的生成。

2 ．属性页向导属性页向导能为用户控件建立各种属性也提供帮助。是一个外接程序。如果“外接程序”菜单中没有“属性页向导”，应使用“外接程序”菜单中的“外接程序管理器”命令加载

8.3 建立和使用 ActiveX 文档 ActiveX 文档是信息的特殊显示。 ActiveX 文档可以说是一个电子表格、图形、图表或数据的任意形式显示。 ActiveX 文档类似于窗体，通过向工程添加用户文档，可以在工程中创建 ActiveX 文档。 ActiveX 文档服务器是用户文档的 ActiveX EXE或 ActiveX DLL 工程。 ActiveX 文档服务器提供给另一应用程序 ActiveX 文档对象。 ActiveX 文档容器可以请求 ActiveX 文档并显示它。 ActiveX 文档使用户能建立可以在网上传输的应用程序，在笔记本电脑上或在遥远的额办公室甚至在家中，都可以通过 Wwb浏览器来使用。但是ActiveX 文档不等于 Web网页，而是一个应用程序。另外，用户可以通过浏览器把 ActiveX 文档和 Web网页紧密地结合在一起。

返回

建立 ActiveX 文档服务器的一般步骤如下。1 、创建 ActiveX 文档文档服务器工程 创建新的 ActiveX服务器工程，或把一个已有工程转换成 ActiveX 文档服务器，可建立 ActiveX 文档。该工程含有 ActiveX 文档。 操作步骤如下：① 启动一个新的 ActiveX 文档 DLL 或 ActiveX 文档 EXE工程，把一个用户文档作为默认模块插入工程中：或启动一个新的 ActiveX 文档 DLL 或 ActiveX 文档 EXE工程，将一个类模块作为默认模块插入工程中。② 在菜单上选择“工程 -----添加用户文档”命令，添加用户文档；或打开已有工程，将该工程转换为 ActiveX 文档服务器工程。③ 在菜单上选择“工程 -----添加属性页”命令，将工程类型更改为 ActiveX EXE或 ActiveX DLL 。④ 在菜单上选择“外接程序 ----- 外接程序管理器”命令，在“外接程序管理器”对话框中选择“ VB6 ActiveX 文档移植向导”并单击“确定”按钮。此时，“外接程序”菜单中添加一个菜单项“ ActiveX 文档移植向导”。⑤ 在菜单上选择“外接程序 ----- ActiveX 文档移植向导”命令，遵循该向导的指令将工程中的窗体转换为 ActiveX 文档。无论是按哪些步骤执行该进程，都应当在工程中 ActiveX 文档服务器工程和至少有一个用户文档。

2 、建立用户文档可以向 ActiveX 文档服务器添加一个或多个用户文档，每个用户文档定义了 ActiveX 文档用户接口。建立用户文档的方法类似与建立窗体，并可以向窗体中添加控件。

用户文档保存在扩展名为 .dob 的文件中。如果用户文档含有该图形数据，该数据保存在扩展名为 .dox的文件中 . 这两种文件类型与用于窗体的 .frm 和 .frx文件类似。

程序设计时，可以向窗体添加代码。同样，也可以在用户文档添加代码。但是，用户文档不能加载和卸载。向窗体 Load 和 Unload事件过程添加的代码，通常也可以添加给用户文档的 Initialize 和 Terminate事件。

3 、开发 ActiveX 文档服务器的代码可以在 ActiveX 文档服务器工程添加任意的其他窗体、类模块和标准模块。

这些附加模块可以向用户提供 ActiveX 文档的支持。

4 、设定用户文档属性用户文档有效的属性与提供给窗体的属性类似。此外， HscrollSma

llChange 属性和 VscrollSmallChange 属性仅对用户文档有效。这两个属性标识用户在 ActiveX 文档容器的视区内（滚动时）用户文档将滚动过的距离（一 twin 为单位）。

5 、设置 ActiveX 文档服务器的工程属性在“工程”菜单中选择该工程属性命令，定义文档服务器的工程设

置。

6 、测试 ActiveX 文档由于测试 ActiveX 文档需要 ActiveX 文档容器，因此不能简单地通过运行 ActiveX 文档服务器工程来测试 ActiveX 文档。运行诸如 Internet Explorer 的 ActiveX 文档容器应用程序可以测试 ActiveX 文档。

ActiveX 文档容器应用程序从 ActiveX 文档服务器请求 ActiveX文档。带有扩展名的 .vbd 的 Visual Basic 文档保存 ActiveX 文档的定义及其相关的 ActiveX 文档服务器。打开 ActiveX 文档容器应用程序中的 Visual Basic 文档时，该容器应用程序读取文件并决定实现哪个 ActiveX 文档服务器，以及从该服务器请求哪个 ActiveX 文档。因此，可以把 Visual Basic 文档作为对相应 ActiveX 文档的引用。

测试 ActiveX 文档的操作步骤如下：① 运行 ActiveX 文档服务器工程。该工程不是处于运行模式，应确认 St

art Mode 工程属性设置为 ActiveX 组件。运行工程时，临时性的 Visual Basic 文档在工程中每个 ActiveX 文档的 Visual Basic目录中创建。用户文档的 Name 属性作用与 Visual Basic 文档文件名，扩展名为 .vbd.

② 启动 ActiveX容器应用程序 . 如果Web浏览器支持 ActiveX 文档 , 则可以使用 ActiveX 文档

③ 用浏览器的 Open功能打开 .vbp文件。这些文件将驻留在 Visual Basic目录中。打开文件时， ActiveX 文档应当出现在浏览器内。

④ 测试 ActiveX 文档。使用 ActiveX 文档的功能。由于正在按设计模式运行工程，因而可以像处理其他工程一样设置断点、观察点以及进行其他测试。

7、编译 ActiveX 文档服务器在菜单上选择“工程 ----- 生成工程”选项， Visual Basic 将指定工

程编译为 .EXE或 .DLL 文件 ,并为 ActiveX 文档服务器中的每个用户文档创建文档文件 (.VBD). 这些文件将创建在已编译的 ActiveX 文档服务器的同一目录中 .

ActiveX 文档文件可以重命名 . 用上述步骤创建的 .vbd 文件也可以测试已编译的 ActiveX 文档服务器 .

8、发布 ActiveX 文档和服务器ActiveX 文档服务器编译后 ,就可以对其进行发布或向 Web结点添

加文件。随后，其他用户可以从任意的 ActiveX 文档容器浏览 ActiveX 文档。

8.4 综合实例 首先新建一个工程。在窗体中引入 1 个图像列表框， 1 个 ListView 控件，两个单选按钮控件和一个状态栏控件。引入控件的窗体如图所示。 其中 ,ImageList 控件为 ListView 控件提供图形 ,状态栏显示某一列表框项目的有关信息 ,单选按钮用来选择是否排序。

返回

按下面步骤设置个控件属性：（ 1 ）设置窗体属性 激活窗体的 [属性 ]窗口，设置 [名称 ]为 MySetup,Caption

属性为“控制面板示例”，其它属性采用默认值。（ 2 ）设置状态栏属性

激活 [属性页 ]窗口，单击 [通用 ]选项卡，设置 [样式 ]属性值为“ 1-sbrSimple” 。这时状态条以简单形式出现。

（ 3 ）设置单选按钮属性设置 Option1 的 Caption 属性为“排序”， Option2 的 Caption 属

性为“不排”，其它属性采用默认值。（ 4）设置 ListView 控件属性

按以下步骤设置 ListView 控件的属性：①激活 ListView 控件的 [ 属性页 ] 对话框，。 [ 属性页 ] 对话框的 [ 通用 ] 选项卡选用系统默认设置。

② 单击 [ 图像列表 ] 选项卡 , 其中的 [普通 ] 列表框用来设置与 ListView 控件相连的 ImageList 控件 , 这里设置为 ImageList1, 其他采用缺省设置 .

③ 单击 [ 分类 ] 选项卡 , 可以在这个窗口中是否排序、排序的关键字、排序的顺序等。这里不做设置。 ④其他几个选项卡不常用，就不介绍了。

（ 5 ）设置 ImageList 控件为了使 ImageList 控件能显示图标，还需在 ImageList 控件中引入几个图像，设置结果如图所示。

添加程序代码 (略）： 程序运行后界面如图所示 , 窗体下面的状态栏显示了对象的个数。当调整窗体的大小时，界面同样同样美观 。

当将 [排序 ]按钮设置为真，并且选中 [显示器 ]一项时，界面如图 8-21 所示。可以看到，列表项的排列方式发生了变化，状态栏的内容也发生了变化。

8.5 本章小结Visual Basic 应用程序的界面主要由控件构成。 Visual Basic 工具箱提供了命令控件、文本框等常用控件。这些控件总是出现在工具箱中，可以直接使用，这种控件称为标准控件，又称内部控件。标准控件包含在 Visual Basic 的 .EXE文件中，系统安装后，即可直接使用。Visual Basic 工具箱中只有 20 个标准控件，对于复杂的应用程序，这些控件是不够的。 ActiveX 控件以单独的文件存在，是 Visual Basic 工具箱的扩充。 ActiveX 控件可以被添加到工具箱中，也可以从工具箱中删除。 ActiveX 控件的使用方法与其他标准控件完全一样。在程序中添加后，即可成为开发和运行环境的一部分。ActiveX 控件包含：工具栏（ Toolbar ）、数据组合框 (DataCombo) 、数据列表框（ DataList ）等。创建 ActiveX 控件的步骤包括 : （ 1 ）创建“ ActiveX 控件工程（ 2 ）在 UserControl1 对象上添加可能得到的各种对象。（ 3 ）编写程序代码。（ 4）参考类的创建，为控件添加属性、事件和方法。（ 5 ）如果需要，可以为控件建立属性页。（ 6 ）建立一个标准的 EXE工程测试所建立的 ActiveX 控件。（ 7）编译成 OCX 文件发布 返回

习题一、思考题

1. 说明创建 Active 控件的主要步骤。2. 试说明 Active 控件与标准控件的差异。3. 如何在应用程序中使用工具栏和状态栏控件？试举例说明。4. 通过向导完成 Active 控件 Add_Name 的制作。二、程序设计题

1 ．用工具栏控件设计一个工具栏，其功能和界面自定。2 ．用状态栏控件设计一个状态栏，其功能和界面自定。3 ．创建一个能显示日期和时间的 Active 控件。4．设计一个输入学生信息的 Active 控件，该控件可以输入姓名、性别、年龄和机关信息，如果输入的姓名与已输入姓名不重名，即添加到学生名清单中

返回