如何添加自己按钮在vb6编制器的菜单栏

Question

如何添加自己按钮在vb6编制器的菜单栏小弟思考了很久，思路是怎样的，大概框架怎样实现，具体代码怎样写，还请有关高手多多指教。如何添加自己按钮在vb6编制器的菜单栏就像（就像vb梦工厂的一键添加所有的api，vbAdvance，VbInLineASM，vbfriend2006）类似这样的东西。如何制作自己的按钮在vb6编制器的菜单栏，当点击时会弹出一个自己的窗体绑定在工具栏或，在结束vb6编制器时随着保存设置关闭。窗内有多选择选项按钮，设置，添加，修改，删除，等等，窗内的文本框代码（可以自定义）。1.窗内有常用代码（要可以设置修改或添加文本框内的代码）。2.点击后自动添加代码到光标处（代码来自读取指定文件夹文本，每个标题代表一个文本）。3.窗内有自动批量添加模块或类模块等等。4.可以遍历文件夹寻找提配文件和模块或类模块。5.如果有添加到模块或类模块，在窗体文本框显示函数名可以随时点击添加到光标处。6.如果有引用插件（dll），在窗体文本框显示函数名可以随时点击添加到光标处。7.一些实用程序等等。

Answer 1

  Dim mcbMenuCommandBar          As Office.CommandBarControl
  Public WithEvents EvAutMenu    As CommandBarEvents            '菜单事件对象Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
    Set mcbMenuCommandBar = AddToAddInCommandBar("My AddIn")
    Set MEvAutMenu = VBInstance.Events.CommandBarEvents(mcbMenuCommandBar)
End SubPrivate Sub MEvAutMenu_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
    '-----菜单事件----------
End Sub

Answer 2

  Dim mcbMenuCommandBar          As Office.CommandBarControl
  Public WithEvents EvAutMenu    As CommandBarEvents            '菜单事件对象Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
    Set mcbMenuCommandBar = AddToAddInCommandBar("My AddIn")
    Set MEvAutMenu = VBInstance.Events.CommandBarEvents(mcbMenuCommandBar)
End SubPrivate Sub MEvAutMenu_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
    '-----菜单事件----------
End Sub