Se você precisa usar várias fotos em seu projeto Visual Basic , você não precisa ter dezenas de controles PictureBox , mostrando e escondendo-os quando necessário. Em vez disso , use o controle ImageList para manter uma coleção de imagens . Ao criar uma variável de índice , você pode mudar as imagens exibidas em seu programa. O ImageList em si precisa de outros controles para acessar e alterar as imagens ativas em seu programa, tais como botões de comando. Use Se as declarações para verificar o valor do índice de imagem para evitar causar erros de execução em seu programa. Instruções
1

Abra seu projeto Visual Basic no modo de design . Clique duas vezes no controle " ImageList " para adicionar um para o seu projeto. Esse controle não aparece como um controle físico sobre a forma, de modo que você não tem que configurar sua aparência ou nome para diferenciá-lo a menos que você quiser .
2

Clique no botão " ImageList1 " controlá-lo adicionados para abrir sua lista de propriedades. Clique em " Imagens" propriedades e , em seguida, a caixa com "..." nela . Isso abre a caixa de diálogo "Imagem Editor de coleção ", onde você armazenar sua coleção de fotos.
3

Clique no botão "Adicionar" . Navegue por seus arquivos de sistema para fotos e adicioná-los à coleção ImageList . Você pode adicionar mais de uma imagem de cada vez , se eles estão nas mesmas pastas. Note-se que as imagens começam em índice zero na lista de "Membros" . Quando terminar de adicionar imagens para a coleção , clique no botão "OK" .
4

Clique duas vezes no controle " PictureBox " a partir da barra de ferramentas para adicionar esse controle à sua lista. Além disso, clique duas vezes no controle de "Button" duas vezes para adicionar dois desses controles também. Organize os controles de ter os dois botões exibidos em uma linha com o PictureBox acima deles. Altere a propriedade "text" para o botão esquerdo para " Anterior " e " texto" de propriedades para o botão direito em " Avançar".
5

Abra a janela de código . Criar uma variável global para controlar o índice de imagem , digitando o seguinte :

Dim imageIndex As Short = 0
6

Acesse o sub " Button1_Click " e digite o seguinte:

Se imageIndex = 0 Then

imageIndex = ImageList1.Images.Count () - 1

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

Else

imageIndex - = 1

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

End If

Isso testa para ver onde o índice é . Se o usuário clicar no botão "Voltar" e que o índice é mostrar o primeiro item na ImageList , o índice se move para a última imagem na ImageList e exibe. Caso contrário, ele diminui o índice por um e mostra que o índice de imagem
7

Acesse o sub " Button2_Click " e digite o seguinte: .

Se imageIndex = ImageList1.Images.Count ( ) - 1 Depois

imageIndex = 0

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

Else

imageIndex + = 1 < br >

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

End If

como o botão "Voltar" , este teste para ver onde o índice é . Se o usuário clicar no botão "Avançar" e do índice está mostrando o item final no ImageList , o índice de volta para o primeiro dos itens ImageList e exibe. Caso contrário, ele incrementa o índice por um e exibe essa imagem.