[求助]怎么获得鼠标点击位置的信息？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么获得鼠标点击位置的信息？

共有1662人关注过本帖树形打印复制链接主题：[求助]怎么获得鼠标点击位置的信息？

新福星

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00

[求助]怎么获得鼠标点击位置的信息？ 发帖心情

Post By：2017/4/9 17:24:00 [只看该作者]

一个窗口加有一张图片。

如何在点击图片时，获得点击位置数据？谢谢

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/9 20:51:00 [只看该作者]

1、去编写mousedown事件获取。

2、也可以直接获取鼠标的当前位置来获取。

新福星

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00

Post By：2017/4/10 4:31:00 [只看该作者]

用哪些具体方法？语句？

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/10 8:28:00 [只看该作者]

如果是mousedown，直接获取e.x和e.y即可。

如果是当前鼠标，这样写

Dim x As Integer = System.Windows.Forms.Cursor.Current.Position.X
Dim y As Integer = System.Windows.Forms.Cursor.Current.Position.Y

如果是窗口的相对位置，这样写

Dim point As Point = Forms("窗口1").Panel.PointToScreen(System.Windows.Forms.Cursor.Current.Position)
msgbox(point.x & " " & point.y)

主题：[求助]怎么获得鼠标点击位置的信息？