如何捕捉单击某一菜单事件？

koutx

自定义菜单中有一菜单名为‘压缩’并定义其动作为：
CommandBars("Tools").Controls("数据库实用工具(&D)").Controls("压缩和修复数据库(&C)...").accDoDefaultAction
当点此菜单时发生的事件是什么？
比如我如何才能得到如下结果：
If 点了‘压缩’菜单时的事件 THEN
       msgbox "将压缩数据库"
End if

[ 本帖最后由 koutx 于 2009-1-23 17:03 编辑 ]

todaynew

没必要吧，直接是按钮事件不就可以了吗？

koutx

哪到底怎么写该事件呢?

todaynew

自定义菜单我不太懂，不过我总是将这个代码直接放在主窗体的关闭事件中。因为通常是在关闭时有对这个功能的需求。

koutx

看来问题不难可挺麻烦的。

koutx

如能得到单击菜单中某一Control的事件,也可以解决这个问题。
如当单击CommandBars("myMenu").Controls(3).Controls(1)时。

Henry D. Sy

把msgbox "将压缩数据库"写在压缩代码的前面不就行了。

koutx

不行啊，点击该菜单是压缩数据库，而我是想在一个常驻窗体的UnLoad事件中引用此菜单的点击事件，即：如果是因点击此菜单压缩而导致的该窗体关闭时则发生Msgbox通知。
听说通过菜单项的事件ID可以获得鼠标点击了哪一个菜单项，但搜不到具体代码，还请版主帮忙啊。

Henry D. Sy

把例子传上来看看

auluolal

Set cbCommandbar = Application.CommandBars.Add(gsMENU_BAR, , True, True)
    '登录
    Set oPopup = cbCommandbar.Controls.Add(msoControlPopup)
    With oPopup
        .Caption = "菜单"


        '重新登陆
        Set oButton = .Controls.Add(msoControlButton)
        With oButton
            .Caption = "压缩"
            .Enabled = True
            .
        End With

将Msgbox，压缩程序都写在 “压缩过程”这个字程序即可，其他地方要调用 "压缩过程"，只要直接调用子程序即可！