Question

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

Answer 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

Answer 2

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

追问

您好，您的方法我试过，不行的。

追答

PopupMenu mymenu, vbPoupMenuRightButton
把 mymenu 改为你要弹出的菜单的名称
If Button = 2 Then 点击右键弹出
点其它的键不弹出