vbe菜单加入事件，如何点击菜单按钮，激活事件？

apoul119

参照前一个贴子的代码，可以运行， VB6.0开发vbe插件右键菜单激活事件问题 http://club.excelhome.net/thread-1325146-1-1.html





如何点击菜单按钮，激活事件？
程序版本：vb6.0,excel2007
盼复，感谢各位老师！


connect代码如下：
Dim ExVBE
Dim Only As New Collection
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
    Set ExVBE = Application
    Set MenuEvent = New Bar
    Set MyControl = ExVBE.CommandBars("code window").Controls.Add(1, , , 1)
    With MyControl
        .Caption = "代码"
        Set MenuEven.Myevent = ExVBE.Events.CommandBarEvents(MyControl)
        Only.Add MenuEvent
    End With
End Sub

建立了类，命名为bar，代码如下：
Public WithEvents Myevent As VBIDE.CommandBarEvents
Private Sub Myevent_Click(ByVal commandBarsControl As Object, Handled As Boolean, CancelDefault As Boolean)
    Select Case Control.Caption
    Case "代码"
        MsgBox "1999"
    End Select
End Sub

apoul119

参照前一个贴子的代码，可以运行， VB6.0开发vbe插件右键菜单激活事件问题 http://club.excelhome.net/thread-1325146-1-1.html