Question

VB如何右键窗体弹出菜单？

右键窗体可以弹出菜单，比如粘贴复制之类的

Answer 1

1.在"菜单编辑器窗口"中建立一个将要作为弹出式菜单的主菜单项,如你所说的,就是"编辑"主菜单项,此菜单项的标题为"编辑",名称为"EDIT",所包含的菜单项为"剪切","复制","粘贴".建立弹出式菜单所需的菜单后,可以把"编辑"的VISIBLE属性设置为FALSE,也可以设置为TRUE,关键看你需要.

2.为建立好的菜单编写程序代码,要显示弹出式菜单,可以使用POPUPMENU方法,大概代码如下:

Private Sub Form_MouseUp(Button as Integer,Shift as Integer,X as Single,Y as Single)
If Button=2 then '检查是否按下的是鼠标右键
PopUpMenu EDIT 'EDIT是"编辑"菜单的控制名,将其激活显示在窗体上
End If
End Sub

Answer 2

先用菜单编辑器制作一个你想弹出的菜单，如图，将主菜单项的可见选项去掉，但要给它一个名字，标题随便。其它子菜单项都要有名称，便于给它写代码。
假设主菜单项名称为"Caidan"，然后输入以下代码：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '如果在窗体上按下鼠标
If Button = 2 Then '如果点击右键
PopupMenu Caidan '弹出名为"Caidan"的菜单
End If
End Sub

如果要给弹出菜单中的选项编代码，就要直接编写代码。
假设子菜单项的名称为"New"
Private Sub New_Click()

End Sub
这两行代码之间就是点击了名为"New"的选项之后的动作。
够详细了吗？

Answer 3

同上。就是要先建立一个菜单。然后用popupmenu来弹出这个菜单。当然最上级菜单设置成visible=false，这样这个弹出菜单就是一个独立的专门的弹出菜单了 ：）