Visual Basic - Donde esta el puntero

Life is soft - evento anual de software empresarial
 
Vista:

Donde esta el puntero

Publicado por Marco (5 intervenciones) el 24/07/2007 20:23:05
¿con que codigo puedo saber cuando el puntero esta fuera de un form?

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:Donde esta el puntero

Publicado por barca1010 (132 intervenciones) el 26/07/2007 09:11:52
Con el evento

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

puedes saber cual es la posicion del cursor(x,y) lo unico que se me ocurre para saber si esta fuera del formulario es asignarle una variable a la posicion x y a la posicion y compararla con el tamaño del form y que cuando sean igual (lo cual quiere decir que esta casi fuera) te notifique que no estas dentro del form....

espero que esto te pueda ayudar en algo
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:Donde esta el puntero

Publicado por pp (7 intervenciones) el 24/01/2009 21:04:52
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