以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何获取鼠标在窗口内的坐标  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=63520)

--  作者:打错潇洒
--  发布时间:2015/1/22 16:17:00
--  如何获取鼠标在窗口内的坐标
获取鼠标在窗口内的坐标,使用窗口全局命令 MouseMove 获取到的不一定是鼠标在窗口中的正确坐标

如果点击某一个按键 获取的是在按键中的坐标

如果按键有父容器 TOP Left 获取的是相对于父容器的坐标 



--  作者:Bin
--  发布时间:2015/1/22 16:22:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41497&skin=0
--  作者:打错潇洒
--  发布时间:2015/1/22 16:25:00
--  
好的谢谢了 
--  作者:打错潇洒
--  发布时间:2015/1/22 16:31:00
--  
还是有问题的 BIN 我需要的是在窗口内的坐标 不是相对于 屏幕的坐标
--  作者:Bin
--  发布时间:2015/1/22 16:34:00
--  
这个不行么? 不行就上例子 http://www.foxtable.com/help/topics/2917.htm
--  作者:有点甜
--  发布时间:2015/1/22 16:36:00
--  

Dim dp As new Point()
dp.X = Windows.Forms.Cursor.Position.X
dp.Y = Windows.Forms.Cursor.Position.Y

dp = e.Form.BaseForm.PointToClient(dp)
msgbox(dp.x & " " & dp.y)


--  作者:打错潇洒
--  发布时间:2015/1/22 16:49:00
--  
对的 就是这个