Cómo cambiar una imagen en Visual Basic

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

Instrucciones

1 Abra un nuevo proyecto de Visual Basic. Añadir todos un control PictureBox, el control ImageList y dos botones a la forma. 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 "Añadir". Navegar a través de sus archivos y agregar imágenes para el control. Haga clic en el botón "Aceptar" cuando haya terminado.

3 Cambie la propiedad nombre para Button1 para "bPrevious" y la propiedad de texto para "anterior", la propiedad de nombre de Button2 a "bNext" y la propiedad de texto para "Nueva Imagen" y la propiedad nombre para PictureBox1 a "pbPicture."

4 Pulse la tecla "F7" para abrir la ventana de código. Tipo "Dim pictureIndex como número entero" en la parte superior de la declaración de clase para crear una variable se utiliza como un índice para su ImageList.

5 Abra la función Form1_Load y escriba lo siguiente:

pictureIndex = 0

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

Esto define el valor de la variable de índice a cero e 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

Más

pictureIndex = pictureIndex - 1

Terminara si

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

Esto se 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, disminuye el índice de a uno, a continuación, muestra que el valor del índice de la ImageList.

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

Si pictureIndex = ImageList1.Images.Count - 1 A continuación,

pictureIndex = 0

Más

pictureIndex = pictureIndex + 1

Terminara si

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

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