1个回答
展开全部
请进行如下操作。
打开“菜单编辑器”,按常规方法添加菜单。例如:
-----------
菜单 (名称为mnuPop)
....菜单1 (名称为mnuPop1)
....菜单2 (名称为mnuPop2)
-----------
把“标题”菜单的“可见”复选框去掉。
添加如下代码:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbKeyRButton Then PopupMenu mnuPop
End Sub
绝对没问题。
打开“菜单编辑器”,按常规方法添加菜单。例如:
-----------
菜单 (名称为mnuPop)
....菜单1 (名称为mnuPop1)
....菜单2 (名称为mnuPop2)
-----------
把“标题”菜单的“可见”复选框去掉。
添加如下代码:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbKeyRButton Then PopupMenu mnuPop
End Sub
绝对没问题。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询