Tengo un codigo en la cual le coloco las coordenas x e y pero toma toda la pantalla para posicionar el puntero, como podria hacer para que tome las coordenadas pero del formulario y no de toda la pantalla.
Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Sub Form_Load()
SetCursorPos 100, 150
End Sub
Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCursorPos 100, 150
End Sub
en este evento del mouse proba t lo coloca en esas cordenadas ! creo q entendi bien :-X
Si hago lo que dices no voy a poder mover el mouse siempre quedata ahi.
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Sub Command1_Click()
Dim rc As RECT
GetWindowRect Me.hwnd, rc
SetCursorPos rc.Left + 100, rc.Top + 100
End Sub
gracias por los minutos, saludos