弹出式菜单,首先要创建菜单对象。方法是,把你要弹出的菜单当成是一个正常展示在窗体顶部的菜单,使用菜单编辑器将它制作出来。比如:添加一个标题是“弹出菜单”名称是“Menu1”的根菜单项,在其下层你可能要添加复制、粘贴、这是什么…这样的子菜单项作为弹出菜单的内容,内容你随意,这里不细究。最后要把根菜单项的“可见”对勾去掉。
创建完菜单对象后,便可以使用PopupMenu方法来弹出菜单。方法是:
PopupMenu 菜单对象名
继续上个例子,就是
PopupMenu Menu1
这个方法后面还有很多可选参数,如协调位置等,这些待你自己慢慢研究,这里不细究。如果你的弹出菜单是通过按右键弹出的话,通常会把它放到MouseDown事件中,继续上个例子,就是
Private Sub 控件_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '如果点的是右键
PopupMenu Menu1
End If
End Sub
温馨提示:答案为网友推荐,仅供参考