在vb里获得鼠标位置目前我知道两个方法,一个是:
Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
在MouseMove事件中获得当前鼠标的位置.还有一个就是用API函数了,具体如下:
先声明函数和点的数据类型,
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
然后就可以这样调用:
Dim Pt AS POINTAPI
GetCursorPos Pt
然后就可以用Pt.x 和Pt.y来得到x和y坐标值了.我用的时候 GetCursorPos(Pt) 这样出现错误,不能使用,只能如上面那样调用,这点得记住了.