vb 右键弹出菜单

最新推荐文章于 2021-07-31 21:07:41 发布

boys1999

最新推荐文章于 2021-07-31 21:07:41 发布

阅读量4.6k

点赞数

分类专栏： VB6.0

本文链接：https://blog.csdn.net/boys1999/article/details/23435483

版权

VB6.0 专栏收录该内容

30 篇文章 5 订阅

订阅专栏

请进行如下操作。
打开“菜单编辑器”，按常规方法添加菜单。例如：
－－－－－－－－－－－
菜单  (名称为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
绝对没问题。