Red de conocimiento informático - Espacio del host - Quiero crear un programa VB Al ejecutar el programa, presione y mantenga presionada la "Flecha izquierda", la Imagen 1 se mueve hacia la izquierda, presione y mantenga presionada la "Flecha derecha", la Imagen 1 se mueve hacia la derecha...

Quiero crear un programa VB Al ejecutar el programa, presione y mantenga presionada la "Flecha izquierda", la Imagen 1 se mueve hacia la izquierda, presione y mantenga presionada la "Flecha derecha", la Imagen 1 se mueve hacia la derecha...

Imagen 1, dos botones, reloj Timer1 control en el formulario Enum?DirectionConst

toLeft?=?1

toRight?=?2

p>

noMove?=?0

End?Enum

Dim?Direction?As?DirectionConst

Const?StepCount?=? 100

¿Privado?Sub?Command1_MouseDown(¿Botón?¿Como?Entero,?Mayús?Como?Entero,?X?Como?Único,?Y?Como?Único)

Temporizador1. ¿Habilitado?= ?Verdadero

Dirección?=?a la izquierda

Fin?Sub

Privado?Sub?Command1_MouseUp(Botón?As?Entero,?Mayús?As ?Integer, ?X?As?Single,?Y?As?Single)

Dirección?=?noMove

Fin?Sub

Privado?Sub? ¿Privado?Sub ?Command2_MouseDown(Botón?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)

Timer1.Enabled?=?True

Dirección?=?hacia la derecha

Fin?Sub

Privado?Sub?Command2_MouseUp(Botón?As?Entero,?Mayús?As?Entero,?X?As? ¿Único,? Y?As?Único )

Dirección?=?noMove

Fin?Sub

Privado?Sub?Form_Load()

Temporizador1 .Intervalo?=?60

Fin?Sub

Privado?Sub?Timer1_Timer()

Seleccionar?Caso?Dirección

Caso ?noMove

Temporizador1.Enabled?=?False

Caso?aDerecha

Imagen1.Izquierda?=?Imagen1.Izquierda?+?StepCount

Caso?aIzquierda

Imagen1.Izquierda?=?Imagen1.Izquierda?-?StepCount

Fin?Seleccionar

Fin?

上篇: Red de entretenimiento de Chengdu 下篇: Cuando publiqué en Moments, alguien le preguntó a mi mejor amiga y le dijo que la imité ¿Qué debo hacer?

Artículos populares