- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何将当前鼠标座标相对并自动移动至下拉列表的框中 X？ Y？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106676)
-- 发布时间：2017/9/13 15:40:00
-- 如何将当前鼠标座标相对并自动移动至下拉列表的框中 X？ Y？
如何将当前鼠标座标相对并自动移动至下拉列表的框中 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？ |
-- 发布时间：2017/9/13 15:53:00
--
你想得到焦点？加上代码
Sendkeys.Send("{down}{down}")
-- 发布时间：2017/9/13 15:58:00
--
并将鼠标自动移动至下一个控件窗口如何模拟
-- 发布时间：2017/9/13 16:55: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(100, 200) \'鼠标位置
-- 发布时间：2017/9/13 18:36:00
--
设置焦点这样写
e.form.controls("TextBox1").Select ？？ 这是获取坐标吗？ 移动鼠标，这样写
全局代码
<DllImport("user32.dll", EntryPoint := "SetCursorPos")> _ End Function ？？ 全局代码命名名称是什么？ 【SetCursorPos】这样命名是吗
设置代码
If LastInputTickCount > 30000 Then ？？？ 这设置代码写什么事件里为好 是列表选择还是单击鼠标呢？？？ 还是本代码extBox1的坐标如何获取？？？ |
此主题相关图片如下：qq图片20170913185308.png
-- 发布时间：2017/9/13 22:36:00
--
获取，某控件坐标这样写
Dim point As Point = Forms("窗口1").Panel.PointToScreen(Forms("窗口1").Controls("TextBox1").BaseControl.Bounds.Location)
msgbox(point.x & " " & point.y)
-- 发布时间：2017/9/14 1:05:00
--
设置代码
If LastInputTickCount > 30000 Then 不过没效果，根本不动一下 是不是我全局代码搞错了？？？ |
-- 发布时间：2017/9/14 8:48:00
--
直接用这一句代码即可
SetCursorPos(100, 200) \'鼠标位置