Projeto Aprenda em Casa - Cursos gratuitos

Clube VB - Trabalhando com arquivos de imagem

Aula 32

Neste módulo de aula, iremos iniciar nossos estudos sobre como trabalhar arquivos de imagem em aplicações VB6. O procedimento é muito simples e, como exemplo, iremos desenvolver um projeto que entre outras características irá oferecer ao usuário a possibilidade de selecionar o diretório do arquivo de imagem para que o mesmo possa ser visualizado.

O componente mais comum para se trabalhar com Imagens em aplicações VB6 é o IMAGE, em destaque na figura abaixo:

Os arquivos de imagem compatíveis com este controle são:

BMP;
ICO;
WMF;
JPG;
GIF.

O elemento gráfico a ser exibido no controle em questão estará definido na propriedade PICTURE do mesmo. Outra propriedade fundamental para se trabalhar com este componente é a STRETCH, podendo armazenar apenas True ou False. Caso esta propriedade esteja setada para TRUE a figura a ser exibida será redimensionada de acordo com o tamanho do controle definido pelo desenvolvedor, caso contrário a mesma será cortada para que possa se adequadar ao espaço disponibilizado.

Vamos desenvolver um projeto de exemplo para melhor compreensão dos tópicos estudados até este ponto:

Inicie um novo projeto no VB6;
Inclua no Form os seguintes componentes:

DriveListBox;
DirListBox;
FileListBox;
Image;
2 CommandButtons;
ListBox.

O seu formulário deverá estar com o seguinte aspecto:

A lógica deste projeto é simples: Os arquivos selecionados através de uma determinada unidade de disco (selecionada pelo componente DriveListBox) e uma determinada pasta deste (selecionada pelo componente DirListBox), serão exibidos no componente ListBox1 e, ao clicar no primeiro buttom, o referido arquivo será exibido no controle IMAGE constante da parte superior do formulário em questão.

Altere a propriedade CAPTION do primeiro CommandButton para "Abrir" e a do segundo para "Sair".

Vamos começar a codificar nosso sistema, começando pelo GENERAL DECLARATION do projeto. Neste declare uma variável chamada CONTADOR do tipo integer, conforme mostra a listagem a seguir:

Public contador As Integer

Esta variável irá na verdade indexar os itens selecionados na caixa LIST BOX para futuras manipulações. Adiante você irá entender o objetivo desta variável. Em seguida, vamos codificar o evento Form Load do projeto, onde iremos definir o tipo de arquivo que será aceito pelo sistema, aqui iremos definir arquivos JPG e GIF. Observe o código completo abaixo:

Private Sub Form_Load()
contador = 0
File1.Pattern = "*.gif;*.jpg"
End Sub

O próximo passo é codificar o controle DriveListBox. O objetivo do mesmo será o de possibilitar ao usuário a seleção de uma das unidades de disco disponíveis no equipamento. Para isso, no evento CHANGE do controle em questão, entre com a seguinte codificação:

Private Sub Drive1_Change()
ChDrive Drive1.Drive
Dir1.Path = Drive1.Drive
End Sub

O primeiro passo é utilizar o comando CHDRIVE que possibilita alterar o drive corrente para um novo, selecionado pelo usuário através de cliques. Esta nova unidade selecionada fica armazenada na propriedade Drive1.Drive. Em seguida, indicamos ao controle DirListBox (DIR1) o no path (caminho), que foi aquele selecionado no controle anterior, onde recuperamos a informação pela propriedade Drive1.Drive.

Agora, temos que codificar o controle DirListBox, para que o mesmo possibilite ao usuário alterar a pasta da unidade selecionada no procedimento anterior. No evento change do controle em questão, entre com a seguinte codificação:

Private Sub Dir1_Change()
ChDir Dir1.Path
File1.Path = Dir1.Path
End Sub

A lógica aqui empregada é a mesma do componente DriveListBox, sendo que o primeiro trata da unidade selecionada e o segundo da pasta selecionada.

Salve o projeto e, na próxima aula iremos continuar a codificação do nosso projeto.

Voltar