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