锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net鼠标分辨率 vb获取屏幕分辨率( 二 )

IT技术鼠标


Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = H2
Private Const MOUSEEVENTF_LEFTUP = H4
Private Sub Command1_Click()
SetCursorPos 500, 500
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
关于Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
参数：
dwFlags：标志位集 ， 指定点击按钮和鼠标动作vb.net鼠标分辨率的多种情况 。此参数里的各位可以是下列值的任何合理组合：
MOUSEEVENTF_MOVE H1，移动鼠标
MOUSEEVENTF_LEFTDOWN H2，模拟鼠标左键按下
MOUSEEVENTF_LEFTUP H4，模拟鼠标左键抬起
MOUSEEVENTF_RIGHTDOWN H8，模拟鼠标右键按下
MOUSEEVENTF_RIGHTUP H10，模拟鼠标右键抬起
MOUSEEVENTF_MIDDLEDOWN H20，模拟鼠标中键按下
MOUSEEVENTF_MIDDLEUP H40，模拟鼠标中键抬起
MOUSEEVENTF_ABSOLUTE H8000，标示是否采用绝对坐标 ）
关于vb.net鼠标分辨率和vb获取屏幕分辨率的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：安装oracle12c报错，安装oracle报错ora03113

下一篇：电商如何合成技能，电商的技能