|
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 |