SUBSTITUIR A TECLA SETA PARA BAIXA PELO ENTER

USUARIO.EXCLUIDOS 01/06/2004 15:55:46
#27674
Ola pessoal, gostaria de verificar se é possivel subustituir a tecla
"Seta para Baixo" Keycode 40 pelo "Enter" keyCode 13

Desde já agradeço a atenção

Jair Lopes
USUARIO.EXCLUIDOS 02/06/2004 16:05:28
#27878
Resposta escolhida
Vc pode setar a propriedade KeyPreview do form como TRUE e colocar o seguinte código no evento KeyDown do Form

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
SendKeys "+{Tab}"
KeyCode = 0
ElseIf KeyCode = vbKeyDown Then
SendKeys "{Tab}"
KeyCode = 0
End If

End Sub
USUARIO.EXCLUIDOS 02/06/2004 16:09:34
#27881
Desculpe,

Para o seu caso substitua o {TAB} por {ENTER}
Tópico encerrado , respostas não são mais permitidas