Disposición aleatoria de la programación vb

Atenuar imagen(8) a imagen

Atenuar ImageID(8) es un número entero

Subcomando privado 1_Click()

Dígito I como un número entero

Dim Temp(8) como un número entero

Dim selecciona un número en forma de entero

Para i = 0 a 8

Temperatura(i) = i

Luego

Aleatorización (temporizador)

Para i = 8 a 0 tamaño de paso -1

Número Elegido = Int(i * Rnd)

ID de Imagen(8 - i) = Temp(Número Elegido)

Temp(Número Elegido) = Temp(i)

Entonces

Para i = 0 a 8

Imagen 1(i). Imagen = pic(ImageID(i))

Si ImageID(i) = 8, entonces XPosition = i

Entonces

start=true

MoveTimes = 0

Conector final

Subform_Load() privado

Marcar I como un número entero

Para i = 0 a 8

Establezca imagen(i) = Imagen1(i). Dibuja

luego

conector final