使用VB6编写COM加载项.docx

使用VB6编写COM加载项.docx

《使用VB6编写COM加载项.docx》由会员分享，可在线阅读，更多相关《使用VB6编写COM加载项.docx（15页珍藏版）》请在冰豆网上搜索。

使用VB6编写COM加载项

使用VB6编写COM加载项

一个简单的COM加载项示例

步骤1：

启动VB6，在“新建工程”对话框中选择“外接程序”，单击“打开”按钮，如下图。

VB6将自动创建一个名为MyAddIn的工程，包含一个名为frmAddIn的窗体和一个名为Connect的Designer类变量。

步骤2：

将工程名称修改为MyFirstCOMAddIn。

步骤3：

删除默认的窗体frmAddIn。

步骤4：

删除Connect中的全部代码。

步骤5：

在工程资源管理器窗口双击Connect打开加载项设计器窗口，并对其进行相应的设置，如下图所示。

如上图所示，在“通用”选项卡中设置COM加载项在Excel的COM加载项对话框中显示的名称及相应的描述。

设置“应用程序”为MicrosoftExcel，根据用户计算机上安装的Excel选择相应的应用程序版本，这里选择“MicrosoftExcel14.0”，即Excel2010。

选择初始化加载行为为“Startup”，即在Excel启动时运行该加载项，还可以选择其它的加载选项。

说明：

外接程序显示名称：

填写加载项的名字

外接程序描述：

描述所创建的加载项的作用和功能

应用程序：

使用所创建的加载项的应用程序。

应用程序版本：

使用所创建的加载项的应用程序的版本。

初始化加载行为：

当应用程序开启时，是否自动装载该加载项，有四个选项。

若设置为Startup，则Excel启动时装载该加载项；若设置为Loadondemand，则在Excel中需要使用该加载项时再装载该加载项。

步骤6：

在工程资源管理器窗口的Connect中单击右键，选择“查看代码”，打开代码窗口。

步骤7：

在代码窗口顶部左侧的对象列表框中选择AddinInstance对象，在右侧的事件列表框中选择OnConnection事件，输入的代码如下：

PrivateSubAddinInstance_OnConnection（ByValApplicationAsObject,_

ByValConnectModeAsAddInDesignerObjects.ext_ConnectMode,_

ByValAddInInstAsObject,custom（）AsVariant）

MsgBox"这是使用VB6创建的COM加载项."

EndSub

然后，再在事件列表框中选择OnDisconnection事件，输入的代码如下：

PrivateSubAddinInstance_OnDisconnection（ByValRemoveModeAsAddInDesignerObjects.ext_DisconnectMode,_

custom（）AsVariant）

MsgBox"Excel工作簿将要关闭,里面的数据已经保存了吗？

"

EndSub

步骤8：

保存所有的工程文件。

步骤9：

单击菜单“文件——生成MyFirstCOMAddIn.dll”。

至此，这个简单的COM加载项编写完成。

步骤10：

打开Excel2010，将会出现一个消息框，显示在COM加载项的OnConnection事件中设置的消息，如下图所示。

关闭Excel2010时，将会出现一个消息框，显示在COM加载项的OnDisconnection事件中设置的消息，如下图所示。

这个加载项之所以会在Excel2010会话开启时运行，是因为我们在设置加载项时选择了选项“Startup”，即在Excel启动时加载该加载项。

单击“开发工具”选项卡“加载项”组中的“COM加载项”，显示“COM加载项”对话框，列出了所有可用的COM加载项，如下图所示。

在该对话框中，可以取消某加载项前的复选，使其不可用，或者通过“删除”按钮删除该加载项。

一个菜单COM加载项示例

步骤1：

启动VB6，在“新建工程”中选择“外接程序”，打开新工程。

步骤2：

在工程资源管理器中将会有一个名为frmAddIn的窗体和一个名为Connect的设计器对象，如下图所示。

移除工程资源管理器窗口中的frmAddIn窗体，设置Connect设计器对象。

步骤3：

双击设计器对象，出现一个设计器窗体，对其进行设置，如下图所示。

步骤4：

添加对Excel的引用。

选择菜单“工程——引用”，在“引用”对话框中选择“MicrosoftExcel14.0ObjectLibrary”前的复选框。

步骤5：

设置工程属性。

选择菜单“工程——MyAddIn属性”，或在工程资源管理器中单击右键，选择“MyAddIn属性”命令，在“工程属性”对话框中设置工程名称和工程描述。

步骤6：

编写Connect设计器代码。

