以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 右击获取鼠标位置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128168) |
||||
-- 作者:weibu -- 发布时间:2018/11/30 11:05:00 -- 右击获取鼠标位置 老师我按钩子示例做了一个鼠标位置获取并记录到表A;刚开始可以获取坐标,但一会不知道为啥报错; 1.点击按钮“获取坐标a”,然后到任意位置右击鼠标获取鼠标位置并记录到a行中的xy;
2.点击按钮“获取坐标b”,然后到任意位置右击鼠标获取鼠标位置并记录到b行中的xy;
报错图片:
狐表实例:
|
||||
-- 作者:有点甜 -- 发布时间:2018/11/30 12:22:00 -- 1、我测试没问题,请说明如何测试。
2、你尝试卸载重装最新版foxtable测试吧。
|
||||
-- 作者:weibu -- 发布时间: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编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2018/11/30 15:21:00 --
If Convert.ToString(e.Button) = "Right" Then \'右击鼠标则保存坐标值
|