怎做右健弹出菜单！

Question

怎做右健弹出菜单！
弹出菜单的函数怎么写阿？还需要什么设置呢？

Answer 1

'MouseDown事件各种语法包含下列部分：
'button  返回一个整数，用来标识该事件的产生是按下哪个按钮
'其中 左按钮（位 0），右按钮（位 2），以及中间按钮（位 4）
'shift   返回一个整数，标示是否同时有Shift,Ctrl,Alt键按下
'x, y    返回一个指定鼠标指针当前位置的数
'Button = 2 表示右键按下If Button = 2 Then
'PopupMenu方法用来弹出一个菜单
'语法是 object.PopupMenu menuname, flags, X, Y
'mnufile是我们在菜单编辑器中设计好的菜单
'X,Y是弹出菜单的位置，可以为数字，如果直接写为X,Y则是在当前鼠标位置弹出菜单
PopupFrm.PopupMenu mnufile, 0, X, Y
End If

Answer 2

应该是在MouseUp事件里判断Mouse Button,弹出菜单。 你可检查一下标准控件的右击菜单，都是在Mouse Up后出现的。

Answer 3

应该在Mouse Up事件中写代码。

Answer 4

在菜单编辑器编辑好菜单，visible=false
然后在MouseDown事件中加入代码，
如右键弹出：button=2
左键弹出：button=1
调用：popupmenu  menu

Answer 5

visible=false或ture都可以，随便你！一般是false
在form的Mouseup事件里写
 if button=2 then
    popupmenu 菜单名
 end if

Answer 6

Private Sub DBGrid2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu 文件
End IfEnd Sub
先做好菜单 其中有一个名称叫 文件 的

Answer 7

DBGrid2控件上 MouseDown 事件  如果想在窗体上的话可以把DBGrid2换成form1

Answer 8

将菜单编辑器编辑的“可见”勾掉，然后在代码中设：
if button=2 then
    popupmenu 菜单名
end if

Answer 9

先做好至少两级的菜单，可见不可见都没关系，然后在鼠标右键事件中 popupmenu 菜单名

Answer 10

在mousedown事件判断button=2
然后popupmenu yourmenuName

Answer 11

mousedown中调用popupmenu  

Answer 12

我一直在考虑着这样一个问题，微软的操作中，有一个模仿鼠标右键的键盘按钮（在右ctrl旁边），按下这个按钮后，能够弹出右键菜单，但这个方式我可一直没有实现，我没法扑捉啊，因为就为了一个鼠标右键而多写代码似乎太累了，就一直没有怎么去想。也就经常在mouseup中使用popupmenu

Answer 13

考，每次上来都看到你这条问题，用popupmenu 嘛

Answer 14

popupmenu popmenu  'popmenu是菜单的名字

Answer 15

这么多人,我也讲一讲.在控件或者窗体上用mousedown事件.
里面写如下代码:
If Button = 2 Then
PopupMenu pop
 End If
pop是你的主菜单,高为不可见,
所想弹出的右键列表中是pop的子菜单,设为可见!
在这里问一高手.我想给右键菜单上显示出图标,如何做?

Answer 16

你可以使用Activebar控件，可以实现Xp样式的菜单，