USANDO TECLAS

USUARIO.EXCLUIDOS 06/01/2005 00:24:41
#58897
Ai galera, gostaria de saber qual e o para usar o teclado em meu programa, por exemplo:

a setinha para cima executa tal função
a setinha para baixo outra
e asism vai

obrigado
RE.NANER 06/01/2005 00:28:34
#58899 Resposta escolhida
Espero q ajude
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then
   MsgBox "Seta para Baixo"
End If
If KeyCode = 38 Then
   MsgBox "Seta para Cima"
End If
If KeyCode = 37 Then
   MsgBox "Seta para Esquerda"
End If
If KeyCode = 39 Then
   MsgBox "Seta para Direita"
End If
End Sub


Falows
USUARIO.EXCLUIDOS 06/01/2005 08:04:50
#58915
ou ao invez de numeros

vbkeydown
vbkeyleft
vbkeyup
vbkeyright
THIAGO.CESAR 06/01/2005 09:43:03
#58944
Os exemplos acima são ideais... você pode simplificar também usando o case

Select Case KeyCode
Case 40: Msgbox "Seta para baixo"
Case 38: msgbox "Seta para cima"
End select

Para descobrir o código da tecla, coloque no evento keydown um
msgbox keycode
USUARIO.EXCLUIDOS 06/01/2005 16:31:20
#59051
Pode tentar dessa forma:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If keyCode = vbKeyLeft Then _
..linha de codigos..
If KeyCode = vbKeyRight _
..linha de codigos..
If KeyCode = vbKeyUp _
..linha de codigos..
If KeyCode = vbKeyDown Then _
..linha de codigos..
End Sub

'E so mais uma dica. O bom desse codigo e que não e preciso colocar End If.
Espero que funcione. Saludos:
Marlon
Tópico encerrado , respostas não são mais permitidas
Voltar