请教:SetCursorPos方法设置鼠标位置,X方向正常,但是Y方向不正常(50分)

[HBIBH]

代码如下

Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub MoniMouse(ByVal iMouseX As Integer, ByVal iMouseY As Integer, ByVal iButton As Integer)
Try
SetCursorPos(iMouseX, iMouseY)
Catch ex As Exception

End Try

End Sub

调用函数MoniMouse(300,300,1)
X方向移动到了300,但是Y方向始终移动到屏幕顶端(貌似0位置),请教!

[水如烟]

将声明中的Long全改为Int32,即
Declare Function SetCursorPos Lib "user32" (ByVal X As Int32, ByVal Y As Int32) As Int32

[HBIBH]

OK 搞定 谢谢