Clube VB - Utilizando caixas de lista de unidades, diretórios e arquivos

Aula 22

Neste módulo iremos estudar três controles que normalmente são utilizados em conjunto em um projeto. Veja no gráfico a seguir os três controles que iremos estudar marcados e numerados:

01 - Caixas de lista de unidades

  02 - Caixas de lista de diretórios

03 - caixas de lista de arquivos

O controle caixa de lista de unidades (DriveListBox) permite ao usuário selecionar uma determinada unidade a ser trabalhada (drive de disquete, drive de CD, Winchester, etc...). Este controle poderá ser utilizado tanto para selecionar um drive para leitura de dados como para gravação de dados.

Como principal propriedade deste componente temos a DRIVE, sendo que esta é uma propriedade de execução e que retorna ao sistema a unidade de drive selecionada pelo usuário durante a execução do projeto.

A propriedade em questão é sempre utilizado em conjunto com o evento OnChange, ou seja, quando o usuário selecionar uma nova unidade

Já as caixas de lista de diretórios (DirListBox) permite selecionar um diretório (pasta) na unidade que estiver ativa (selecionada pelo controle DriveListBox). As propriedade mais utilizada neste controle é a Path que armazena o caminho que está sendo utilizado no drive selecionado. 

Já o evento mais utilizado é o Change(), ou seja, quando selecionarmos um novo caminho (patch).

As caixas de listas de arquivos (FileListBox) é utilizada para relacionar os nomes dos arquivos que estão em um determinado caminho (DirListBox)/unidade (DriveListBox). Dentre as principais propriedades deste controle, podemos destacar:

• Path - armazena o caminho na qual os arquivos devem ser relacionados;

• FileName - armazena o nome do arquivo que está/estará sendo manipulado;

• Pattern - define a extensão dos arquivos visíveis no controle

O evento mais comum a ser utilizado neste controle é o evento Click().

Vamos gerar um simples programa com estes controles para que você entenda o seu funcionamento:

1. Inicie um novo projeto no VB6;
2. Insira no seu formulário os seguintes componentes:

• 1 DriveListBox;

• 1 DirListBox;

• 1 FileListBox;

• 1 Label

Seu formulário deverá ter o seguinte aspecto:

Altere agora as seguintes propriedades dos componente que foram inclusos no seu projeto:

Agora, vamos codificar os eventos necessários para que nosso projeto ganhe vida.

Selecione o evento Change do DriveListBox e entre com a seguinte codificação:

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

Observe que com a codificação acima, quando o componente DriveListBox tiver o seu valor alterado, será armazenada na propriedade Path (que indica a unidade), a nova unidade selecionada (Drive1.Drive).

Agora, vamos codificar o evento Change do componente DirectoryListBox:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Caption = File1.Path
End Sub

Observe que primeiro estamos vinculando que as pastas (caminhos) a serem exibidos (File1.Path) sejam aqueles constantes da unidade selecionada (Dir1.Path) e em seguida, estamos mostrando a unidade dentro do label que inserimos em nosso projeto (Label1.Caption=File1.Path).

Agora, vamos codificar o evento Click do componente FileListBox:

Private Sub File1_Click()
Label1.Caption = File1.Path & " " & File1.FileName
End Sub

Aqui estamos apenas jogando no label, o nome do arquivo que recebeu o clique.

Salve e execute o seu projeto.

Voltar

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