KEYDOWN 0

USUARIO.EXCLUIDOS 23/04/2004 00:05:58
#22085
Como faço para eu controlar o teclado com o evento KeyDown, tipo assim:

If Keycode = 27 then
????
end if

if Keycode 0 then
não manda nada para o textbox
end if

com o Keypress é so colocar assim

keypress = 0

que funciona mas o keydown não! alguem sabe como fazer isso com ele?
CAJU 26/04/2004 23:45:21
#22809
Resposta escolhida
é um bom artifício:


Dim KeyD As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then KeyD = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyD = True Then KeyAscii = 0: KeyD = False
End Sub


o primeiro evento acionado é Keydown, depois o Keypress
tá valendo?
Tópico encerrado , respostas não são mais permitidas