Para guardar una colección de imágenes en un proyecto de Visual Basic , utilice un control ImageList . Sus funciones y métodos ayudan a cambiar rápida y fácilmente las imágenes en la aplicación mediante un índice , sino que también realiza un seguimiento de la cantidad de imágenes que existe en la colección . Se pueden visualizar las imágenes utilizando un control PictureBox. Usted tiene opciones ilimitadas para saber cómo cambiar la imagen, pero cada opción funciona con la misma programación básica en mente. Por ejemplo , use los botones "Anterior" y " Siguiente" para desplazarse por las imágenes de una colección con una variable de índice. Instrucciones
1

Abra un nuevo proyecto de Visual Basic . Agregar todos de un control PictureBox , control ImageList y dos botones al formulario. Organizar " Button1 " a la izquierda del cuadro de imagen y " Button2 " a la derecha .

2 Haga clic en el control " ImageList1 " y haga clic en "Elegir archivo ". En el cuadro de diálogo que aparece, haga clic en el botón " Add" . Navegue a través de sus archivos y agregar imágenes al control. Haga clic en el botón " OK" cuando haya terminado.
3

Cambiar el nombre de la propiedad de Button1 a " bPrevious " y la propiedad de texto a " anterior , " la propiedad de nombre de Button2 a " bNext "y la propiedad de texto a" Nueva Imagen "y la propiedad de nombre de PictureBox1 a" pbPicture . "
4

Press " F7 "para abrir la ventana de código . . Escriba " pictureIndex Dim As Integer " en la parte superior de la declaración de clase para crear una variable se utiliza como índice para su ImageList
5

abierto la función Form1_Load y escriba lo siguiente :
< p> pictureIndex = 0

pbPicture.Image = ImageList1.Images.Item ( pictureIndex )

Esto establece el valor de la variable de índice a cero y se inicializa el pbPicture con la primera imagen de la lista de imágenes .
6

Abra la función bPrevious_Click y escriba lo siguiente :

Si pictureIndex = 0 Entonces

pictureIndex = ImageList1.Images.Count - 1
< p > Otras ventas

pictureIndex = pictureIndex - 1

End If

pbPicture.Image = ImageList1.Images.Item ( pictureIndex )

Esto comprueba para ver si el índice de imagen se encuentra al principio de la ImageList y si es así , muestra el último elemento de la colección . De lo contrario , se decrementa el índice a uno, a continuación, muestra el valor de índice de la ImageList
7

Abra la función bNext_Click y escriba lo siguiente : .

Si pictureIndex = ImageList1.Images . conde - 1 Entonces

pictureIndex = 0

demás

pictureIndex = pictureIndex + 1

End If

pbPicture.Image = ImageList1 . Images.Item ( pictureIndex )

Esto comprueba para ver si el índice de imágenes se encuentra al final del ImageList y si es así , se muestra el primer elemento de la colección. De lo contrario, incrementa el índice a uno, a continuación, muestra el valor de índice de la ImageList .