Red de conocimiento informático - Problemas con los teléfonos móviles - Este es un programa simple en vb6.0. El requisito es: cuando se presionan las teclas A, S, D, W, las etiquetas en el formulario se moverán hacia la izquierda, abajo, derecha y arriba.

Este es un programa simple en vb6.0. El requisito es: cuando se presionan las teclas A, S, D, W, las etiquetas en el formulario se moverán hacia la izquierda, abajo, derecha y arriba.

'Primero establezca la propiedad KeyPreview del formulario en True

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

Seleccione Case KeyCode

Case vbKeyA

Si a - 200 gt; = 0 Entonces

Etiqueta1.Mover a - 200, b

a = a - 200

Fin If

Caso vbKeyD

Si a 200 lt; = Forma1.Mover a, b - 200

b = b - 200

Fin Si

Caso vbKeyS

Si b 200 lt; = Form1.ScaleHeight - Label1.Height Then

Label1.Move a, b 200

b = b 200

Finalizar si

Finalizar selección

Finalizar sub