2 yxfedit yxfedit 于 2014.04.16 13:26 提问

VB6中鼠标控制问题,控制语句不起作用

我编写了一段控制鼠标停留位置的代码,但是一点效果都没有,代码如下:
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

SetCursorPos (Me.left + (Me.Width \ 2)) \ 15, (Me.top + (Me.Height \ 2)) \ 15

End Sub

后来通过Sleep函数
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
,将鼠标从另一个位置移动到想要的位置,就产生了效果,但是我移动鼠标时,鼠标指针还是从移动前的位置(主是程序控制前的位置)开始移动,而不是处理后的位置,不知道有什么方法可以解决?

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!