[vb6] disabilitare la tastiera

[x69asterix]

ciao,
sto provando ad interfacciare un lettore di barcode ad un mio progetto, bene, la cosa ke mi ritorna utile e quello di sapere come fare a disabilitare tutti i tasti della tastiera, ad eccezzione di enter.
ciao

[tas]

Controlla i caratteri che arrivano agli eventi KeyPress, KeyDown e KeyUp. Quelli che non ti interessano li puoi annullare cancellando il carattere che ti arriva come parametro dall'evento. Ciao

[x69asterix]

Originariamente inviato da tas
Controlla i caratteri che arrivano agli eventi KeyPress, KeyDown e KeyUp. Quelli che non ti interessano li puoi annullare cancellando il carattere che ti arriva come parametro dall'evento. Ciao

ciao,
sono riuscito a trovare questo

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0
End Sub

e per i numeri come li disabilito?

[mardok30]

Potresti fare:
If KeyAscii <> 13 Then KeyAscii = 0
no?

[tas]

Beh, quell'esempio elimina tutto tranne le cifre (codice ascii da 48 a 57) e il backspace (ascii 8). Se vuoi solo l'invio...

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> vbKeyReturn Then
        KeyAscii = 0
    Else
        MsgBox "hai premuto return!"
    End If
End Sub

Ciao

[x69asterix]

Originariamente inviato da tas
Beh, quell'esempio elimina tutto tranne le cifre (codice ascii da 48 a 57) e il backspace (ascii 8). Se vuoi solo l'invio...

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> vbKeyReturn Then
        KeyAscii = 0
    Else
        MsgBox "hai premuto return!"
    End If
End Sub

Ciao

ok in effetti questa mi sembra + corretta.
Hai esperienza con i codici a barre?