Office中国论坛/Access中国论坛

标题: 如何做右键弹出菜单? [打印本页]

作者: luhao    时间: 2010-1-11 22:11
标题: 如何做右键弹出菜单?
右键弹出的往往是ACC的功能菜单。我们可不可以自定自己的菜单DropMenu1
作者: 咱家是猫    时间: 2010-1-12 09:49
可以,你搜索下,我发过一个菜单制作教程
作者: 67613188    时间: 2010-1-13 20:25
可以参照如下的代码(这是我给别人写程序时候用到的其中一段)
Private Sub ListView_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
    Set ListView.SelectedItem = ListView.HitTest(x, y)
    If Button = 2 Then
        '在屏幕的指定位置弹出快捷菜单(若不指定则在鼠标处)
        If ListView.HitTest(x, y) Is Nothing Then
            CommandBars("Pmn").ShowPopup 'Pmn为快捷菜单的名称
        Else
            CommandBars("Icon").ShowPopup 'Icon为快捷菜单的名称
        End If
    End If
End Sub
看不懂就在相互问一下吗。
作者: luhao    时间: 2010-1-13 21:55
3# 67613188 我试一试
作者: trancy1    时间: 2010-4-12 13:07
看不懂.我想要的是禁止所有窗体的右键.
作者: 一蓝里山    时间: 2010-4-16 21:49
对我来说难了一点。




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3