1、沈 阳 工 程 学 院 信息管理系第 14章 对象的链接与嵌入n 对象链接与嵌入控件 OLE(Object Linking and Embedding)， 可以使 VB应用程序访问 Windows环境中其他应用程序的对象，从而使 VB能够使用其他应用程序的数据。例如 Word文档、Excel工作表等，这类对象称为 OLE对象。 VB能够访问的 OLE对象取决于用户系统所安装的Windows的应用程序。 OLE对象可以通过 VB工具箱中提供的 OLE控件进行加载。沈 阳 工 程 学 院 信息管理系14.1 OLE控件概述n OLE控件处于工具箱中，它的作用是在 VB应用程序中插入 OLE对象，就
2、像一个容器一样，所以又称它为 OLE容器控件。n 使用 OLE控件，可以进行如下应用：q (1)在应用程序中，为对象创建一个占位符。运行时创建出现在 OLE容器控件中的对象，或者改变已在设计时置于 OLE容器控件中的对象。q (2)在应用程序中，创建链接对象。q (3)把 OLE容器控件与数据库绑定。q (4)如果在 OLE容器控件中移动、调整对象大小或者更新对象，那么执行相应的操作。q (5)从复制到剪贴板上的数据中创建对象。沈 阳 工 程 学 院 信息管理系14.1.1 使用 OLE控件n 使用 OLE控件插入对象，既可以是对象链接，也可以是对象嵌入。而且在 OLE控件中所插入的对象，既可
3、以插入整个文件，也可以插入文件的部分内容。n 在窗体上添加一个 OLE控件，与其他控件不同的是，此时会弹出一个 “ 插入对象 ” 对话框，如图 14.1所示，此对话框给出了所有 OLE对象类型。我们也可以通过双击 OLE控件，弹出一个 “ 插入对象 ”对话框，或激活 OLE控件，右击鼠标，屏幕出现快捷菜单，如图14.2所示，选中 “ 插入对象 ” 命令，屏幕显示 “ 插入对象 ” 对话框。n 在 “ 插入对象 ” 对话框中，有几个可供选用的单选按钮、命令按钮和复选框，先说明其作用。沈 阳 工 程 学 院 信息管理系单选按钮、命令按钮和复选框的作用 :q (1)“ 新建 ” 单选按钮：为缺省按钮
4、。如果原来没有准备好要嵌入的对象，就需要选择 “ 新建 ” 。 VB就会立即启动用户在 “ 对象类型 ”中选择的应用程序，在应用程序中创建所需的对象。例如，若在 “对象类型 ” 中，选择了 “ Microsoft Word文档 ” ， VB就会启动 Word， 然后在 Word中建立一个新文档作为 OLE对象，用户可以在其中输入文档内容。q (2)“ 从文件创建 ” 单选按钮：如果用户已经建立了要嵌入的对象，则应选择此单选按钮 (此时单选按钮左侧的圆圈内有一个黑点 )，屏幕上会立即显示出如图 14.3所示的对话框，可以在 “ 文件 ” 框中，输入所要嵌入的对象。q (3)“ 浏览 ” 命令按钮
5、：单击 “ 浏览 ” 按钮，屏幕会出现浏览窗口，此时用户可以从中选择要插入的对象。如果选中了 “ 链接 ” 选项，则表示对象的插入方式是链接方式，否则是嵌入方式。q (4)“ 显示为图标 ” 复选框：如果选择它，插入到 OLE控件中的对象是以图标的方式显示。此时， “ 插入对象 ” 对话框出现了 “ 更改图标 ” 按钮，用户可以通过单击它来更改图标。q 【例 14.1】在 OLE控件中，插入一个 Word文档的全部内容。q 【例 14.2】 将一个文件的部分内容插入到 OLE控件中。沈 阳 工 程 学 院 信息管理系14.1.2 对象链接与嵌入的区别n 链接与嵌入的不同之处在于插入到 OLE控
6、件的对象 (数据 )所存放的位置。n 例如，当把一个 Word文档链接到 VB应用程序时， VB是将 Word文档的指针 (即地址 )插入而不是对象本身。对象本身仍然由创建它的 Word应用程序管理，存储在 OLE控件之外。在调用该文档时根据该地址去访问被链接的Word文档。如果 Word文档数据源中的数据发生变化时，应用程序所调用的数据也随之变化，如果数据源移动了位置、更改了名称或遭到了破坏，在 VB应用程序中都将不能正确调用它。当我们将一个 Word文档嵌入到VB应用程序中时， VB是将 Word文档本身插入到应用程序中，并将该 Word随 VB应用程序一起存储。其他的程序是不允许访问被嵌
7、入对象的。n 可见，链接与嵌入各有优缺点。嵌入到 OLE控件中的数据不会丢失，但它是以占用更多的空间为代价的。链接到 OLE控件中的数据虽然占用较少的空间，但是数据源容易受外界的影响而丢失。沈 阳 工 程 学 院 信息管理系14.2 OLE控件常用属性与方法n14.2.1 OLE控件的属性q 1.OLE容器控件的常用属性n (1)Action属性q 该属性设置一个值，用来通知系统进行何种操作。此属性只能在程序中使用，在设计阶段不可用。 Action属性共有 14个值可供选择，含义如下：沈 阳 工 程 学 院 信息管理系Action属性 14个值的含义如下： 0：生成内嵌对象。 1：生成链接对象
8、。 4：将对象的数据和属性复制到系统剪贴板。 5：将系统剪贴板中的数据粘贴到 OLE容器控件。 6：从应用程序中获取当前数据并修改 OLE容器控件的内容。 7：激活 OLE控件。 9：关闭 OLE对象。 10：删除 OLE对象。 11：将对象保存到数据文件中。 12：加载保存到数据文件中的 OLE对象。 14：显示 “ 插入对象 ” 对话框。 15：显示 “ 特殊粘贴 ” 对话框。 17：更新对象支持的谓词列表。 18：将对象以 OLEVersion1.0版本的文件格式保存。沈 阳 工 程 学 院 信息管理系(2)AppIsRunning属性n 该属性表示源应用程序是否正在运行。设为 True
9、时，源应用程序在运行，设为 False时，关闭源应用程序。这种方法可以使对象激活的更快。通常在对象失去焦点时，可以将这个属性设为 False来关闭源应用程序。沈 阳 工 程 学 院 信息管理系(3)AutoActivate属性n 该属性用来确定对象激活的方式。取值及含义如下：q 0：手工激活。对象不能自动激活，要使用 DoVerb方法来激活对象。q 1：焦点激活。如果对象不支持单击激活，那么 OLE容器控件接收到焦点时激活源应用程序。q 2： (缺省 )双击激活。当 OLE容器控件拥有焦点时，如果双击 OLE容器控件或者按回车键，那么激活源应用程序。这种情况下双击 OLE容器控件不会产生Dbl
10、Click事件。q 3：自动激活。当 OLE容器控件拥有焦点或者双击控件时，将根据对象的激活方法来激活源应用程序。(4)Class属性n该属性确定在 OLE控件中插入的对象的类。n在 “ 属性 ” 窗口中，选中该属性，单击其右侧出现的按钮，则打开 “ 选定类 ” 对话框，如图 14.9所示，其中列出了系统中可用的类名。选定其中要插入的对象，按“ 确定 ” 按钮。也可以用代码的方式为 Class属性赋值。q例如，要插入 Word文档，需要指定类名为 Word.Docment.8。 若要插入 Excel工作表，则需要指定类名为 Excel.Sheet.8。沈 阳 工 程 学 院 信息管理系(5)DisplayType属性n 该属性确定对象在 OLE控件中的显示方式。q 取值为 0表示显示对象的内容。q 取值为 1表示显示对象的图标。
