作者：北极圈 文章来源：本站整理 点击数： 更新时间：2008-6-25 16:26:01

OLE自动化是不同应用程序之间进行通讯的一个标准。OLE自动化的工作方式是：通讯被动方（OLE服务器）应用程序向通讯主动方（OLE客户机）应用程序提供一个以上可供其调用的OLE自动化对象类型，OLE客户机通过引用这些对象实现对OLE服务器的调用，然后通过设置对象的属性和使用对象的方法操纵OLE服务器应用程序，完成两者之间的通讯。

Visual Basic是一个完全支持OLE自动化的应用程序开发工具。使用VB，既可以编制做为OLE服务器的应用程序，也可以编制作为OLE客户机的应用程序。MS Word 6.0是一个不完全支持OLE自动化的应用软件，它只能作为OLE服务器供其它应用程序调用。本文将以一个VB应用程序通过OLE自动化操纵MS Word 6.0的实例，具体描述在VB中操纵OLE服务器应用程序的方法。

在VB代码中调用OLE服务器的方法如下：控件类型 属性 属性值 Data Control DataBaseNameName C:\VB\BIBLIO.MDBData1 RecordSource Authors DBGrid ControlCommandButton Control DataSource Data1 Name cmdReport Caption 生成报表 CommandButton Control Name cmdExit Caption 退出

⑴声明一个对象变量。如：Dim MS—WORD As Object

⑵根据OLE服务器提供的对象类型，使用CreateObject函数创建一个对象，并由Set语句将该对象赋予对象变量。

CreateObject函数的语法如下：

CreateObject(class)

函数参数class的格式为：appname.objecttype

appname是提供对象的应用程序的名称，如：Word

objecttype是欲创建的对象的类，如：Basic

MS Word 6.0为OLE客户机应用程序提供了一个类型为“basic”的对象，VB可以使用该对象类型，实现对Word的调用。具体语句如下：

Set MS—WORD = CreateObject(″Word.Basic″)

⑶通过设置对象的属性和使用对象的方法，实现对OLE服务器的操纵。

对象类型“basic”采用Word宏语言WordBasic的大多数语句和函数作为它的方法。也就是说，一旦在VB中创建了一个“basic”对象，就可以通过该对象使用大多数WordBasic语句或函数，从而可以近乎完美地操纵Word或Word文档。例如，下列语句在VB代码中使用WordBasic的FileNewDefault语句创建一个Word新文档：

MS—WORD.FileNewDefault

⑷调用结束后，使用关键字Nothing，释放该变量占用的资源。如：Set MS—WORD = Nothing

[1] [2] 下一页