¿Cómo finalizar el formulario haciendo clic en cualquier tecla fuera del formulario en VB? Por favor escriba el código fuente.
Opción explícita
Función de declaración privada GetAsyncKeyState Lib "user32 " (ByVal vKey siempre) como entero
Función de declaración privada GetCursorPos Lib "user32 " (lpPoint como POINTAPI) mientras
Función de declaración privada GetWindowRect Lib "user32 " (ByVal hwnd As Long, lpRect As Long) As Long
Tipo privado RECT
Dejado As Long
Arriba hasta el largo
Derecha hasta el largo
Abajo hasta el largo
Tipo final
Tipo privado POINTAPI
X tan largo
Y tan largo
Tipo de fin
Atenuar p como POINTAPI, r como RECT
Subtemporizador privado1_Timer()
Atenuar a As Long
a = GetAsyncKeyState(1)
Si a = -32767 Entonces
GetCursorPos p
GetWindowRect hwnd, r
Si p.r.Top o p.X > r.Right o p.Y > r.Bottom, entonces descárgame
End If
End Sub