Clube VB - Utilizando caixas de lista

Aula 21

Uma caixa de lista nada mais é do que uma caixa que tem a finalidade de exibir dados sobre a forma de lista. Este controle é comum em diversos aplicativos do Windows. 

Uma das características das caixas de lista é que o usuário não poderá editar diretamente seu conteúdo (ou seja, dentro da própria lista).

Dentre as principais propriedades das caixas de lista, podemos destacar:

• Columns - este propriedade permite especificar o número de colunas que nossa lista terá;

• List - define ou retorna o valor de um item de uma lista. Vale lembrar que os itens de uma caixa de lista são controlados por um índice, este índice tem seu primeiro valor igual ao número zero (0), assim sendo, uma caixa de lista com 5 itens, terá como índice o número zero (0) ao número 4 (quatro).

Através da propriedade List poderemos obter um item de uma lista. Veja o exemplo a segui:

List1.list(3) -> neste caso estamos nos referindo ao quarto item de uma lista. Lembre-se que o primeiro item tem o índice zero (0).

• ListIndex - Retorna a posição indexada do item selecionado;

• ListCount - fornece o número de itens de uma caixa de lista;

• MultiSelect - define se o usuário poderá ou não selecionar mais de um item da lista de forma simultânea;

• Sorted - ordena (true) ou não (false) os dados da lista.

Entre os principais eventos das caixas de lista temos:

• DblClick - ocorre quando existe um clique sobre um dos itens da lista.

Métodos da caixa de lista:

• AddItem - adiciona um item a caixa de lista;

• Clear - remove todos os itens de uma caixa de lista;

• RemoveItem - remove um item de uma caixa de lista.

Vamos criar um pequeno projeto para que você entenda melhor tudo o que vimos até este ponto.

1. Execute o VB6;
2. Inicie um novo projeto;
3. Insira no seu formulário duas caixas de listas, uma em cada extremidade do formulário;
4. Insira na parte inferior do formulário, abaixo da primeira lista um Label, ao lado um TextBox e ao lado um Buttom. Ao final deste procedimento, sua janela terá o seguinte aspecto:

5. Agora, inclua entre as duas listas 8 Buttons;
6. Altere as seguintes propriedades dos componentes já inclusos:

Ao final deste procedimento, seu formulário terá o seguinte aspecto:

Vamos começar a codificar nosso sistema. O primeiro passo é fazer com que o usuário ao digitar alguma informação (dado) na caixa de edição Text2 e clicar sobre o botão INCLUI, esta informação seja adicionada na lista 01. Para isso, dê um clique duplo no botão INCLUI e entre com a seguinte codificação:

Private Sub Command1_Click()
    List1.AddItem Text1.Text
End Sub

Observe que nos comandos acima, estamos adicionando (additem) à lista 1 (List1) o conteúdo digitado no controle TextBox1 (Text1.Text). Veja como é simples adicionar itens em uma lista através do VB.

Vamos agora codificar o botão Command2 ( ===> ) que tem a finalidade de levar o item selecionado no List1 para o List2. Para tal função, dê um clique duplo no botão em questão e entre com a seguinte codificação:

Private Sub Command2_Click()
    List2.AddItem List1.Text
    List1.RemoveItem (List1.ListIndex)
End Sub

Observe a primeira linha de comando da rotina citada. Adicionamos na lista2 (List2.AddItem) o conteúdo do item selecionado na Lista1 (List1.Text).

Em seguida, removemos o Item transferido para a lista2 da lista1 (List1.RemoveItem(ListIndex)). Conforme podemos observar, para remover um item de uma lista, temos que especificar o índice do mesmo e, como queremos remover o item selecionado, utilizamos a propriedade ListIndex.

Vamos codificar o Command3 ( <=== ), que tem função contrária do botão que acabamos de codificar. Os comandos utilizados neste botão serão muito parecidos com os utilizados no botão anterior. Veja a seguir:

Private Sub Command3_Click()
    List1.AddItem List2.Text
    List2.RemoveItem (List2.ListIndex)
End Sub

Agora, vamos codificar o botão Command4 ( <== Exclui ) que tem a finalidade de apenas excluir o item selecionado na lista1. Para isso, dê um clique duplo no botão em questão e, entre com a seguinte codificação:

Private Sub Command4_Click()
    List1.RemoveItem (List1.ListIndex)
End Sub

No comando acima, você simplesmente solicitou a exclusão do item da lista1 que está selecionado (List1.RemoveItem (list1.ListIndex)).

Em seguida, vamos codificar o botão Command5 ( Exclui ==> ), que tem a mesma sintaxe utilizada no botão anterior, com a diferença de utilizar sempre o List2 ao invés do List1. Veja a codificação a seguir:

Private Sub Command5_Click()
    List2.RemoveItem (List2.ListIndex)
End Sub

Vamos agora codificar o botão ( <= Limpa lista ), que tem a função de excluir todos os itens da lista 01. O comando é simples, conforme podemos observar abaixo:

Private Sub Command6_Click()
    List1.Clear
End Sub

O próximo passo é codificar o botão ( Limpa lista => ) que tem o objetivo de excluir todos os itens da lista 02. O comando é similar ao utilizado no procedimento anterior, apenas se trocando o List1 por List2. Veja abaixo:

Private Sub Command7_Click()
    List2.Clear
End Sub

Vamos agora codificar o último botão, que tem a finalidade de finalizar o programa. Para isso, basta digitar o comando END em seu procedimento de duplo clique.

Private Sub Command8_Click()
    End
End Sub

Execute agora o sistema e verifique os resultados.

Voltar

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