SUBSTITUIR A TECLA SETA PARA BAIXA PELO ENTER
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
"Seta para Baixo" Keycode 40 pelo "Enter" keyCode 13
Desde já agradeço a atenção
Jair Lopes
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
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
Desculpe,
Para o seu caso substitua o {TAB} por {ENTER}
Para o seu caso substitua o {TAB} por {ENTER}
Tópico encerrado , respostas não são mais permitidas