如何模拟(仿真)单击、双击事件?
Click、DblClick
Click、DblClick
解决方案 »
- 用winsock api发送一个广播数据
- 求助:ADO方式连接的数据库,Datalist控件保存显示新记录的方法
- 关于DATAGRID控件的问题
- 求助!急(关于数据表中数据统计的问题)
- 我想在Frame中输出固定的格式,请大家帮帮!
- 初涉网络编程,请各位推荐基本好书.....
- 快來解決一下﹐急
- 新年好!
- 在VB中是否可以把字符串当成语句来执行?
- 在vb中如何进行时间比较?例如1 / 7 / 17 10:00:00 - 1 / 7 / 17 00:00:00 得到一个值??
- ado 开发简单问题
- 请教:我在我的电脑上安装msde2000作为数据库服务器(我的电脑有公网ip),可不可以在外网访问我电脑上的数据库?
sub command1_Click()
Label1_Click '调用Label控件的单击事件
Image1_DBClick '调用IMage控件的双击事件
end sub如果是一个exe文件,并且没有原代码,那么可以试试用sendmessage,不过这个我没有试过。
我想要的是用API实现。Label1_Click,Image1_DbClick没啥什意义。
BN_CLICKED=0
BN_DBLCLICKED=5
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
说明
模拟一次鼠标事件
参数表
参数 类型及说明
dwFlags Long,下述标志的一个组合
MOUSEEVENTF_ABSOLUTE dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中,屏幕在水平和垂直方向上均匀分割成65535×65535个单元
MOUSEEVENTF_MOVE 移动鼠标
MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下
MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起
MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下
MOUSEEVENTF_RIGHTUP 模拟鼠标右键按下
MOUSEEVENTF_MIDDLEDOWN 模拟鼠标中键按下
MOUSEEVENTF_MIDDLEUP 模拟鼠标中键按下
dx Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定水平方向的绝对位置或相对运动
dy Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定垂直方向的绝对位置或相对运动
cButtons Long,未使用
dwExtraInfo Long,通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序
注解
进行相对运动的时候,由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度