Red de conocimiento informático - Problemas con los teléfonos móviles - Imagen VB

Imagen VB

'Respuesta: Baidu HI Group & Fit Programming Society 1195277

Privado

Sub

Imagen1_MouseDown(Botón

Como

Entero,

Mayús

Como

Entero,

X

Como

Único,

Y

Como

Único)

Si

Botón

=

2

Y

Imagen1.Izquierda

<

6000

Luego

Para

i

=

Imagen1.Izquierda

A

6000

Imagen1.Izquierda

=

i

+

100

Siguiente

Else

MsgBox

"Debido a que la izquierda de la imagen 1 ha llegado a

6000, entonces el control del botón no es válido"

End

If

End

Sub