如题所述
先用菜单编辑器制作一个你想弹出的菜单,将主菜单项的可见选项去掉,但要给它一个名字,标题随便。其它子菜单项都要有名称,便于给它写代码。
假设主菜单项名称为"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"的选项之后的动作。
就是要先建立一个菜单。然后用popupmenu来弹出这个菜单。当然最上级菜单设置成visible=false,这样这个弹出菜单就是一个独立的专门的弹出菜单了
温馨提示:答案为网友推荐,仅供参考