Sección de códigos , trucos y ejemplos para visual basic

25 - Interceptar una tecla en un formulario Mdi con el Api GetAsyncKeyState

Debido a que los formularios Mdi no tienen la propiedad KeyPreview que poseen los formularios normales para poder interceptar una tecla antes que la intercepte un control dentro del formulario, una forma es mediante este ejemplo.

En el siguiente código, cuando pulsamos la tecla F9 se muestra un mensaje . Para esto usamos la función GetAsyncKeyState, resumidamente en el ejemplo anterior.

Formulario mdi

Nota: Otra forma mejor que esta, si necesitamos interceptar una combinación de teclas, es usando la función RegisterHotKey mediante un hook, ya que permite hacerlo sin usar un timer, y de esta manera poder ahorrar recursos en nuestro programa.

Controles

Colocar un control Timer en un Formulario Mdi

Código fuente en un Mdi

Option Explicit 'Código fuente en un form MDI con un Timer1 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Declaramos el Api GetAsyncKeyState Private Declare Function GetAsyncKeyState _ Lib "user32" ( _ ByVal vKey As Long) As Integer ' Valores de teclas : (f1 = 112) _ (f2 = 113) _ (f3 = 114) _ (f4 = 115) _ (f5 = 116) _ etc.... o también : _ VbkeyF1, VbkeyF2 etc... Private Sub MDIForm_Load() Timer1.Interval = 10 End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Timer1_Timer() Dim x As Long 'para los 255 códigos Ascii For x = 0 To 255 'si se ha pulsado una tecla la APi devuelve -32737 If GetAsyncKeyState(x) = -32767 Then 'Si se presiono la tecla F9 mostramos el mensaje If x = 120 Then MsgBox " Se presionó la tecla: F9 ", vbInformation End If End If Next End Sub

Buscar en Recursos vb