85问答库 > 请教：用鼠标右键点击窗体上的标签控件弹出一个快捷菜单，用vb怎么写？

请教：用鼠标右键点击窗体上的标签控件弹出一个快捷菜单，用vb怎么写？

2024-12-04 09:52:03

推荐回答（2个）

回答1：

将代码 If Button = 2 Then PopupMenu mymenu 写在标签的MouseDown事件过程中即可。
其中mymenu为你在菜单编辑器中定义要弹出的快捷菜单的菜单名称
完整的代码如下：
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mymenu
End Sub

回答2：

在标签控件的Click事件中添加如下代码
medit 是你要弹出的菜单的名称
If Button = 2 Then
PopupMenu medit, vbPoupMenuRightButton
End If