If ConnectMode = ext_cm_External Then Me.Show Else Set
mcbMenuCommandBar = AddToAddInCommandBar("AddInSample") Set
Me.MenuHandler = VBInstance. Events. CommandBarEvents
(mcbMenuCommandBar) End
If 在上面的程序段中，首先通过ConnectMode来判断插件被装载的方式，如果是不是通过外部程序启动的话，首先调用AddToAddInCommandBar方法添加一个菜单项到
外接程序
菜单栏。
添加了菜单项后，插件程序还必须能够响应对菜单的点击做响应，VB支持插件对自身的很多事件监控，包括点击菜单、工具栏按钮、打开工程、添加/删除工程中的文件等等。对应每一种事件，VB实例都包含有一个相应的事件对象。对象可以通过VB实例对象的Events属性获得或者设置。在插件程序中可以事先定义一个事件对象并编写好对象的事件响应代码，然后将该对象赋予VB实例对象中的相应事件对象。在上面的程序中，需要插件监控对添加的菜单项的点击事件，那么首先在程序中首先定义了一个With
Events的对象MenuHandler。并在程序中编写对象的Click事件代码，然后在OnConnection方法中用 Set
Me.MenuHandler =
VBInstance.Events.CommandBarEvents(mcbMenuCommandBar) 将MenuHandler设定为建立的菜单对象的事件对象，那么当在VB中点击
My Add-In项后，VB就会调用MenuHandle的Click事件代码。
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
