Visual Basic - Obtener el cursor del mouse GetCursor()

Life is soft - evento anual de software empresarial
 
Vista:

Obtener el cursor del mouse GetCursor()

Publicado por Juan Manuel Lopera (27 intervenciones) el 15/03/2006 13:42:38
Buen día,
necesito obtener el icono actual del cursor del mouse para luego pintarlo en un picture o el mismo form. Estuve probando con GetCursor del API pero sólo me devuelve el cursor del mouse en el formulario mientras este esté activo, tal y como lo hace el form.cursor. Sin embargo, necesito obtener el cursor del mouse en todo momento, aún cuando el formulario no esté activo ni el mouse esté sobre la región visible del mismo.

Muchas Gracias

JUAN MANUEL LOPERA
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:Obtener el cursor del mouse GetCursor()

Publicado por LLE (2 intervenciones) el 15/03/2006 15:16:35
Pone un timer:
-------------------------------------------------------------------------

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Me.Cls
DrawIcon Me.hdc, 0, 0, GetCursor
End Sub

Saludos

www.recursosvisualbasic.com.ar
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