展开全部
首先要在VB的菜单编辑器建立一个菜单,比如建立一个标题为弹出菜单的,名称是menu1的主菜单项。然后在这个之下建立子菜单,记得建立的时候把子菜单的可见性的勾去掉。
接下来,便可使用弹出菜单,打开弹出菜单:PopupMenu 菜单对象名(PopupMenu Menu1),后面还有很多可选参数,如协调位置等,这里不深究。mouse down事件常用右键弹出:
Private Sub 控件_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 (1是左键)Then '如果点的是右键
PopupMenu Menu1
End If
End Sub
你可以试下。
接下来,便可使用弹出菜单,打开弹出菜单:PopupMenu 菜单对象名(PopupMenu Menu1),后面还有很多可选参数,如协调位置等,这里不深究。mouse down事件常用右键弹出:
Private Sub 控件_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 (1是左键)Then '如果点的是右键
PopupMenu Menu1
End If
End Sub
你可以试下。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询