VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 786|回复: 5

[求助] 如何获取网页中出现手动右键菜单时,光标的位置?

[复制链接]
发表于 2017-4-27 14:34:30 | 显示全部楼层 |阅读模式
如何获取网页中出现手动右键菜单时,光标的位置?
     在浏览器网页中,点击鼠标右键,出现菜单,再按一次或多次向下键,光标就在该菜单上向下移动。
请问如何得出光标的坐标值?

       谢谢老师了~!
 楼主| 发表于 2017-4-27 14:52:54 | 显示全部楼层
得到当前光标的位置,我可以用下面的代码,但在菜单上移动后,光标位置还是不变。我想要的是向下移动到菜单选项时的光标位置: Function 鼠标坐标()                        '获取当前鼠标的坐标位置     Dim Pt As POINTAPI     Dim tmppos(1) As Long     dl = GetCursorPos(Pt)                         '获得光标当前坐标     鼠标坐标 = Pt.x & ";" & Pt.y End Function
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-4-27 14:53:06 | 显示全部楼层
得到当前光标的位置,我可以用下面的代码,但在菜单上移动后,光标位置还是不变。我想要的是向下移动到菜单选项时的光标位置: Function 鼠标坐标()                        '获取当前鼠标的坐标位置     Dim Pt As POINTAPI     Dim tmppos(1) As Long     dl = GetCursorPos(Pt)                         '获得光标当前坐标     鼠标坐标 = Pt.x & ";" & Pt.y End Function
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-4-27 14:53:59 | 显示全部楼层
得到当前光标的位置,我可以用下面的代码,但在菜单上移动后,光标位置还是不变。我想要的是向下移动到菜单选项时的光标位置:
Function 鼠标坐标()                        '获取当前鼠标的坐标位置     
Dim Pt As POINTAPI   
Dim tmppos(1) As Long   
dl = GetCursorPos(Pt)                         '获得光标当前坐标     
鼠标坐标 = Pt.x & ";" & Pt.y
End Function
回复 支持 反对

使用道具 举报

发表于 2017-5-1 13:15:09 | 显示全部楼层
经过测试IE8、火狐、谷歌浏览器正常显示
鼠标test.rar (1.4 KB, 下载次数: 21)

评分

参与人数 1威望 +5 人气 +1 收起 理由
bruly + 5 + 1 很给力

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-5-2 04:42:02 | 显示全部楼层
vbfans01 发表于 2017-5-1 13:15
经过测试IE8、火狐、谷歌浏览器正常显示

感谢老师关注和热情回复。
您的代码经过测试,坐标跟随着鼠标的移动而发生改变。
只是依旧无法显示鼠标右键时手动操作上下键时的坐标。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2017-11-24 08:22

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表