以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  鼠标右键  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=100204)

--  作者:orca8
--  发布时间:2016/7/5 21:51:57
--  鼠标右键
鼠标 右键 事件  发帖心情 Post By:2016-7-5 17:50:56 [只看该作者]

MouseDown                 用户按下鼠标按键时发生事件

MouseUp                   用户释放鼠标按键时发生

MouseMove                 用户移动鼠标时该事件发生。


鼠标右键 单击 的事件 是怎么 获取??


--  作者:orca8
--  发布时间:2016/7/6 10:28:28
--  
???????????????????
--  作者:yukizzc
--  发布时间:2016/7/6 13:36:24
--  

不太明白您的问题,您是要获取窗体的鼠标事件吗?

代码里

Sub UserForm1_MouseDown(Button, Shift, x, y)

End Sub
这样就可以了


--  作者:orca8
--  发布时间:2016/7/6 15:05:18
--  
我是要 鼠标 右键 的单击 事件, 你这个 获取不到

--  作者:yukizzc
--  发布时间:2016/7/6 16:35:51
--  


Sub UserForm1_MouseDown(Button, Shift, x, y)
application.MsgOut button
End Sub

根据button的返回数值,来判断是左键还是右键


--  作者:orca8
--  发布时间:2016/7/6 20:49:18
--  
试过了,右键 点击 不打印任何,数值, 事件都没相应。 左键 输出 1 
--  作者:orca8
--  发布时间:2016/7/7 8:56:47
--  
坐等?

--  作者:yukizzc
--  发布时间:2016/7/7 9:28:00
--  

不知道你那边为什么,我这边的都没问题

你有其他电脑里软件试过没?可以远程你看我这边操作

2857926939


--  作者:orca8
--  发布时间:2016/7/7 9:56:40
--  
那我再重装试试吧

--  作者:orca8
--  发布时间:2016/7/9 8:52:50
--  
我是重装,搞尽了,  右键 就是 不响应, 你们确定?