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 p>
¿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? p>