Visual Basic - Evento Movimiento Raton

Life is soft - evento anual de software empresarial
   
Vista:

Evento Movimiento Raton

Publicado por Alvaro (3 intervenciones) el 28/08/2009 12:46:57
Buenas a todos, tengo un pequeño problema con los eventos, yo quiero grabar las coordenadas de mi raton cuando este se mueve. Hasta la fecha he conseguido hacer esto siempre y cuando mi raton se este moviendo por el formulario que yo he creado, gracias al evento form_mouseMove, mi pregunta es si hay algun evento que se ejecute simplemente cuando el raton se mueva, de esa manera podre capturar las coordenadas del raton cuando se mueva, sin tener que limitarlo al movimiento dentro del formulario.
Muchas Gracias. Un saludo, Alvaro.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
ve a este lugar
http://vbasic.astalaweb.com/Cursor%20-%20Rat%C3%B3n/1_Cursor%20-%20Rat%C3%B3n.asp
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Evento Movimiento Raton

Publicado por alvaro (3 intervenciones) el 29/08/2009 10:27:45
Muchas Gracias por tu respuesta Juan Carlos, pero lamento decirte que todas las macros que hay ahi se centran en eventos que se producen dentro de un formulario y eso ya se hacerlo, el problema es si quiero que pase algo cuando el raton se mueve fuera del formulario
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Evento Movimiento Raton

Publicado por juan carlos (518 intervenciones) el 30/08/2009 01:28:11
hola alvaro
Inserta un modulo
pon este codigo
----------------------------------------------------------------
' Access the GetCursorPos function in user32.dll
Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
' Access the GetCursorPos function in user32.dll
Declare Function SetCursorPos Lib "user32" _
(ByVal X As Long, ByVal Y As Long) As Long
'Código para el Modulo
'Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Type POINTAPI
X As Long
Y As Long
End Type

Global PosicionCursor As POINTAPI
--------------------------------------------------------------------
Inserta una Form1
ponle un text1
ponle un text2
ponle un command1
inserta este codigo
-------------------------------------------------------------------
Private Sub Command1_Click()
'Código para el Procedimiento
'Definimos las variables
Dim CadenaResultante As Long

CadenaResultante = GetCursorPos(PosicionCursor)
'CadenaResultante = Devuelve cero en caso de error.

'mostramos el resultado
Text1.Text = PosicionCursor.X 'Posición Horizontal
Text2.Text = PosicionCursor.Y 'Posición Vertical

'Colocamos el cursor en la posicion 100,100 de la pantalla
Call SetCursorPos(100, 100)
End Sub
-------------------------------------------------------------------------

para usarlo ejecuta el programa pon el cursor donde sea y da enter
por ejemplo en la parte de arriba izquierda de la pantalla 0,0
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Evento Movimiento Raton

Publicado por Alvaro (3 intervenciones) el 30/08/2009 11:28:57
De nuevo agradecerte la información Juan, sin embargo lo que yo quiero hacer es que en los textbox salgan las coordenadas del raton CUANDO este se mueva. Despues de mucho buscar he conseguido hacerlo poniendo un timer y en su codigo diciendole que me muestre las coordenadas del raton cada X milisegundos. Bien, no es exactamente lo que queria hacer porque yo queria que se ejecutase codigo al mover el raton, pero me esta sirviendo.
Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar