Disposición aleatoria de la programación vb
Es muy sencillo.
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