Combinacion de teclas ¡¡¡¡

[Avellaneda]

Iniciado por happydent2

ya q la funicon Sendkeys no me funciona.

¿Estás trabajando con Vista? Efectivamente, la función SendKeys no funciona en Vista.

Te pongo cómo sería con Keybd_event

Código:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
    keybd_event vbKeyControl, 0, 0, 0
    keybd_event 70, 0, 0, 0
    keybd_event vbKeyControl, 0, &H2, 0
    keybd_event 70, 0, &H2, 0
End Sub

Nota: 70 es el código ascii de la letra "F"


Dice seba123neo:
si la usa mal se te puede quedar como trabado el teclado y tenes que reiniciar

Con keybd_event, puede ocurrir exactamente lo mismo si se usa mal