如何在表单中单击右键显示POPMENU

[sstg9]

如何在表单中单击右键显示POPMENU
谢谢！

[aiur2000]

PopupMenu frmPopmenu.PopFile, 1, Image4.Left + Image4.Width, Image4.Top

PopFile是frmPopmenu的一个菜单

[aiur2000]

右键
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
End If

End Sub

[wxmxiaoming]

private sub Control_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
if Button=2 then
PopupMenu FormName.PopupMenuFileName
end if
end sub