通过开发VB插件来扩展VB应用[1]
[入库：2005年8月18日] [更新：2007年3月25日]
<![CDATA[使用插件功能扩展vb
摘要：本文通过实例介绍如何开发一个vb的插件来扩展vb的应用。包括如何实现插件与vb开发环境的连接，控制vb开发环境，以及简要介绍插件对象的结构。
文章内容
一、插件介绍
从结构上来看，一个vb插件实际上是一个com组件，原则上组件可以使用支持com的开发工具，例如delphi、vc来编写。组件通过实现com中的idtextensibility对象来建立与vb的连接。组件注册以后，当vb运行中在add-in菜单中装载组件后，vb就会调用组件中idtextensibility对象中的相应方法（如在装载组件后会调用onconnection方法）。这时整个插件就成为vb的一部分从而可以访问vb开发环境中的各种对象和资源了。
利用vb本身来编写插件是一个很好的办法，首先通过vb可以快速建立一个idtextensibility对象框架（当然在vb中不叫这个名称）；其次vb对于整个开发环境都提供了相应的对象供插件访问和控制，而使用插件的主要目的就是通过插件来控制宿主程序；最后是调试十分的方便，可以直接运行看结果，不需要编译注册。
二、建立程序框架
首先我们来建立程序框架，以下的代码和说明都是使用win2k+vb6中文企业版完成的，在vb英文版以及win9x下运行通过只是程序中对于界面的说明根据不同的vb会有不同。
打开vb，点击菜单中的 文件 | 新建 项，在 新建工程 窗口中选择“外接程序” 项（在英文版中是addin），然后点击确定按钮建立插件工程。
建立完毕后在工程列表窗口中可以看到新工程的名称为myaddin。其中包含两个对象，在窗体类中包含frmaddin窗体，在设计器类中包含connect设计器对象。vb已经为插件设立了一个基本框架，下面按f5运行插件并将vb主窗口最小化。然后再打开一个vb程序，在其中建立一个标准 exe工程。点击菜单的 外接程序 | 外接程序管理器 项。在打开的外接程序管理器窗口的列表中可以看到其中有一个my add-in 项，点击该项，然后将下面 加载行为（英文版中是load behavior） 区域中的三个复选框都选中后点击确定按钮装载插件。然后再点击“外接程序” 菜单，再点击其中新添加的 my addin 项。可以看到插件弹出一个窗体，点击“确定”按钮可以获得vb运行的目录，点击“取消”按钮关闭窗体。
接下来再次打开外接程序管理器窗口。选中 my add-in项，将 加载行为 区域中的三个复选框中的对勾去掉。然后回到运行插件的vb程序，点击停止按钮停止插件的执行。
回到插件工程中，我们主要来看connect对象，打开connect对象的代码窗口。可以看到其中包含两个对象：addininstance和menuhandler。其中addinstance是工程中实现同vb接口的对象。在程序中对应addinstance包含两个方法：onconnection和ondisconnection。在这里我们称它们为方法而不是事件，是因为它们是由vb调用而不是由某个消息引发而由系统调用的。
onconnection方法在插件装载使被调用，其中的参数application是调用插件的vb实例对象。这个对象是一个vbe类对象。由vb传递给插件插件就可以通过application对象访问和控制调用自己的vb实例。其中比较重要的是这一段：
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事件代码。
三、完善程序
从上面的分析可以得知，程序框架实现了vb与插件间的接口和插件监控vb事件。接下来要实现插件对vb的控制
在vb调用插件对象的onconnection方法时，会将自身作为一个vbe对象传递给插件供访问及操作。vbe对象是vb实例的根对象，其下包含以下5类基本的对象集合：
vbprojects集合：通过该集合可以访问vb实例中所包含的工程。
windows集合：通过该集合可以访问所有的窗口，包括控件栏、属性栏以及工程中的窗体等。
codepanes集合：通过该集合可以访问所有的代码窗口。可以获得代码窗口中的代码以及改变其中的代码。
commandbars 集合：通过该集合可以访问vb实例中的所有命令栏，包括支持快速菜单的命令栏。
events 集合：通过该集合插件可以访问vb中的所有事件对象。
下面的程序我们要实现的是：当点击 my-addin菜单时，在当前工程中添加一个模块并在其中添加一个子程序，并让用户选择在工程中的窗体中选择一个窗体添加一个commandbutton控件，并向窗体的代码窗口写入代码使得点击commmandbutton控件就执行添加的子程序。
打开工程中的frmaddin窗体，在其中添加一个commandbutton控件和一个listbox控件。
在frmaddin的load事件中添加如下代码：
dim mcop as object
'获得当前启动工程中的所有对象
for each mcop in vbinstance.vbprojects.startproject.vbcomponents
'如果对象是窗体类型就将其添加到listbox中
if mcop.type = vbext_ct_vbform then
list1.additem mcop.name
end if
next
if list1.listcount < 1 then
msgbox "工程中没有添加控件的窗体"
connect.hide
else
list1.listindex = 0
end if
command1.caption = "add code"
在command1的click事件中添加如下代码：
dim xcomp as vbcomponent
dim xmodule as vbcomponent
dim xform as vbform
dim xcontrol as vbcontrol
dim xcode as codemodule
'获得用户选择的窗体对象
set xcomp = vbinstance.vbprojects.startproject.vbcomponents(list1.list(list1.listindex))
'获得窗体设计器对象
set xform = xcomp.designer
'添加一个commandbutton到窗体上
set xcontrol = xform.vbcontrols.add("vb.commandbutton")
'设定控件的名称
xcontrol.properties("name") = "cmdbutton"
'添加控件的click事件代码
xcomp.codemodule.createeventproc "click", "cmdbutton"
'添加一个新模块到工程中
set xmodule = vbinstance.vbprojects.startproject.vbcomponents.add(vbext_ct_stdmodule)
'设定模块名称
xmodule.properties("name") = "modultemp"
'获得对象的代码对象
set xcode = xmodule.codemodule
dim astr as string
'添加mclick子程序到新模块中
astr = "public sub mclick()" + chr(13) + chr(10) + _
chr(vbkeytab) + "msgbox ""you click a button!""" + chr(13) + chr(10) + _
"end sub"
xcode.addfromstring astr
dim lcount as long
'在cmdbutton的click事件中添加执行mclick子程序
lcount = xcomp.codemodule.procbodyline("cmdbutton_click", vbext_pk_proc)
if lcount <> 0 then
xcomp.codemodule.insertlines lcount + 1, "mclick"
end if
运行程序，再次打开另一个vb程序建立一个标准exe工程。并装载 my addin插件，点击菜单的 my addin项，然后在弹出窗口中选择工程中的一个窗体，然后点击 add code 按钮，可以看到工程中新添加了一个moduletemp模块，并且你选择的窗体中添加了一个commandbutton按钮。通过前面的介绍以及上面代码的注释，相信大家对于插件如何通过vbe对象控制vb可能有一个比较基本的了解了。
上面的程序只是基本的介绍了vb插件的实现。通过完善可以形成一个功能齐全的插件程序，例如你可以将所积累很多年的代码保存到一个文件中，然后通过一个插件让用户可以方便的选择添加他们所需要的部分到自己的程序中。
上面就是文章的全内容，如果大家在编程方面有什么问题，欢迎到我的站点www.applevb.com上同我一起探讨
]]><![CDATA[<a href="http:</p>
<div class="clear-both"></div>
</div>
<div class="pages"><a href=20050818001719289.htm target="_self" >首页</a>
<a href=20050818001719289_2.htm target="_self">下页</a>
<a href=20050818001719289_2.htm target="_self">尾页</a>
<a href=20050818001719289.htm target="_self"><strong>[1]</strong></a>
<a href=20050818001719289_2.htm target="_self">[2]</a>
</div>
<div class="keywords">
<strong>本文关键：</strong>通过开发VB插件来扩展VB应用
</div>
<div class="ad_doc_ad_2">
<script type="text/javascript"><!--
google_ad_client = "pub-1022332794981269";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
//2007-03-23: 方案站728x90
google_ad_channel = "2351411502";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "3D81EE";
google_color_text = "4C4C4C";
google_color_url = "6C82B5";
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</div>
<div class="clear-both"></div>
</div>
</div>
<div id="content_right">
<div class="cbox" id="relate_doc">
<div class="darkboxTitle"><span> 相关方案</span></div>
<div class="ad_site_index_right_1">
<!-- SiteSearch Google -->
<form method="get" action="http://www.google.cn/custom" target="google_window">
<table border="0" bgcolor="#ffffff">
<tr><td nowrap="nowrap" valign="top" align="left" height="32">
<a href="http://www.google.com/">
<img src="http://www.google.com/logos/Logo_25wht.gif" border="0" alt="Google" align="middle"></img></a>
<br/>
<input type="hidden" name="domains" value="www.cn-doc.com"></input>
<label for="sbi" style="display: none">输入您的搜索字词</label>
<input type="text" name="q" size="15" maxlength="255" value="" id="sbi"></input>
<label for="sbb" style="display: none">提交搜索表单</label>
<input type="submit" name="sa" value="搜索" id="sbb"></input>
</td></tr>
<tr>
<td nowrap="nowrap">
<table>
<tr>
<td>
<input type="radio" name="sitesearch" value="" id="ss0"></input>
<label for="ss0" title="搜索网络"><font size="-1" color="#000000">Web</font></label></td>
<td>
<input type="radio" name="sitesearch" value="www.cn-doc.com" checked id="ss1"></input>
<label for="ss1" title="搜索 www.cn-doc.com"><font size="-1" color="#000000">www.cn-doc.com</font></label></td>
</tr>
</table>
<input type="hidden" name="client" value="pub-1022332794981269"></input>
<input type="hidden" name="forid" value="1"></input>
<input type="hidden" name="channel" value="9722277709"></input>
<input type="hidden" name="ie" value="GB2312"></input>
<input type="hidden" name="oe" value="GB2312"></input>
<input type="hidden" name="flav" value="0000"></input>
<input type="hidden" name="sig" value="Dl1iwOxBnXTtaDIa"></input>
<input type="hidden" name="cof" value="GALT:#008000;GL:1;DIV:#336699;VLC:663399;AH:center;BGC:FFFFFF;LBGC:336699;ALC:0000FF;LC:0000FF;T:000000;GFNT:0000FF;GIMP:0000FF;LH:50;LW:200;L:http://www.cn-doc.com/images/forgoogle.gif;S:http://www.cn-doc.com;FORID:1"></input>
<input type="hidden" name="hl" value="zh-CN"></input>
</td></tr></table>
</form>
<!-- SiteSearch Google -->
</div>
<ul class="darklist">
<li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/20050818001719578.htm" title="利用集合进行数组的排序" target="_blank">利用集合进行数组的排序</a>…</li><li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/20050818001720413.htm" title="图象转换上" target="_blank">图象转换上</a>…</li><li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/20050818001720640.htm" title="建立一个程序员自己的全国性营销网络" target="_blank">建立一个程序员自己的全国性营销</a>…</li><li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/2005081800172014.htm" title="源代码推荐：vb的GUID生成算法" target="_blank">源代码推荐：vb的GUID生成</a>…</li><li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/20050818001720781.htm" title="Create Your Own Visual Basic Add-Ins" target="_blank">Create Your Own</a>…</li><li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/20050818001721484.htm" title="实现.net框架带有无限参数的WriteLine()函数" target="_blank">实现.net框架带有无限参数的</a>…</li><li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/20050818001721396.htm" title="利用ODBC访问WINCC的历史数据库" target="_blank">利用ODBC访问WINCC的历</a>…</li><li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/2005081800172136.htm" title="图象转换下" target="_blank">图象转换下</a>…</li><li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/20050818001721548.htm" title="如何制作平面式的listview列头" target="_blank">如何制作平面式的listvie</a>…</li><li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/20050818001721936.htm" title="功能强大的SendMessage函数" target="_blank">功能强大的SendMessag</a>…</li><li><a href="../../_soft_visual_basic_tech_doc/2005_08_18_00/2005081800171845.htm" title="在VB中调用Windows API的注意事项" target="_blank">在VB中调用Windows A</a>…</li>
</ul>
<div class="ad_site_index_right_2">
<script type="text/javascript"><!--
google_ad_client = "pub-1022332794981269";
google_ad_width = 180;
google_ad_height = 60;
google_ad_format = "180x60_as_rimg";
google_cpa_choice = "CAAQ0cX8zwEaCEpGRZ0Cl8yyKPu_93M";
google_ad_channel = "6903800490";
//-->
</script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</div>
</div>
</div>
<div class="clear-both"> </div>
<div id="ContentBottom" class="darkBox">
<p>本站最佳浏览方式为 分辨率 1024x768 IE 6.0（或更高版本的 IE浏览器）</p><a href="#"><img src="../../images/btn_top.gif" width="51" height="11" alt="go top"/></a>
</div>
</div>
</div>
<script type="text/javascript" language="javascript" src="../../comm/doc/w3c_99_bottom.js"></script>
<script type="text/javascript" language="javascript" src="../../comm/clicksum_doc.asp?typeid=44&infoid=366552"></script>
<script type="text/javascript" language="JavaScript" src="../../comm/statistics.js"></script>
</body>
</html>]]>