07/12/2009, 07:10
|
 | | | Fecha de Ingreso: junio-2003
Mensajes: 875
Antigüedad: 21 años, 7 meses Puntos: 5 | |
| Mover Cursor
Hola gente, estoy tratando de hacer que a un evento determinado el mouse se mueva, lo estoy tratando sin exito de la siguiente forma.
Dim TamX As Integer = Screen.PrimaryScreen.Bounds.Width
Dim TamY As Integer = Screen.PrimaryScreen.Bounds.Height
de esta manera obtengo la resolucion de la pantalla
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
de esta forma muevo el mouse!!
para movero hacia la derecha "Eje X", creo que se deberia hacer un bucle que disminuya los valores en el eje X, el tema con esta idea es que tiene 2 problemas
1.- no se como obtener la posicion actual del mouse para poder manejar los valores.
2.- trate de hacer un bucle y me consume muchos recursos del CPU.
alguien me puede dar una ayudita?
gracias.
__________________ La mejor manera de aprender es por medio de un aprendizaje significativo.... http://www.cocert.cl |