Você pode usar o Visual Basic para criar um programa para exibir um grupo de imagens da forma que desejar , como na apresentação de slides ou em formato miniatura. VB 6.0 tem ImageList controle, que armazena imagens em uma matriz que você pode acessar com o índice e exibir em um ou mais controles de imagem. Instruções
1
Clique em " Project" no menu e clique em "Componentes" da lista suspensa , ou pressione "CTRL + T" no teclado para abrir o menu de componentes. Desloque-se para " Microsoft Windows Common Controls 6.0 ( SP6 )" e clique na caixa de seleção ao lado dele. Clique em " OK". Isso adiciona várias novas ferramentas à caixa de ferramentas , incluindo o controle ImageList .
2
Clique duas vezes no controle ImageList na caixa de ferramentas para adicionar um a sua forma . Clique no ImageList em seu formulário e dê um duplo clique no botão " (Custom) " opção na janela Propriedades. Isso abre uma caixa de diálogo para suas imagens.
3
Clique na aba " Imagens " . Clique em " Inserir Imagem " e navegue até as suas imagens. Clique duas vezes sobre o que você precisa carregá-lo em seu ImageList . Repita esse processo para fazer upload de todas as imagens que você precisa. Clique em " OK" para fechar a caixa .
4
Clique duas vezes no controle "Imagem" na caixa de ferramentas para adicionar um para o seu projeto. Clique e arraste suas bordas para redimensioná-la , se necessário. Altere a propriedade " Stretch" como "True ".
5
Adicione dois controles CommandButton na caixa de ferramentas para seu formulário. Altere a propriedade " Caption " dos primeiros a " anterior" e da segunda para "Avançar". Organize seus controles em seu formulário. Seu controle ImageList não vai mostrar em tempo de execução , de modo que você pode deixá-lo onde quer que você preferir.
6
Abra a janela de código . Crie uma variável de contagem global , digitando " Dim picNum As Integer " em " Option Explicit ". Acesse a sua função " Form_Load () " . Digite " picNum = 1" na primeira linha e " Image1.Picture = ImageList1.ListImages.Item ( picNum ) . Imagem" na linha seguinte . Isto irá carregar a primeira imagem de seu ImageList em sua caixa de Imagem
7
Abra o código do seu botão de comando "Avançar" e digite as seguintes linhas : .
If Not picNum = ImageList1.ListImages.Count Então
picNum = picNum + 1
Else
picNum = 1
End If
Image1.Picture . = ImageList1.ListImages.Item ( picNum ) Imagem
8
Abra o código do seu botão de comando " Anterior " e digite as seguintes linhas :
If Not picNum = 1 então
picNum = picNum - 1
Else
picNum = ImageList1.ListImages.Count
End If
Image1.Picture = ImageList1 . ListImages.Item ( picNum ) . Imagem
9
Execute o programa e teste seus botões. O controle de imagem será exibida uma imagem do seu ImageList . Percorra as imagens clicando nos botões de comando anterior e seguinte.
