使用插件功能扩展VB

''添加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上同我一起探讨