Foros del web, para los que viven de bits

albertosalvad4 · 30-mar-2005, 08:11

Ei!!

Quiero mover el puntero del raton de un sitio a otro horizontalmente sin parar.
Pero no se como hacerlo

Como determino las coordenadas del puntero del raton??

Gracias

GeoAvila · 30-mar-2005, 08:22

el codigo seria algo asi..

Código:

Option Explicit

Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long
SetCursorPos 256, 256
a = 2
b = 5
c = a + b
SetCursorPos 512, 512
End Sub

nos vemos..

albertosalvad4 · 30-mar-2005, 08:56

Muchas gracias

eres el mejor

30-mar-2005, 08:11	#1 (permalink)
albertosalvad4 Fecha de Ingreso: noviembre-2004 Mensajes: 30	Mover raton de un sitio a otro! Ei!! Quiero mover el puntero del raton de un sitio a otro horizontalmente sin parar. Pero no se como hacerlo Como determino las coordenadas del puntero del raton?? Gracias Última edición por albertosalvad4; 30-mar-2005 a las 08:13.

30-mar-2005, 08:22	#2 (permalink)
GeoAvila Colaborador Fecha de Ingreso: diciembre-2003 Ubicación: Antigua Guatemala Mensajes: 3.780	el codigo seria algo asi.. Código: Option Explicit Private Declare Function SetCursorPos Lib "user32" _ (ByVal x As Long, ByVal y As Long) As Long Private Sub Command1_Click() Dim a As Long, b As Long, c As Long SetCursorPos 256, 256 a = 2 b = 5 c = a + b SetCursorPos 512, 512 End Sub nos vemos.. __________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

30-mar-2005, 08:56	#3 (permalink)
albertosalvad4 Fecha de Ingreso: noviembre-2004 Mensajes: 30	Muchas gracias eres el mejor