En tiempo de ejecución creo un array bidimensional de picturebox lo instacio, lo posiciono , , cargo imágenes de resources etc...
Código vb:
Luego tengo un botón en el cual al poner el ratón hago que las imágenes se desplacen hacia la derecha. Esto lo hago mediante un thread(hilo) que tiene un while que se ejecuta siempre y hace que se muevan las imágenes cuando pongo el ratón encima.Ver original
For j = 0 To 1 For k = 0 To 10 imagenes(j, k) = New PictureBox imagenes(j, k).Location = New Point(0, 0) imagenes(j, k).Size = New Point(87, 105) imagenes(j, k).Name = "imagenes" imagenes(j, k).BackgroundImageLayout = ImageLayout.Stretch imagenes(j, k).TabIndex = 101 Next Next
Código vb:
Ademas tengo otro while que comprueba si las imágenes ya no se muestran en el formulario y las pone al final para conseguir un efecto ruleta.Ver original
While True If giro = True Then For i = 0 To 10 imagenes(indice, i).Location = New Point(imagenes(indice, i).Location.X - 5, imagenes(indice, i).Location.Y) Next Thread.Sleep(10) End If End While
Código vb:
Ver original
While True For i = 0 To 10 If imagenes(indice, i).Location.X < 80 Then imagenes(indice, i).Location = New Point(ultimo.location.x + 95, imagenes(indice, i).Location.Y) ultimo = imagenes(indice, i) End If Next 'End If End While
Esto ultimo me lo hace bien, pero el tema de mover las imágenes de izquierda a derecha no lo hace fluido...
conoceis la forma de optimizar este movimiento, o hacer q renderice mejor?
PD: las imagenes q estoy utilizando so jpeg de una resolucion normal-pequeña y pesan alrededor de 46kB
GRACIAS DE ANTEMANO