Cuando apreto A = timer1.enabled = false

[Edu]

Entonces hay algo que no nos estas diciendo, es decir, dinos mas que hace tu codigo, ya que por ejemplo el link que dejaste dice esta nota:

Observaciones:
El Timer1 tiene que tener un intervalo de 10 para que detecte las teclas sin dejarse ninguna ( cosa que pasaría si pusiéramos un intervalo de 2000 por ejemplo. )

Fijate si no es tu caso..

[neeeko]

Entonces hay algo que no nos estas diciendo, es decir, dinos mas que hace tu codigo, ya que por ejemplo el link que dejaste dice esta nota:

Fijate si no es tu caso..

Me itra un error  en la declaracion ( _

[79137913]

HOLA!!!

xxxZEROxxx, no el codigo que ingresaste, no le sirve, el no quiere detectar la pusacion con el formulario activo, el quiere en otro programa apretar tecla cualquiera (Homero: "Esto de la computacion es muy dificil, no puedo encontrar la tecla 'Cualquiera'") y luego que se ejecute lo que el quiere.

GRACIAS POR LEER!!!

[CAR3S?]

no lei las respues tas pero te digo lo "logico"

1 timer con intervalo 1 (aparte) ON

2 verifico casa 1 (el intervalo 1), si la tecla A esta siendo apretada

esta apretada? (if then)
si? entonces,
timer1.enabld=false
no?entonces, no pasa nada

end sub

[Edu]

De todos modos no dice nada el usuario xD

Porque no dejas TODO EL CODIGO y nos marcas bien cual es el error, y seria bueno que digas que intentas hacer porque talvez quieres hacer lo que dice 79137913 ya que las letras A y S se apretan solo si tienes el form activo..

[BlackZeroX]

Estero sepas leer, si no sabes ingles, hay esta el traductor de google.

Hooks.
SetWindowsHookEx Function (puedes usar alguna de estas dos constantes: WH_KEYBOARD_LL o WH_KEYBOARD).

P.D.: raul338 tiene un Ctl que te puede ayudar en esto que deseas hacer.

Dulces Lunas!¡.

[neeeko]

Gente . NEsecito ayuda con este code .

Código [Seleccionar] Expandir

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vbKey As Long) As Integer
Private Declare Sub keybd_event Lib "user32.dll" (_ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwflags As Long, _
    ByVal dwExtraInfo As Byte) As Integer


Public Const VBKeyALT = &H12
Public Const VBKeyF4 = &H73

Me dice que no se puede poner el _ y el as....
Ayuda porfavor

[raul338]

El _ (si no es parte del nombre de un objeto) es un indicador de que continua en la siguente linea, y no debe haber nada mas hasta el fin de linea

deberia quedarte asi

Código (vb) [Seleccionar] Expandir

Private Declare Sub keybd_event Lib "user32.dll" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwflags As Long, _
    ByVal dwExtraInfo As Byte) As Integer



PD: Pon siempre codigo en [code=vb]Private s As String ' Codigo coloreado![/code]
y se ve asi

Código (vb) [Seleccionar] Expandir

Private s As String ' Codigo coloreado!