Cuando apreto A = timer1.enabled = false

[79137913]

HOLA!!!

Si queres detectar pulsaciones de teclas podrias usar el metodo Catch, que sirve pero hay veces que no reconoce la pulsacion y aparte consume muchos recursos, sino podes hacer un hook al teclado, pero dado a las preguntas que estas haciendo dudo que se te haga facil hacer un hook(sin ofender), por ende recomiendo catch en tu caso pero siempre es mejor un hook.

GRACIAS POR LEER!!!

[neeeko]

Pero si te dicen que tenes buscar cual es el problema? busca en google ejemplos de uso de hotkeys

Hice esto pero me tira error.

Código [Seleccionar] Expandir

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = (vbKeyF9) Then
     Timer1.Enabled = False
    End If
End Sub

[Edu]

A mi me funciona, dinos cual es el error

[neeeko]

sadfasdf

[Edu]

Estas haciendo tipo un bot? que al apretar la tecla A empieze a escribir espacios hasta que pulses la tecla S?
Creo que lo podias hacer simplemente sin apis aunque no es lo mejor..

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
   If KeyCode = vbKeyA Then
    Timer1.Enabled = True
    End If
   
   If KeyCode = vbKeyS Then
    Timer1.Enabled = False
    End If
   
End Sub
   
Private Sub Timer1_Timer()
SendKeys " "
End Sub


[neeeko]

@XXX-ZERO-XXX
Mira con el codigo que me pasaste no me anda boliya ... osea no para de apretar la barra con la s . Mira si yo ponele quiero hacer esto ... es mas facil ?

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = (vbKeyA) Then
     Command1_Click.Enabled = True
     End If

    If KeyCode = (vbKeyS) Then
     Command2_Click() = False
     End If

End Sub

Private Sub Timer1_Timer()
SendKeys " "
End Sub


[Edu]

No te confundas mucho, no hagas eso, y todavia esta mal.
A mi el codigo que te pase me funciona, dices que no para de presional el espacio pero lo presiona aunquesea? a mi me anda perfecto.

Al usar Form_KeyDown capturara las teclas que se presionen cuando estas situado en el form, si estas en otra cosa y apretas S obvio que no pasará nada.

[neeeko]

Sigo sin entender amigo ... La verdad no me sale . te agradezco igual e ante mano .
Saludos

[raul338]

Mira, buscar no cuesta nada

Este es el metodo catch que menciono 79137913, bien explicado, simple pero no es 100% eficaz - ElGuille - Usar HotKeys en VB6

Y aca, y aunque en ingles (no encontre el mismo codigo explicado en español  una lastima, despues habian metodos mas "dificiles" de implementarlo, o simplemente faciles con uso de clases, pero no era mi idea)
RegisterHotKey Visual Basic 6 API Function

[neeeko]

Mira, buscar no cuesta nada

Este es el metodo catch que menciono 79137913, bien explicado, simple pero no es 100% eficaz - ElGuille - Usar HotKeys en VB6

Y aca, y aunque en ingles (no encontre el mismo codigo explicado en español  una lastima, despues habian metodos mas "dificiles" de implementarlo, o simplemente faciles con uso de clases, pero no era mi idea)
RegisterHotKey Visual Basic 6 API Function

Hola , gracais por la rta ya lo habia encontrado el de guille peor cuando pongo el codigo me tira un errror . http://www.elguille.info/colabora/vb2006/lobosoft_HotKeys.htm