使用VB6编写COM加载项

1、使用 VB6 编写 COM 加载项下面记录下使用 VB6 为 Excel 创建 COM 加载项的步骤，以供日后有用时参考。步骤 1：打开 VB6 。在 新建工程 对话框中选择 外接程序 ，单击 打开 按钮，如下图所示。500)this.resized=true;this.style.width=500;此时，创建一个名为MyAddIn的工程，包含一个名为frmAddIn的窗体和一个名为Connect的Designer类变量。步骤2：将工程名称改为MyFirstCOMAddIn。步骤3：删除默认的窗体frmAddIn。步骤 4：删除 Connect 中的全部代码。步骤 5：在工程资源管理器窗口双

2、击Connect 打开加载宏设计器窗口，并对其进行相应的设置，如下图所示。500)this.resized=true;this.style.width=500;上图中，在 通用 选项卡中设置了 COM 加载项在 Excel 的 COM 加载项对话框中显示的名称及相应的描述，并设置应用程序为 Microsoft Excel ，选择初始化加载行为为 Startup ，表示在 Excel 每次启动时都运行该加载项， 当然还有其他三个选项分别设置何时启用加载项。该对话框还有一个名为 高级 的选项卡，此时我们暂且不用。步骤 6：在工程资源管理器窗口右击Connect ，选择 查看代码 ，打开代码窗口。步

3、骤 7：在代码窗口顶部左侧的对象列表框中选择 AddinInstance 对象，在右侧的事件列表框中选择 OnConnection 事件，并输入下面的代码： Private Sub AddinInstance_OnConnection(ByVal Application As Object, _ByValConnectMode AsAddInDesignerObjects.ext_ConnectMode, _ByValAddInInst As Object, _custom() AsVariant)MsgBox 这是使用 VB6 创建的 COM 加载项 End Sub然后，再在事件列表框中选择

4、OnDisconnection事件，并输入下面的代码：Private Sub AddinInstance_OnDisconnection(ByValRemoveMode AsAddInDesignerObjects.ext_DisconnectMode, _custom()As Variant)MsgBox 将要关闭 Excel 工作簿 ,您保存里面的数据了吗.End Sub步骤 8：保存所有的工程文件。步骤 9：单击菜单 文件生成MyFirstCOMAddIn.dll，如下图所示。500)this.resized=true;this.style.width=500;至此，这个COM 加载项制

5、作完成。步骤 10 ：打开 Excel 2003 ，将会出现一个消息框，这是在 COM 加载项的 OnConnection 事件中设置的， 如下图所示。500)this.resized=true;this.style.width=500;关闭 Excel 2003时，将会出现一个消息框，这是在 COM 加载项的 OnDisconnection事件中设置的，如下图所示。500)this.resized=true;this.style.width=500;这的加载项之所以在Excel 2003会话开启时运行， 是因为我们在设计加载项时选择了选项Startup ，即在 Excel 启动时加载该加载项。下面，在Excel 2003中设置能够启动或关闭COM 加载项。步骤 11 ：在 Excel 2003中单击菜单 工具自定义 ，在 自定义 对话框中的选择 命令 选项卡，在左侧的类别列表框中选择 工具 ，在右侧的命令列表框中找到COM加载项 条目（如下图所示） ，并将其拖至 Excel 菜单栏中 工具 菜单下。单击 关闭 按钮关闭自定义对话框。500)this.resized=true;this.style.width=500;步骤 12 ：单击菜单 工具 COM 加载项 ，弹出 COM 加载项 对话框，其中列出了所有可用的 COM 加载项，如下图所示。500)this.res