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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 右击获取鼠标位置

共有1750人关注过本帖树形打印复制链接主题：右击获取鼠标位置

weibu

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

加好友

发短信

等级：三尾狐帖子：659 积分：5363 威望：0 精华：0 注册：2018/5/19 22:27:00

右击获取鼠标位置 发帖心情

Post By：2018/11/30 11:05:00 [只看该作者]

老师我按钩子示例做了一个鼠标位置获取并记录到表A；刚开始可以获取坐标，但一会不知道为啥报错；

1.点击按钮“获取坐标a”，然后到任意位置右击鼠标获取鼠标位置并记录到a行中的xy;

2.点击按钮“获取坐标b”，然后到任意位置右击鼠标获取鼠标位置并记录到b行中的xy;

报错图片：

此主题相关图片如下：qq截图20181130104957.png

狐表实例：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:text.rar

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/30 12:22:00 [只看该作者]

1、我测试没问题，请说明如何测试。

2、你尝试卸载重装最新版foxtable测试吧。

weibu

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

加好友

发短信

等级：三尾狐帖子：659 积分：5363 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2018/11/30 14:09:00 [只看该作者]

重装就好了

蓝色代码报错，我把内部函数修改为：

Dim sender = args(0)

Dim e = args(1)

Forms("窗口1").Text = "X:" & Convert.ToString(e.X) & " Y:" & Convert.ToString(e.Y) & " 按下了:" & Convert.ToString(e.Button) & " clicks:" & Convert.ToString(e.Clicks)

Dim r As Row = Tables("表A").Current ’这一行如何修改为是列name = a 所在的行进行xy的赋值

If Convert.ToString(e.Button) = Right Then ‘右击鼠标则保存坐标值

r("x") = Convert.ToString(e.X)

r("y") = Convert.ToString(e.Y)

Tables("表A").Current.Locked = True

End If

[此贴子已经被作者于2018/11/30 15:01:12编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/30 15:21:00 [只看该作者]

If Convert.ToString(e.Button) = "Right" Then '右击鼠标则保存坐标值

下一主题 >> << 上一主题

主题：右击获取鼠标位置