怎么把鼠标移动到指定位置~?例如我要移动到FORM1的 300 400``用那个移动鼠标的API老是移到别的地方去``

'鼠标位置是以Pixel为单位,所以控件的left top width height等属性都要除上 15 Private Declare Fun拿掉ction SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As LongPrivate Sub Command1_Click() SetCursorPos 300,400End Sub'************ 移到窗体的中心Private Declare Fun拿掉ction SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As LongPrivate Sub Command1_Click() SetCursorPos (Me.Left + Me.Width \ 2) \ 15, (Me.Top + Me.Height \ 2) \ 15End Sub

移动鼠标的API单位是像素。VB里默认的单位是缇。15T=1P。楼主所说的移到别的地方去大概是单位弄错了吧。或者你没有加上窗口的Top和Left、

谢谢 CBM666老师 谢谢 谷歌VIP用户原来是这样```