在VB中用什么代码可以代替鼠标的左键事件呀?
解决方案 »
- VB API函数sleep在睡眠时,导致窗体不能移动,该如何解决?
- 使用MSWinsockLib.Winsock对象后的程序,打包时,如何把这个对象加入进去??
- 请各位帮帮忙,急急,在线等待,简单问题,关于exe文件的互相调用
- <阿达自动定时关机器>这个软件里的“禁止用户修改系统时间”是怎么实现的?
- 如何在运行时调整控件的大小和位置
- 用vb控制excel报表
- 防止自身多次运行
- 请问在vb中如何将wav文件也整合到exe中,而不需要用文件路径调用!?
- 2:huanggx(大侠) 真不好意思,眼看花了。看错了:)来吧
- 我怎样做一个在VB中的可以拖动改变大小的分割条,像大多数软件中使用的那种?
- 我打开一个用Lotus做的IE可是用IE.LocationUrl取到的地址为空,这个时候请问要如何才能关闭此IE,用IE.Quit关不掉,还有其他办法吗?
- 征集PCX图像抖动算法(单色)源程序和PCX读取算法(单色)源程序
If Button = 1 Then
MsgBox "you click the left button"
End If
End Sub
【VB声明】
Private 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)【说明】
模拟一次鼠标事件 【备注】
进行相对运动的时候,由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度【参数表】
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函数可取得这个值。可用的值取决于特定的驱动程序