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 .