¿Cómo evitar que el evento Keydown se active repetidamente en la programación VB?

Puede agregar una marca Num. Si Num=0, significa que se presiona por primera vez. Después de presionar, se establece Num=Num 1. Si Num=0, se envía. no se envía. Modifique de la siguiente manera:

dim Num as integer'Definir una variable global

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

if num =0 luego

Seleccione Case KeyCode

Caso 37 'izquierda

MSComm1.Output = "Le"

txtlinkmessage.Text = "Left"

Caso 38' arriba

MSComm1.Output="Ir"

txtlinkmessage.Text="Adelante"

Caso 39' derecha

MSComm1.Output="Ri"

txtlinkmessage.Text="A la derecha"

Caso 40' abajo

MSComm1. Salida = "Ba"

txtlinkmessage.Text = "Hacia atrás"

Caso más

KeyAscii = 0

Selección final

p>

end if

num=num 1

End Sub

Sub privado Form_KeyUp(Código clave como entero, Mayús como entero)

Seleccione Código Clave de Caso

Caso 37' izquierda

MSComm1.Output="Tu"

Caso 39' derecha

MSComm1 .Output = "Tu"

Caso 38' arriba

MSComm1.Output = "Di"

Caso 40' abajo

MSComm1 .Output = "Di"

Fin de selección

num=0

Fin de sub