VB6.0开发vbe插件右键菜单激活事件问题

apoul119

代码可以运行了，在这里感谢joforn，wxhnr，百度徒弟-E小白，以及论坛里各位大神的帖子，谢谢各位。
Dim ExVBE As VBE
Dim mcbMenuCommandBar As Office.CommandBarControl
Public WithEvents MenuHandler As CommandBarEvents

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
    Set ExVBE = Application
    On Error Resume Next
    ExVBE.CommandBars("code window").Controls("代码").Delete
    Err.Clear
    Set mcbMenuCommandBar = ExVBE.CommandBars("code window").Controls.Add(1, , , 1)
    With mcbMenuCommandBar
        .Caption = "代码"
        Set MenuHandler = ExVBE.Events.CommandBarEvents(mcbMenuCommandBar)
    End With
End Sub
Private Sub MenuHandler_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
    MsgBox "hello"
End Sub

joforn

你直接用VB生成个"Visual Basic"外接程序模版，再对比看看你自己的工程和模版有什么不一样。看不到你的工程不知道你错在哪。

ch_liu2000

也很想学习

cunfu2010

apoul119 发表于 2017-1-23 10:42
代码可以运行了，在这里感谢joforn，wxhnr，百度徒弟-E小白，以及论坛里各位大神的帖子，谢谢各位。
Dim E ...

你好，你的代码实现了吗？我也卡在不显示不激活的问题上了，刚才浏览到了你的这个帖子，看标题你已经解决了，如何解决的？请指点一下。谢谢！
另外，我用你的帖子中的代码也不行，不知道是什么原因。
我用的是excel2007