直接调用鼠标事件啊
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
if button = 2 then
这里写你想要的代码
end if
End Sub
Private Sub Form_MouseDown (Button As Integer,_
Shift As Integer, X As Single, Y As Single)
If Button = 1 then '左键
endif
If Button = 2 then '右键
endif
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024