用MouseUp事件里的
Button参数
1表示左键
2表示右键
建一个菜单
vbFile
子菜单vbRight:
(右键点击窗体
就会弹出
vbFile下的几个子菜单了)
Private
Sub
Form_Load()
vbFile.Visible
=
False
End
Sub
Private
Sub
Form_MouseUp(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
Select
Case
Button
Case
1
Print
"点击了左键"
Case
2
Print
"点击了右键"
PopupMenu
vbFile
End
Select
End
Sub