Ejemplos usando el Api de windows para Visual basic

153 - Utilizar el Api keybd_event en vez de SendKeys

Volver al Listado Api - Anterior - Siguiente

Ejemplo que muestra el uso de esta función Api para enviar pulsaciones de teclas

Esta función permite enviar pulsaciones de teclas , es similar a SendKeys pero esta última a mi por lo menos hay veces que me ha dado problemas, no asi con el Api. El motivo de este problema lo desconozco.

En el el siguiente código fuente, hay una función de ajuste llamada Pulsar_Tecla

Sub Pulsar_Tecla(Tecla As Long)

Como se ve, el parámetro que lleva es un valor de tipo Long que representa a la tecla a la cual queremos enviar la pulsación. Los valores para las teclas los podés obtener desde el examinador de objetos de visual basic, o utilizar las constantes del Api para teclas

Lo siguiente lo que hace es simular la presión de la tecla Tab para pasar el foco al control correspondiente, y se le envía como parámetro el valor: vbKeyTab

Colocar un Timer ( con el interval en 1000 ) y algunos controles cualquiera, por ejemplo dos textbox y dos commandbutton.

Código fuente en el formulario

' Constantes para las teclas y otros Const KEYEVENTF_KEYUP = &H2 Const KEYEVENTF_EXTENDEDKEY = &H1 'Declaración del Api keybd_event para la presión de tecla Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) Sub Pulsar_Tecla(Tecla As Long) Call keybd_event(Tecla, 0, 0, 0) Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0) End Sub ' Presiona la tecla Tab Private Sub Timer1_Timer() Call Pulsar_Tecla(vbKeyTab) End Sub

Enlaces relacionados

Api keybd_event para capturar la pantalla ( presionar la tecla Print-screen )

Buscar en Recursos vb