以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  高级功能研发区  (http://222.73.7.161/bbs/list.asp?boardid=5)
----  请问，鼠标在移动时可以获得X,Y坐标，但是按住鼠标键移动时，无法获得坐标。  (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=50019)
--  作者：internethhhh
--  发布时间：2013/3/21 11:38:16
--  请问，鼠标在移动时可以获得X,Y坐标，但是按住鼠标键移动时，无法获得坐标。
请问老大，如何在按住鼠标左键时，移动鼠标，也能获得光标坐标？谢谢！
--  作者：admin
--  发布时间：2013/3/21 11:43:38
--  
代码贴一下
--  作者：internethhhh
--  发布时间：2013/3/21 13:04:48
--  

Sub Technic_MouseMove(Button,Shift,x,y)   
       Application.MsgOut "按下的按键:"&Button&"Shift:"&Shift&"x:"&x&"y:"&y

End Sub

 

 

按下鼠标左键后，X,Y就没有输出了。

[此贴子已经被作者于2013-3-21 13:05:18编辑过]
--  作者：admin
--  发布时间：2013/3/21 13:10:03
--  
下个版本看看能否修正
--  作者：rushtaotao
--  发布时间：2013/3/22 9:09:49
--  
有输出啊，测试后 结果如下 按下键1为 鼠标左键移动 0为不按键移动

按下的按键:1Shift:0x:135y:51
按下的按键:1Shift:0x:134y:51
按下的按键:1Shift:0x:133y:51
按下的按键:0Shift:0x:133y:51
按下的按键:0Shift:0x:132y:51
按下的按键:0Shift:0x:132y:51
按下的按键:0Shift:0x:131y:51
按下的按键:0Shift:0x:130y:51
按下的按键:0Shift:0x:130y:51
--  作者：internethhhh
--  发布时间：2013/3/22 14:16:38
--  
压着鼠标左键移动看看。不要放开手左键。
[此贴子已经被作者于2013-3-22 14:17:22编辑过]
--  作者：rushtaotao
--  发布时间：2013/3/22 14:37:54
--  
试过啊 就是这要输出的信息文件
--  作者：internethhhh
--  发布时间：2013/3/23 14:20:50
--  
压着鼠标左键移动看看。不要放开手左键。这个时候只会画出一个虚线的矩形，画矩形的时候，是没有坐标输出的。