Clube VB - Trabalhando com arquivos de imagem - Parte II

Aula 33

Agora vamos codificar o controle FileListBox, que terá a função de exibir os arquivos gráficos da pasta especificada no controle DirListBox e exibir o respectivo gráfico no controle Image. Os comandos deste controle são vistos abaixo:


Private Sub File1_Click()
If Right$(Dir1.Path, 1) = "\" Then
arquivo = Dir1.Path + File1.FileName
Else
arquivo = Dir1.Path + "\" + File1.FileName
End If
Image1.Picture = LoadPicture(arquivo)
List1.AddItem arquivo
End Sub

Nas primeiras linhas de comando, estamos testando a principio se o último caracter do caminho selecionado no controle Dir1 é uma barra, se positivo, poderemos armazenar na variável arquivo o nome da pasta/caminho e em seguida o nome do arquivo a ser exibido, caso contrário, iremos montar a símbolo de barra entre o nome da pasta/caminho e o nome do arquivo. Se não existir um caminho completo incluindo a sintaxe, não teremos como abrir a figura no controle image. A sintaxe é:

unidade:\caminho\nome_arquivo_gráfico

Após ter este caminho somado ao nome do arquivo selecionado no controle FileListBox, iremos carregar o mesmo no controle Image, conforme a linha Image1.Picture = LoadPicture(arquivo). Em seguida, vamos adicionar o arquivo selecionado ao controle ListBox, para que este arquivo possa ser recuperado posteriormente, mesmo que o usuário tenha navegado para outra pasta, tal procedimento se deu com a linha List1.AddItem arquivo.

Vale a pena lembrar que é interessante que a propriedade Strech do componente Image seja alterada para True, assim sendo, a figura selecionada terá seu tamanho ajustado para o componente Image do Form.

Agora execute o seu sistema e selecione alguns arquivos de imagem que estejam armazenados nas pastas do seu disco rígido. Veja um exemplo abaixo, da seleção de um determinado arquivo do disco rígido, com o programa em execução:

Na próxima aula iremos ver a forma correta de abrir um dos arquivos que foram carregados no controle ListBox.

 

Voltar

Principal | Cursos Gratuitos | Cursos Diversos | Dicas | Promoções | Mapa do Site | QUIZ |
| Classificados | Central Currículo | Fórum | Fale Conosco