Visual Basic - [VB6] Detectar click en cualquier lugar
Publicado por Visual51 (2 intervenciones) el 02/08/2020 07:15:28
Hola estoy probando como detectar el detectar click en cualquier lugar incluyendo en "la barra de titulo".
Usando el api GetAsyncKeyState detecta dentro de cualquier ventana pero haciendo click en cualquier barra de titulo no lo detecta ni hizquierdo o derecho solo si arrastro la ventana lo detecta.
Alguna solución u otra forma de hacerlo.
Un ejemplo:
Usando el api GetAsyncKeyState detecta dentro de cualquier ventana pero haciendo click en cualquier barra de titulo no lo detecta ni hizquierdo o derecho solo si arrastro la ventana lo detecta.
Alguna solución u otra forma de hacerlo.
Un ejemplo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(1) = -32767 Then
Debug.Print "Click_1"
End If
If GetAsyncKeyState(2) = -32767 Then
Debug.Print "Click_2"
End If
End Sub
Valora esta pregunta
0