如何将当前鼠标座标相对并自动移动至下拉列表的框中 X？ Y？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将当前鼠标座标相对并自动移动至下拉列表的框中 X？ Y？

共有1710人关注过本帖树形打印复制链接主题：如何将当前鼠标座标相对并自动移动至下拉列表的框中 X？ Y？

zhuya820

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

加好友

发短信

等级：童狐帖子：243 积分：1819 威望：0 精华：0 注册：2016/1/21 12:44:00

如何将当前鼠标座标相对并自动移动至下拉列表的框中 X？ Y？ 发帖心情

Post By：2017/9/13 15:40:00 [显示全部帖子]

如何将当前鼠标座标相对并自动移动至下拉列表的框中 X？ Y？ 发帖心情

Post By：2017/9/13 15:26:00 [只看该作者]

Dim cnm = e.form.Controls("ComboBox")

If cnm.DroppedDown = False Then

Dim obj = cnm.basecontrol

obj.OpenDropDown

End If

？？？

如何将当前鼠标座标相对并自动移动至下拉列表的框中 X？ Y？

zhuya820

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

加好友

发短信

等级：童狐帖子：243 积分：1819 威望：0 精华：0 注册：2016/1/21 12:44:00

Post By：2017/9/13 15:58:00 [显示全部帖子]

并将鼠标自动移动至下一个控件窗口如何模拟

zhuya820

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

加好友

发短信

等级：童狐帖子：243 积分：1819 威望：0 精华：0 注册：2016/1/21 12:44:00

Post By：2017/9/13 18:36:00 [显示全部帖子]

设置焦点这样写

e.form.controls("TextBox1").Select

？？

这是获取坐标吗？

移动鼠标，这样写

全局代码

<DllImport("user32.dll", EntryPoint := "SetCursorPos")> _
Public Function SetCursorPos(x As Integer, y As Integer) As Boolean

End Function

？？

全局代码命名名称是什么？

【SetCursorPos】这样命名是吗

dvubb 此主题相关图片如下：qq图片20170913185308.png

设置代码

If LastInputTickCount > 30000 Then
SetCursorPos(100, 200) '鼠标位置
End If

？？？

这设置代码写什么事件里为好

是列表选择还是单击鼠标呢？？？

还是本代码extBox1的坐标如何获取？？？

[此贴子已经被作者于2017/9/13 18:53:42编辑过]

zhuya820

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

加好友

发短信

等级：童狐帖子：243 积分：1819 威望：0 精华：0 注册：2016/1/21 12:44:00

Post By：2017/9/14 1:05:00 [显示全部帖子]

设置代码

If LastInputTickCount > 30000 Then
SetCursorPos(100, 200) '鼠标位置
End If

不过没效果，根本不动一下

是不是我全局代码搞错了？？？

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

主题：如何将当前鼠标座标相对并自动移动至下拉列表的框中 X？ Y？