在Connect设计器对象上右击并选择“查看代码”或者单击Connect设计器后再单击窗口顶部的“查看代码”按钮，出现VB自动生成的代码。

删除其中的代码，只保留OnConnection过程和OnDisconnection过程，用于在应用程序中装载和卸载加载项，并在其中添加自已需要实现的功能的代码。

在本示例中，Connect设计器中的代码如下：

'------------------------------------------------------

'thismethodaddstheAdd-IntoVB

'------------------------------------------------------

PrivateSubAddinInstance_OnConnection（ByValApplicationAsObject,_

ByValConnectModeAsAddInDesignerObjects.ext_ConnectMode,_

ByValAddInInstAsObject,custom（）AsVariant）

'设置应用程序变量

SetxlApp=Application

'设置自定义菜单子程序

CreateToolBarButtons

EndSub

'------------------------------------------------------

'thismethodremovestheAdd-InfromVB

'------------------------------------------------------

PrivateSubAddinInstance_OnDisconnection（ByValRemoveModeAsAddInDesignerObjects.ext_DisconnectMode,_

custom（）AsVariant）

'释放占用的内存

SetxlApp=Nothing

'移除自定义的菜单子程序

RemoveToolBarButtons

EndSub

步骤7：

选择菜单“工程——添加模块”命令，添加一个标准的模块并添加相应的代码。

'声明变量、类实例和集合

PublicxlAppAsExcel.Application

DimButtonEventAscbEvents

DimButtonEventsAsCollection

'定义自已菜单的子程序

PublicSubCreateToolBarButtons（）

'为了确保只添加按钮一次，先移除它们

RemoveToolBarButtons

'声明变量

DimcbBarAsOffice.CommandBar

DimbtNewAsOffice.CommandBarButton

'创建一个新的集合

SetButtonEvents=NewCollection

'查找工作表菜单栏（带有文件、编辑、视图等命令）

SetcbBar=xlApp.CommandBars（"WorksheetMenuBar"）

'添加一个新按钮到工具栏菜单

SetbtNew=cbBar.FindControl（Id:

=30007）.Controls.Add（msoControlButton,,,,True）

WithbtNew

.OnAction="Sub1"

'设置一个唯一的标签，使自定义的控件在后面容易找到或删除

.Tag="COMAddinTest"

'设置提示文本

.ToolTipText="CallsSub1"

'设置显示在菜单中的标题

.Caption="Sub1"

EndWith

'获取cbevents类中的一个新实例

SetButtonEvent=NewcbEvents

'将之指定给所创建的按钮

SetButtonEvent.cbBtn=btNew

ButtonEvents.AddButtonEvent

'添加另一个按钮

SetbtNew=cbBar.FindControl（Id:

=30007）.Controls.Add（msoControlButton,,,,True）

WithbtNew

.OnAction="Sub2"

'设置一个唯一的标签，使自定义的控件在后面容易找到或删除

.Tag="COMAddinTest"

'设置提示文本

.ToolTipText="CallsSub2"

'设置显示在菜单中的标题

.Caption="Sub2"

EndWith

'获取cbevents类中的一个新实例

SetButtonEvent=NewcbEvents

'将之指定给所创建的按钮

SetButtonEvent.cbBtn=btNew

ButtonEvents.AddButtonEvent

EndSub

'删除自定义菜单的子程序

PublicSubRemoveToolBarButtons（）

DimcbBarAsCommandBar

DimcbCtrAsCommandBarControl

'忽略错误

OnErrorResumeNext

'需要从命令中移除按钮，首先找到该按钮

SetcbBar=xlApp.CommandBars（"WorksheetMenuBar"）

'使用所设置的标签查找控件

SetcbCtr=cbBar.FindControl（,,"COMAddinTest"）

WhileNotcbCtrIsNothing

'删除

cbCtr.Delete

SetcbCtr=cbBar.FindControl（,,"COMAddinTest"）

Wend

'恢复占用的内存

SetButtonEvents=Nothing

SetButtonEvent=Nothing

EndSub

'示例子过程

SubSub1（）

MsgBox"Hello!

"

EndSub

'示例子过程

SubSub2（）

MsgBox"Hi!

"

EndSub

步骤8：

创建类模块处理菜单栏事件。

选择菜单“工程——添加类模块”，将其命名为cbEvents，添加代码：

PublicWithEventscbBtnAsCommandBarButton

PrivateSubcbBtn_Click（ByValCtrlAsOffice.CommandBarButton,CancelDefaultAsBoolean）

'忽略产生的任何错误

OnErrorResumeNext

