vbnet全局鼠标 vb控制鼠标点击

高分求助！vb.net 如何全局判断鼠标是否单击

你这问题说的有点没太明白是在form上判断是否是鼠标单击么?

创新互联建站专注于企业成都全网营销推广、网站重做改版、友好网站定制设计、自适应品牌网站建设、H5页面制作、成都商城网站开发、集团公司官网建设、外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为友好等各大城市提供网站开发制作服务。

还是说在后台判断是否是鼠标单击了

如果是第一种的话应该是有事件的直接写进去你要写的方法就好了

如果要是在后台判断的话就定义一个全局变量然后在你from上所有的你需要判断的空间上都加上mouseclick事件中再给全局变量赋值就能判断是否是鼠标单击了

调用api

在Visual Baisc.net中的声明：

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）模拟鼠标左键按下

Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click

TextBox1.SelectAll()

TextBox1.ForeColor = Color.Blue

End Sub

如果不想每次都这样的话，就加一个if判断TextBox1.ForeColor 是否是Color.Blue就可以了

首先需要一个判断鼠标位置的api,然后单位时间进行判断,如果某时间鼠标的位置超出了窗体,则用另一个api来设置鼠标位置

这个都不难理解?详情可查看vbgood的api手册

本文名称：vbnet全局鼠标 vb控制鼠标点击
转载注明：http://mswzjz.cn/article/dopcppp.html