关于对VBE的功能增强

wrove

近期了解到Application.VBE中有Events属性，并且它下辖两种事件：一个是CommandBarEvents，可用于对CommandBarControl的点击事件进行定制；另一个是ReferencesEvents。由此，我想到：
1.可以通过拦截菜单项或工具栏命令按钮原有的事件处理程序，并另设事件处理逻辑，以实现对原有工具栏命令按钮或菜单项的功能的改变或增强；
2.可以通过向CommandBar.Controls中添加新的工具栏命令按钮或者菜单项，来实现新增的功能；
当然，因为还有对工程引用的事件句柄，所以我们也可以对工程中引用的增删作一个控制，以防止工程中部分代码的失效。

其它，有用且可行的功能设想，不一定用到上面的事件对象类型：
1.对菜单项和工具栏按钮布局（包括位置及父容器）的备份与还原，以方便开发者更好的控制开发界面；
2.插入代码块的功能，通过一个CommandBarComoboBox按钮，来实现
3.代码美化功能，比如注释，比如缩进
4.代码块排序功能
5.代码块补全功能，比如If/For/While语句等
6.编码风格检查与修正
7.代码行分割，分为声明、属性、方法部分
8.选中内容扩展，将选中的编码（可能是不合法的编码信息）扩展为特定的语法的合法代码
9.VBE环境之快捷键管理
10.代码结构化注释的创建【与结构化读写，当然这后面的部分是一种基于编码的工作，而不是基于鼠标键盘的交互的功能】
11........

wrove

SuperVBE.cls

1. Option Explicit
   
2. '本模块用于增强VBE的功能，主要表现在对菜单命令和工具栏命令的单击事件的拦截与增强，另外对引用的添加与移除事件作监听
   
3. '主要应用举例：
   
4. '比如不满意代码的加注释与取消注释功能，则可以通过拦截原事件的处理，并建立新的执行逻辑，比如所加的注释紧贴代码，而不是在行首
   
5. '比如想新增一个按名称排列代码块的功能，就可以通过新增按钮及事件处理程序的方式来实现新功能
   
6. 
   
7. '本模块异常列表【从-2147220850起，预留100个，最大到-2147220751】
   
8. '-2147220850, "SuperVBE.AddCommandBarButton", "新创建的CommandBarButton的Name参数必须是一个合法的标识符"
   
9. 
   
10. Public WithEvents CommandBarEvent As VBIDE.CommandBarEvents
    
11. 
    
12. Public WithEvents References As VBIDE.ReferencesEvents
    
13. 
    
14. Private Sub CommandBarEvent_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)
    
15.     If CommandBarControl.BuiltIn = False Then
    
16.         Select Case TypeName(CommandBarControl)
    
17.             Case "CommandBarButton"
    
18.                 Dim cbbtn As CommandBarButton
    
19.                 Set cbbtn = CommandBarControl
    
20.                 Application.Run cbbtn.OnAction
    
21.             Case "CommandBarComboBox"
    
22.                 Dim cbcbb As CommandBarComboBox
    
23.                 Set cbcbb = CommandBarControl
    
24.                 Application.Run cbcbb.OnAction
    
25.             Case "CommandBarPopup"
    
26.                 Dim cbp As CommandBarPopup
    
27.                 Set cbp = CommandBarControl
    
28.                 Application.Run cbp.OnAction
    
29.             Case Else
    
30.                 '无法识别的类型
    
31.         End Select
    
32.     End If
    
33. End Sub
    
34. 
    
35. Private Sub References_ItemAdded(ByVal Reference As VBIDE.Reference)
    
36.     '监听并增强本VBA工程引用的添加
    
37.    
    
38. End Sub
    
39. 
    
40. Private Sub References_ItemRemoved(ByVal Reference As VBIDE.Reference)
    
41.     '监听并增强本VBA工程中对引用的移除
    
42.    
    
43. End Sub

复制代码

下面是一个试验代码：

1. 
   
2. Public xVBE As New SuperVBE
   
3. Public Sub AAAA()
   
4.     On Error Resume Next
   
5.     Application.VBE.CommandBars("标准").Controls("试验").DELETE
   
6.     Dim cbb As CommandBarButton
   
7.     Set cbb = Application.VBE.CommandBars("标准").Controls.Add(msoControlButton)
   
8.     cbb.Caption = "试验"
   
9.     cbb.style = msoButtonCaption
   
10.     cbb.OnAction = "AAAAA"
    
11.     Set xVBE.CommandBarEvent = Application.VBE.Events.CommandBarEvents(Application.VBE.CommandBars("标准").Controls("试验"))
    
12. End Sub
    
13. 
    
14. Public Sub AAAAA()
    
15.     MsgBox "I'm Clicked!"
    
16. End Sub
    

复制代码

执行一下AAAA过程，就可看到效果

wrove

实现要求：
1.添加一个对VBIDE库的引用，即添加对“Microsoft Visual Basic for Applications Extensibility 5.3”的引用；
2.在“宏设置”里面，勾选“信任对VBA工程对象模型的访问”
3.因为事件对象只有一个，可以使用动态编程，也即动态添加Public WithEvents ...语句，以及初始化语句，来实现对所有新增按钮的定制的便利
4.当然你也可以通过一个集合来管理所有的SuperVBE实例，这样一个实例，监听一个新增项的点击事件，相对难度较小，不用动态重构SuperVBE类的代码逻辑

liucqa

继续呀，还有没

wrove

一个人搞实在没有意思

liucqa

需要啦啦队给你加油吗，哈哈

文刀天可

学习了，楼主加油哦

kenjfzhong

啦啦隊來了!
你這個增強非常有意義的，加油。
我希望能加上VI mode

su0nils000

快捷键的管理很不错,考虑添加一个调用本地窗口的快捷键就会很好!

纳铭

用上了 非常感谢楼主