'检查OnAction属性并执行相应的程序

SelectCaseCtrl.OnAction

Case"Sub1"

Sub1

Case"Sub2"

Sub2

EndSelect

'查找指定给OnAction属性的程序删除Excel

CancelDefault=True

EndSub

步骤9：

生成dll文件。

选择“文件——生成MyAddIn.dll”。

步骤10：

安装ExcelCOM加载项。

（1）注册Dll

Dll文件需要注册到Windows中以便能够运行。

如果是在VB6中生成的Dll文件，将在所创建该加载项的计算机中自动注册。

也可以手工注册。

点击屏幕左下角的“开始”按钮，选择“所有程序——附件——运行”，在出现的“运行”对话框中输入“regsvr32.exe

”。

若要移除或删除dll，先要注销它，即在“运行”对话框中使用regsvr32.exe命令并附加/u参数实现。

（2）在Excel中安装加载项

在VB6中创建该加载项时，在设计器中设置初始化加载行为时选择“Startup”，则在装载Excel时，会自动装载加载项并运行。

如果没有选择“Startup”，则需要手动装载。

单击“开发工具”选项卡“加载项”组中的“COM加载项”，在“COM加载项”对话框中，选取或取消选取所需加载项前的复选框来装载和卸载加载项。

加载上述加载项后，Excel的“加载项”选项卡如下图所示。

Excel2007中的COM加载项

下面的内容介绍了Excel2007中COM加载项的一些改变。

（1）介绍

Excel很好地做了一些涉及到向后兼容的工作。

在Excel2000、ExcelXP（2002）或Excel2003中创建的COM加载项（CAI）不需要修改就应该能在Excel2007中正常运行。

然而，在开发应用于不同的Excel版本中的CAIs时，应该记住一些事项。

（2）菜单和命令栏

Excel2007修改了传统的界面，使用功能区（Ribbon）界面替换了菜单和命令栏控制结构。

根据选择可以采用不同的面板组（面板是一组具有相关功能的按钮，在下图1中，选择“开始”，将显示7个面板组：

剪贴板、字体、对齐方式、数字、样式、单元格、编辑，在开发阶段，面板（panels）称作chunks，不知道这些对象现在是否有正式的名称）。

如果选择“开始”，将看到一组面板；如果单击“插入”，则会出现另一组面板。

这对CAI开发意味着什么呢？

意味着创建命令栏、命令栏控件或菜单项的CAI中的任何代码都不再按预料的工作。

仅仅可以通过Excel2007文件格式（xlsx或xlsm）里的Excel文件来定制功能区，在Excel2007文件格式中包含必需的XML代码用于修改功能区。

（一个Excel2007的xlsx或xlsm文件事实上是包含大约20个文本XML数据文件的Zip文件，其中一个文件用于修改功能区。

）Excel2003文件格式（xls）、XLA加载宏、COM加载项都不能修改功能区。

所有的定制，无论是在Excel2003中已有的命令栏中的新菜单项、控件，还是新的命令栏，都将显示在功能区“加载项”中的菜单命令或自定义工具栏命令面板组中。

这将混淆各加载项的命令元素。

下图为功能区“加载项”视图：

在Excel2003和以前的版本中，可能会放置一些菜单项在“工具”菜单中、其它的在“视图”菜单中、以及“数据”菜单中，可能放置菜单项和命令栏按钮在合乎逻辑的位置。

在Excel2007中，所有的定制都被放置在加载项视图中的“菜单命令”和“工具栏命令”面板组中。

（3）加载项

关于COM加载项的联接信息，为Excel指出了可用的CAI，它们存放在系统注册表的两个位置中的其中一个：

HKEY_CURRENT_USER\Software\Microsoft\Office\Excel\AddIns（HKCU）或

HKEY_LOCAL_MACHINE\Software\Microsoft\Office\Excel\AddIns（HKLM）。

在Excel2003和早期版本中，仅仅配置在HKCU中的CAIs显示在COM加载项对话框中，这避免某用户禁用在本机上为所有用户使用的CAI。

在Excel2003和早期版本中，用户仅能装载或卸载配置在HKCU中的CAIs，不能够装载或卸载配置在HKLM中的CAI。

在Excel2007中，所有的加载项都配置在

HKEY_CURRENT_USER\Software\Microsoft\Office\Excel\AddIns

或

HKEY_LOCAL_MACHINE\Software\Microsoft\Office\Excel\AddIns

在COM加载项对话框中是可见的，这意味着单个的用户可以禁用或卸载本机上所有用户使用的CAIs。