Si es necesario utilizar varias imágenes en el proyecto de Visual Basic, no es necesario tener docenas de controles PictureBox , mostrar y ocultar cuando sea necesario . En su lugar , utilice el control ImageList para mantener una colección de imágenes . Al crear una variable de índice , es posible cambiar las imágenes que aparecen en su programa. El ImageList en sí necesita otros controles de acceso y cambiar las imágenes activos en el programa , tales como botones de comando. Utilice If para comprobar el valor del índice de imágenes que evite los errores de ejecución en su programa. Instrucciones
1

Abra el proyecto de Visual Basic en modo de diseño . Haga doble clic en el control " ImageList " para agregar uno al proyecto . Este control no aparecer como un control físico en el formulario, por lo que no tiene que configurar su apariencia o el nombre para diferenciarlo a menos que desee .

2 Haga clic en el control " ImageList1 " que añadido para abrir su lista de propiedades. Haga clic en " Imágenes" propiedades, y luego la caja con " ..." en ella . Esto abre el cuadro de " Image Collection Editor" diálogo en el que almacenar su colección de fotos.
3

clic en el botón "Add" . Navegar los archivos del sistema para las fotos y añadirlas a la colección ImageList . Usted puede agregar más de una imagen a la vez si están en las mismas carpetas . Tenga en cuenta que las imágenes comienzan en cero índice en la lista de " Miembros" . Cuando termine de añadir imágenes a la colección , haga clic en el botón " OK" .
4

doble clic en el control " PictureBox " de la barra de herramientas para agregar este control a su lista. También , haga doble clic en el control "Button" dos veces para añadir dos de estos controles también. Organice los controles para que los dos botones que se muestran en una fila con el PictureBox por encima de ellos . Cambie la propiedad "text " para el botón izquierdo en " Anterior " y la propiedad "text " para el botón derecho en " Siguiente".
5

Abra la ventana de código. Cree una variable global para realizar un seguimiento del índice de imágenes , escriba lo siguiente :

ImageIndex As Short = 0
6

acceso a los sub " Button1_Click " y escriba lo siguiente :

Si ImageIndex = 0 Entonces

ImageIndex = ImageList1.Images.Count () - 1

PictureBox1.Image = ImageList1.Images.Item ( ImageIndex )
< p > Otras ventas

ImageIndex - = 1

PictureBox1.Image = ImageList1.Images.Item ( ImageIndex )

End If

Esto prueba para ver si el índice es . Si el usuario hace clic en el botón " Back" y el índice muestra el primer elemento de la ImageList , el índice se mueve a la última imagen de la ImageList y lo muestra. De lo contrario , se decrementa el índice de uno y muestra que el índice de imágenes
7

Acceso a los sub " Button2_Click " y escriba lo siguiente : .

Si ImageIndex ImageList1.Images.Count = ( ) - 1 Entonces

ImageIndex = 0

PictureBox1.Image = ImageList1.Images.Item ( ImageIndex )

demás

ImageIndex + = 1 < br >

PictureBox1.Image = ImageList1.Images.Item ( ImageIndex )

End If

al igual que el botón "Atrás " , estas pruebas para ver si el índice está . Si el usuario hace clic en el botón "Adelante " y el índice está mostrando el punto final en el ImageList , el índice vuelve a la primera de las opciones ImageList y lo muestra. De lo contrario, se incrementa el índice de uno y muestra esa imagen.