以文本方式查看主题

-  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;
报错图片:
 
此主题相关图片如下:qq截图20181130104957.png
按此在新窗口浏览图片
 
狐表实例:
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:text.rar


--  作者:有点甜
--  发布时间: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     \'右击鼠标则保存坐标值