vb点虐 右击鼠标 vb模拟鼠标右键点击

VB.NET鼠标自动右击代码

调用api

创新互联公司专业为企业提供卢龙网站建设、卢龙做网站、卢龙网站设计、卢龙网站制作等企业网站建设、网页设计与制作、卢龙企业网站模板建站服务,十多年卢龙做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。

在Visual Baisc点虐 中的声明: 

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)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放

Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动

例:

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0 

'在(10,10)模拟鼠标左键按下

vb点虐 鼠标右键事件

你是想使用右键菜单吧?

例如给picturebox添加右键菜单可以这样:

从工具箱拖一个ContextMenuStrip到窗体上,然后自己添加你喜欢的菜单项,然后把PictureBox的ContextMenuStrip属性设置为你你刚添加的哪个ContextMenuStrip,下拉列表里会有你刚刚添加的控件的!

如何在VB点虐 中用程序控制鼠标移动和点击

调用api

在Visual Baisc点虐 中的声明:

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)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放

Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动

例:

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在(10,10)模拟鼠标左键按下

vb点虐 ,我有一个鼠标右键点击的事件,我想在这个事件里面加入鼠标左键点击的动作,

你已经有了“鼠标右键点击的事件”

说明你肯定已经有了if e.button=windows.forms.mousebuttons.right then

你只需要找到这条语句,通常这句话应该在你的mouseclick事件中。

这条语句改成

if e.button=windows.forms.mousebuttons.left or e.button=windows.forms.mousebuttons.right then

就可以了!

^_^


分享文章:vb点虐 右击鼠标 vb模拟鼠标右键点击
当前网址:http://bzwzjz.com/article/ddspcgd.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 定制级高端网站建设 网站建设公司 企业网站建设 成都网站制作 成都网站制作公司 移动手机网站制作 成都网站设计 网站建设方案 成都网站建设 成都网站建设 成都网站建设公司 成都网站设计 成都网站建设 泸州网站建设 成都网站建设公司 营销网站建设 成都网站建设公司 成都网站设计 网站建设费用 网站设计 网站建设推广 手机网站设计