Visual Basic - MOVIMIENTO DEL MOUSE...

Life is soft - evento anual de software empresarial
 
Vista:

MOVIMIENTO DEL MOUSE...

Publicado por Martin {^_^} (127 intervenciones) el 18/04/2001 21:44:12
saludos a todos...
¿alguien sabe de un codigo para detectar el movimiento del mouse fuera del formulario?

¿o detectar la pulsacion de una tecla?

es decir, las instrucciones:

Private Sub Form_KeyPress(KeyAscii As Integer)
Print "ksjd"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "moviendose"

End Sub

funcionan solo si el formulario tiene el foco...
solo cuando el mouse pasa encima del formulario.

¿pero cómo se puede hacer para detectar estos eventos fuera del area del formulario?

gracias...
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

RE:MOVIMIENTO DEL MOUSE...

Publicado por Germán Agostini (18 intervenciones) el 20/04/2001 05:32:19
fijate con el objeto screen, tambien hay una API que no me acuerdo cual es que controla el movimiento del mouse, es la que una Windows para activar el ScreenSaver
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:MOVIMIENTO DEL MOUSE...

Publicado por pp (7 intervenciones) el 24/01/2009 21:04:01
que casualida yo estaba con lo mismo detectar el movimietno del raton fuera del formulario jeje,coloca un timer

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim Mouse As POINTAPI

Private Sub Form_Load()

'Ponemos el Timer en 100
Timer1.Interval = 100
Me.FontSize = 10
End Sub

Private Sub Timer1_Timer()

'Ejecutamos la función y recuperamos la posicion del cursor
Call GetCursorPos(Mouse)

' limpia el form
Me.Cls

Me.Print "Posicion del cursor :"
'Imprimimos las cordenadas X e Y devueltas por el api
Me.Print "X:" + Str$(Mouse.X) + vbCrLf + "Y:" + Str$(Mouse.Y)

End Sub
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