第八章 ActiveX部件编程

《第八章 ActiveX部件编程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第8章ActiveX部件编程ActiveX部件是包含可执行代码的文件，由一个或多个对象构成。ActiveX部件提供的对象可以被其它应用程序或部件使用。8.1概述ActiveX的基础是COM(ComponentObjectModel)。COM不是一种语言，而是一种能使软部件作为一种对象进行相互作用的二进制标准。ActiveX是基于COM的可视化控件结构的商标名称，是一种封装技术。在VB中，可以使用各种类型的ActiveX部件，如ActiveX控件和代码部件等。也可以在VB应用程序内部通过编程来操纵支持ActiveX技术的应用程

2、序所提供的对象，如Excel电子表格、Word文档等。可以创建自己的ActiveX部件。可以创建的类型包括：代码部件、ActiveX控件、ActiveX文档。例、ActiveX功能举例。利用自动机制在VB中为Word文档编写一些文本。该例题要求机器内装了Word。编程前先添加对“MicrosoftWord8.0ObjectLibrary”部件的引用。（若安装的OfficeXP，则为MicrosoftWord10.0ObjectLibrary；若按装的是Office2003则为MicrosoftWord10.0ObjectLi

3、braryMicrosoftWord11.0ObjectLibrary）在窗体上创建一个带滚动条的多行文本框txtinput、一个命令按钮cmdwrite。程序如下：OptionExplicitDimmwordAsWord.ApplicationPrivateSubForm_Initialize()Setmword=NewWord.ApplicationEndSubPrivateSubcmdwrite_Click()cmdwrite.Enabled=FalseCallmword.Documents.Addmword.Sele

4、ction.Font.Size=30mword.Selection.Font.Name="TimesNewRoman“Callmword.Selection.TypeText(txtinput.Text)Callmword.Documents(1).SaveAs(app.path+"word.doc")Callmword.QuitEndSub8.2ActiveX部件的使用使用ActiveX部件的步骤：①创建对要使用的对象的引用，②将一个对象引用赋值给变量，③编写代码来使用对象的方法、属性和事件，④使用完后释放对象，⑤创建错

5、误处理程序。部件对象引用如何赋值取决于两个因素：1、部件是否提供类型库。如刚才例题中引用的“MicrosoftWord11.0ObjectLibrary”。类型库含有ActiveX部件提供的全部对象的定义以及全部可用的方法、属性和事件的定义。2、对象是顶层对象、外部可创建对象还是从属对象。如果是外部可创建对象，则可以在Set语句中用New关键字、CreateObject或GetObject函数从部件外面将对象引用赋予变量。如果是从属对象，则需要使用高层对象的方法在Set语句中指定一个对象引用。8.2.1添加对部件的引用如果A

6、ctiveX部件提供有类型库，则必须添加对部件的引用。8.2.2声明对象变量使用ActiveX部件对象之前，首先要声明一个对象变量。声明方法取决于ActiveX部件是否提供类型库。如果提供类型库，则：Dimvariableas[new]class参数class的格式是appname.objecttype，例如：DimxlBookAsExcel.WorkbookDimxlBookAsExcel.Worksheet如果ActiveX部件不提供类型库或对象未在类型库中定义，则使用一般的Object类的对象变量。例如：DimobjA

7、nyAsObjectobjAny可以被ActiveX部件提供的任何对象所使用。8.2.3将对象引用赋予变量声明对象引用之后，接着要给变量赋值对象引用。赋值方法有三种：1、用New关键字声明对象变量。第一次使用对象变量时，自动创建一个新对象。2、用CreateObject函数在Set语句中赋值对一个新对象的引用。书P2483、用GetObject函数Set语句中赋值对新的或已有对象的引用。书P2498.2.4使用对象的属性、方法和事件1、使用对象的属性和方法书P2502、响应对象的事件书P250可以响应ActiveX部件对象所

8、引发的事件。但由部件提供的对象的事件在VB应用程序中不是自动可用的，必须在声明一个对象变量时使用WithEvents关键字。8.2.5释放对象使用完对象后，要清除所有引用该对象的变量，以从内存中释放对象。SetObjectname=nothing8.2.6部件对象的层次结构ActiveX部