使用VB6编写COM加载项

《使用VB6编写COM加载项》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、使用VB6编写COM加载项一个简单的COM加载项示例步骤1：启动VB6，在“新建工程”对话框中选择“外接程序”，单击“打开”按钮，如下图。VB6将自动创建一个名为MyAddIn的工程，包含一个名为frmAddIn的窗体和一个名为Connect的Designer类变量。步骤2：将工程名称修改为MyFirstCOMAddIn。步骤3：删除默认的窗体frmAddIn。步骤4：删除Connect中的全部代码。步骤5：在工程资源管理器窗口双击Connect打开加载项设计器窗口，并对其进行相应的设置，如下图所示。如上图所示，在“通用”选项卡中设置COM加载项在Ex

2、cel的COM加载项对话框中显示的名称及相应的描述。设置“应用程序”为MicrosoftExcel，根据用户计算机上安装的Excel选择相应的应用程序版本，这里选择“MicrosoftExcel14.0”，即Excel2010。选择初始化加载行为为“Startup”，即在Excel启动时运行该加载项，还可以选择其它的加载选项。说明：·外接程序显示名称：填写加载项的名字·外接程序描述：描述所创建的加载项的作用和功能·应用程序：使用所创建的加载项的应用程序。·应用程序版本：使用所创建的加载项的应用程序的版本。·初始化加载行为：当应用程序开启时，是否自动装载

3、该加载项，有四个选项。若设置为Startup，则Excel启动时装载该加载项；若设置为Loadondemand，则在Excel中需要使用该加载项时再装载该加载项。步骤6：在工程资源管理器窗口的Connect中单击右键，选择“查看代码”，打开代码窗口。步骤7：在代码窗口顶部左侧的对象列表框中选择AddinInstance对象，在右侧的事件列表框中选择OnConnection事件，输入的代码如下：PrivateSubAddinInstance_OnConnection(ByValApplicationAsObject,_ByValConnectModeAs

4、AddInDesignerObjects.ext_ConnectMode,_ByValAddInInstAsObject,custom()AsVariant)MsgBox"这是使用VB6创建的COM加载项."EndSub然后，再在事件列表框中选择OnDisconnection事件，输入的代码如下：PrivateSubAddinInstance_OnDisconnection(ByValRemoveModeAsAddInDesignerObjects.ext_DisconnectMode,_custom()AsVariant)MsgBox"Excel工作

5、簿将要关闭,里面的数据已经保存了吗？"EndSub步骤8：保存所有的工程文件。步骤9：单击菜单“文件——生成MyFirstCOMAddIn.dll”。至此，这个简单的COM加载项编写完成。步骤10：打开Excel2010，将会出现一个消息框，显示在COM加载项的OnConnection事件中设置的消息，如下图所示。关闭Excel2010时，将会出现一个消息框，显示在COM加载项的OnDisconnection事件中设置的消息，如下图所示。这个加载项之所以会在Excel2010会话开启时运行，是因为我们在设置加载项时选择了选项“Startup”，即在Ex

6、cel启动时加载该加载项。单击“开发工具”选项卡“加载项”组中的“COM加载项”，显示“COM加载项”对话框，列出了所有可用的COM加载项，如下图所示。在该对话框中，可以取消某加载项前的复选，使其不可用，或者通过“删除”按钮删除该加载项。一个菜单COM加载项示例步骤1：启动VB6，在“新建工程”中选择“外接程序”，打开新工程。步骤2：在工程资源管理器中将会有一个名为frmAddIn的窗体和一个名为Connect的设计器对象，如下图所示。移除工程资源管理器窗口中的frmAddIn窗体，设置Connect设计器对象。步骤3：双击设计器对象，出现一个设计器窗

7、体，对其进行设置，如下图所示。步骤4：添加对Excel的引用。选择菜单“工程——引用”，在“引用”对话框中选择“MicrosoftExcel14.0ObjectLibrary”前的复选框。步骤5：设置工程属性。选择菜单“工程——MyAddIn属性”，或在工程资源管理器中单击右键，选择“MyAddIn属性”命令，在“工程属性”对话框中设置工程名称和工程描述。步骤6：编写Connect设计器代码。在Connect设计器对象上右击并选择“查看代码”或者单击Connect设计器后再单击窗口顶部的“查看代码”按钮，出现VB自动生成的代码。删除其中的代码，只保留O

8、nConnection过程和OnDisconnection过程，用于在应用程序中装载和卸载加载