VB 桌面鼠标右键菜单咋做的

CTRL+E
建立一个菜单(MenuRight),Visible设为False
建立这个菜单的子菜单,Visible为True

程序中
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
popupmenu MenuRight
endif
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
msgbox "你按了右键"
endif
End Sub

先用菜单编辑器编辑好一个菜单之后
在按纽事件中使用POPUPMENU再加上那个菜单名
就可以使用了。

先用菜单编辑器编辑好一个菜单
然后把菜单编辑器上面的可见框的勾勾取消
菜单编辑器在工具里好像