vb如何控制鼠标

vb如何控制鼠标2008-04-17主要是要通过两个方面：

（一）对鼠标的停留位置做出判断，也就是得到鼠标在屏幕上停留的位置。

（二）将鼠标的移动到所确定的位置上。而实现这个功能则要使用到SetCursorPos这个函数，此函数的功能是设定鼠标位置。

这个函数的声明如下：

Public Declare Function SetCursorPos Lib "user32" （ByVal x As Long, ByVal y As Long） As Long

而仅仅有这个函数是不够的，还需要定义一个type格式的自定义变量。定义为：

Public Type POINTAPI

x As Long

y As Long

End Type

它用于存放鼠标的位置（屏幕上的位置）。

但是一个新的问题又出现了：鼠标到底放在哪里呢？也就是如何获得屏幕上的位置。

这个问题就要用到另一个函数：GetCursorPos，它的功能是获得屏幕上鼠标的坐标。

它的声明如下：

Public Declare Function GetCursorPos Lib "user32" （lpPoint As POINTAPI） As Long

这样就可以通过GetCursorPos函数获得鼠标的位置，存放到一个POINTAPI变量中，再通过SetCursorPos函数来设置鼠标的位置。

这样就可以十分顺利的来控制鼠标了！