Detectar pulsación del mouse

Falhor · #1 (**permalink**) 12/10/2006, 10:27

Bueno gente la cosa es que estoy haciendo un programa y hay 3 botones, cuando apreto uno de esos cambia una variable X al valor 1, yo quiero que cuando se haga click (Aunque sea fuera del form y de todo el programa) si ese valor es 1 cambie a 0 y tome las coordenadas... Eso lo tengo preparado, lo que no sé es cómo hacer que detecte la pulsación del mouse...

Saludos y gracias.

luciano · #2 (**permalink**) 12/10/2006, 13:32

te paso una forma. ..Saludos

Código:

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

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

Private Sub Timer1_Timer()


  
  If GetAsyncKeyState(1) = -32767 Then
     Me.Caption = " Presionaste el Botón izquierdo "
  End If
  If GetAsyncKeyState(2) = -32767 Then
     Me.Caption = " Presionaste el Botón derecho "
  End If


End Sub

Falhor · #3 (**permalink**) 12/10/2006, 19:54

Muchísimas gracias =).

Saludos.