在VB中操纵OLE服务器应用程序

Visual Basic是一个完全支持OLE自动化的应用程序开发工具。使用VB，您可以将应用程序编程为OLE服务器，也可以将应用程序编程为OLE客户端。MS Word 6.0是一个不完全支持OLE自动化的应用软件。它只能作为OLE服务器被其他应用程序调用。本文将以一个VB应用程序通过OLE automation操作MS Word 6.0的例子来说明在VB中操作OLE服务器应用程序的方法。

VB代码中调用OLE服务器的方法如下:控件类型属性属性值data control databasename c:\ VB \ blio . MDB data 1记录源作者dbgrid控件命令按钮控件数据源data1名称cmd报表标题生成报表命令按钮控件名称cmd退出标题退出

①声明一个对象变量。比如Dim MS—WORD作宾语

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

CreateObject函数的语法如下:

CreateObject(类)

参数类的格式为appname.objecttype

Appname是提供对象的应用程序的名称，如Word。

Type是要创建的对象的类，例如Basic。

MS Word 6.0为OLE客户端应用程序提供了一个“basic”类型的对象，VB可以用这个对象类型调用Word。具体声明如下:

设置MS—WORD = CreateObject(″Word。基本“)

⑵通过设置对象的属性和使用对象的方法来操作OLE服务器。

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

MS—WORD。文件新默认值

⑶调用结束后，使用关键字Nothing释放该变量占用的资源。例如，设置MS-WORD = Nothing

例子

这个例子将使用VB编写一个简单的数据库应用程序。程序从数据库中取出数据，然后通过OLE自动化将这些数据输入到Word中，按照Word的排版格式排列成表格。示例中使用的数据库是BILIO。VB中包含MDB数据库，数据检索结果取自作者数据表。这个例子稍加改动就可以作为数据库应用的报表生成功能模块。

首先，创建一个名为Form1的表单，并将其Caption属性设置为“OLE自动化演示”。然后向窗体中添加四个控件并设置相关属性，如下所示:

以上工作完成后，F5运行的屏幕布局应该如下图所示。

然后需要写VB代码实现与Word的连接。这个例子的代码列表如下(注意:代码中的斜体是WordBasic宏语言的语句。这些语句的用法请参考WordBasic宏语言的相关资料):

(1)在Form1的通用声明部分声明表单级全局变量和常量。

“dim MS-WORD As Object”声明了一个对象变量。

“Const MaxCols = 5”声明一个常量来指示当前数据记录集中的字段数。在这个例子中，字段的数量是5。