已有23人关注
获取鼠标在窗口内的坐标
发表在VB答疑区 2016-05-02
是否精华
版块置顶:

先定义一个类型

Private Type POINTAPI
        x As Long
        y As Long
End Type

声明一个api函数GetCursorPos
Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

声明一个变量 Dim mouse as POINTAPI

获取鼠标在屏幕中的坐标:  GetCursorPos mouse

得出横坐标 Val(mouse.X)*15-Me.Left-50
得出纵坐标 Val(mouse.Y)*15-Me.Top-300

[font color=#FF0000]问题:为什么要乘以15 ?  50和300是不是窗口默认的左边框宽度和上边框高度?[/font]
分享到:
精彩评论 1
淡.印象
学分:323 LV5
TA的每日心情
学习Python
2020-11-23 22:17:24
2016-05-05
沙发
读者您好:

这个是计算坐标的算法。50和300是窗口左边框宽度和上边框高度。
首页上一页 1 下一页尾页 1 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照