TECLAS DE DIRECAO DO TECLADO

CENTRALTEK 19/10/2013 20:29:11
#430173

Ola Amigos blz
Eu fiz um programa de comando Seriaport1

Tenho 2 Botões. Para que as teclas de Direção funcionar tenho deixar 1 textbox no programa Se não tiver o textbox só funciona quando eu solto o botão

Aqui o exemplo que eu estou usando
Obrigado

Private Sub Form1_Keydown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If isConnected = True Then
Select Case e.KeyCode
Case Keys.Up
out = [Ô]A[Ô]
SerialPort1.Write(out)

Case Keys.Down
out = [Ô]B[Ô]
SerialPort1.Write(out)

Case Keys.Right
out = [Ô]C[Ô]
SerialPort1.Write(out)

Case Keys.Left
out = [Ô]D[Ô]
SerialPort1.Write(out)

End Select
End If
End Sub

Private Sub Form1_Keyup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
If comOpen = True Then
Select Case e.KeyCode
Case Keys.Up
out = [Ô]PC[Ô] & [Ô]0[Ô]
SerialPort1.Write(out)

Case Keys.Down
out = [Ô]PC[Ô] & [Ô]0[Ô]
SerialPort1.Write(out)

Case Keys.Right
out = [Ô]PC[Ô] & [Ô]0[Ô]
SerialPort1.Write(out)

Case Keys.Left
out = [Ô]PC[Ô] & [Ô]0[Ô]
SerialPort1.Write(out)
End Select
End If
End Sub