vb.net鼠标指针 vbs调用鼠标

vb 鼠标指针

具体的代码不写了，如下：

创新互联公司"三网合一"的企业建站思路。企业可建设拥有电脑版、微信版、手机版的企业网站。实现跨屏营销，产品发布一步更新，电脑网络+移动网络一网打尽，满足企业的营销需求！创新互联公司具备承接各种类型的网站建设、成都网站设计项目的能力。经过10多年的努力的开拓，为不同行业的企事业单位提供了优质的服务，并获得了客户的一致好评。

首先通过label句柄获取其所在的矩形区域，然后判断鼠标是否在这个区域内即可

下面代码获取这个矩形区域：

Declare

Function

GetWindowRect

Lib

"user32"

Alias

"GetWindowRect"

(ByVal

hwnd

As

Long,

lpRect

As

RECT)

As

Long

Private

Type

RECT

Left

As

Long

Top

As

Long

Right

As

Long

Bottom

As

Long

End

Type

用这个函数

EX:

Dim

Rec

As

RECT

'

Get

Left,

Right,

Top

and

Bottom

of

ExplButton

GetWindowRect

ExplButton.hwnd,

Rec

用下列API函数获取当前鼠标所在的坐标：

Private

Declare

Function

GetCursorPos

Lib

"user32"

(lpPoint

As

POINTAPI)

As

Long

Private

Type

POINTAPI

X

As

Long

Y

As

Long

End

Type

窗体中：

GetCursorPos

PT

即可获取当前鼠标所在的坐标，然后结合上面的矩形区域，你自己分析一下就行了，很简单。具体的判断代码我就不写了，如果实在不知道的话再追问吧

另外：新年快乐

VB.net的窗体，能否通过配置控件属性来设置鼠标指针移动到控件上出现的气泡提示?

首先，你要找一个手型的图标文件(就是扩展名为ico的文件)，然后用VB创建一个窗体，在窗体的属性MouseIcon里面添加你准备的ico文件，然后把属性MousePoint的属性值改成99-ccCustom，就可以了

vb.net如何更换程序光标

比如你要更换在你某个窗体上的光标。

那么在这个窗体内用这样的代码

Me.Cursor = System.Windows.Forms.Cursors.Cross

如果你要更换当前系统显示的光标

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Cross

其中Cross代表十字光标，你也可以更改成其他的，直接查看Cursors中的各成员就可以找到了。

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

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