第八章 ActiveX部件编程.ppt

第8章 ActiveX部件编程 ActiveX部件是包含可执行代码的文件，由一个 或多个对象构成。 ActiveX部件提供的对象可以被 其它应用程序或部件使用。 8.1 概述 ActiveX的基础是COM(Component Object Model)。COM不是一种语言，而是一种能使软部件作为一种对象进行相互作用的二进制标准。 ActiveX是基于COM的可视化控件结构的商标名称，是一种封装技术。 在VB中，可以使用各种类型的ActiveX部件，如ActiveX控件和代码部件等。也可以在VB应用程序内部通过编程来操纵支持ActiveX技术的应用程序所提供的对象，如Excel电子表格、Word文档等。 可以创建自己的ActiveX部件。可以创建的类型包括：代码部件、 ActiveX控件、 ActiveX文档。 例、ActiveX功能举例。利用自动机制在VB中为Word 文档编写一些文本。 该例题要求机器内装了Word。 编程前先添加对“Microsoft Word 8.0 Object Library”部件的引用。（若安装的OfficeXP，则为Microsoft Word 10.0 Object Library；若按装的是Office2003 则为Microsoft Word 10.0 Object Library Microsoft Word 11.0 Object Library ） 在窗体上创建一个带滚动条的多行文本框txtinput、一个命令按钮cmdwrite。 程序如下： Option Explicit Dim mword As Word.Application Private Sub Form_Initialize() Set mword = New Word.Application End Sub Private Sub cmdwrite_Click() cmdwrite.Enabled = False Call mword.Documents.Add mword.Selection.Font.Size = 30 mword.Selection.Font.Name = Times New Roman“ Call mword.Selection.TypeText(txtinput.Text) Call mword.Documents(1).SaveAs(app.path+\word.doc) Call mword.Quit End Sub 8.2 ActiveX部件的使用 使用ActiveX部件的步骤： ① 创建对要使用的对象的引用， ② 将一个对象引用赋值给变量， ③ 编写代码来使用对象的方法、属性和事件， ④ 使用完后释放对象， ⑤ 创建错误处理程序。 部件对象引用如何赋值取决于两个因素： 1、部件是否提供类型库。如刚才例题中引用的“Microsoft Word 11.0 Object Library”。类型库含有ActiveX部件提供的全部对象的定义以及全部可用的方法、属性和事件的定义。 2、对象是顶层对象、外部可创建对象还是从属对象。如果是外部可创建对象，则可以在Set语句中用New关键字、CreateObject或GetObject函数从部件外面将对象引用赋予变量。如果是从属对象，则需要使用高层对象的方法在Set语句中指定一个对象引用。 8.2.1 添加对部件的引用 如果ActiveX部件提供有类型库，则必须添加对部件的引用。 8.2.2 声明对象变量 使用ActiveX部件对象之前，首先要声明一个对象变量。声明方法取决于ActiveX部件是否提供类型库。 如果提供类型库，则： Dim variable as [new] class 参数class的格式是appname.objecttype，例如： Dim xlBook As Excel.Workbook Dim xlBook As Excel.Worksheet 如果ActiveX部件不提供类型库或对象未在类型库中定义，则使用一般的Object类的对象变量。例如： Dim objAny As Object objAny可以被ActiveX部件提供的任何对象所使用。 8.2.3 将对象引用赋予变量 声明对象引用之后，接着要给变量赋值对象引用。赋值方法有三种： 1、用New关键字声明对象变量。第一次使用对象变量时，自动创建一个新对象。 2、用Cre