Colocar puntero en una zona especifica

[hunter18]

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.

Código [Seleccionar] Expandir


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



[_katze_]

Código [Seleccionar] Expandir


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 

[hunter18]

Si hago lo que dices no voy a poder mover el mouse siempre quedata ahi.

[xkiz ™]

Código (vb) [Seleccionar] Expandir


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


[hunter18]

gracias por los minutos, saludos