Para salvar uma coleção de imagens em um projeto de Visual Basic , use um controle ImageList . Suas funções e métodos ajudá-lo rápida e facilmente alterar as imagens no aplicativo usando um índice , mas também mantém o controle de quantas imagens existem na coleção. Você pode exibir imagens usando um controle PictureBox. Você tem opções ilimitadas para como alterar uma imagem, mas cada opção funciona com a mesma programação básica em mente. Por exemplo, use "Next" botões " Anterior " e para percorrer as imagens em uma coleção com uma variável de índice. Instruções
1

Abra um novo projeto Visual Basic. Adicionar tudo de um controle PictureBox , controle ImageList e dois botões ao formulário . Organizar "Button1 " para a esquerda da PictureBox e " Button2 " para a direita.
2

direito do mouse no controle " ImageList1 " e clique em "Escolher Imagens ". Na caixa de diálogo que aparece , clique no botão "Adicionar" . Navegue por seus arquivos e adicionar imagens para o controle. Clique no botão " OK" quando terminar.
3

Altere o nome da propriedade para Button1 para " bPrevious " ea propriedade de texto para " Anterior ", o nome da propriedade para Button2 para " bNext "ea propriedade de texto para " Next imagem " eo nome da propriedade para PictureBox1 para " pbPicture ".
4

Pressione" F7 "para abrir a janela de código . Digite " Dim pictureIndex As Integer " no topo da declaração da classe para criar uma variável que você usa como um índice para o ImageList
5

Abra a função Form1_Load e digite o seguinte: .

pictureIndex = 0

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

Isso define o valor da variável índice de zero e inicializa o pbPicture com a primeira imagem na lista de imagens .
6

Abra a função bPrevious_Click e digite o seguinte :

Se pictureIndex = 0 Then

pictureIndex = ImageList1.Images.Count - 1

Else

pictureIndex = pictureIndex - 1

End If

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

Este verifica se o índice de imagem está no início do ImageList e em caso afirmativo, exibe o último item da coleção. Caso contrário, ele diminui o índice a uma, em seguida, exibe o valor de índice do ImageList
7

Abra a função bNext_Click e digite o seguinte: .

Se pictureIndex = ImageList1.Images . Contagem - 1 Então

pictureIndex = 0

Else

pictureIndex = pictureIndex + 1

End If

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

Este verifica se o índice de imagem está no final do ImageList e em caso afirmativo, exibe o primeiro item na coleção . Caso contrário, ele incrementa o índice a uma, em seguida, exibe o valor de índice do ImageList .