Propriedades da Listbox
Continuando com a descrição das propriedades da Listbox, vamos rapidamente enumerar as mais usadas...
- Additem
- Clear
- List
- ListCount
- ListIndex
- Selected
- RemoveItem
A propriedade já foi vista na postagem anterior...
2. Propriedade Clear e RemoveItem
Como o nome mesmo diz é usada para limpar todos os dados de uma listbox e sua sintaxe é Nome_da_listbox.Clear por exemplo Listbox1.Clear. Essa propriedade deve ser usada sempre antes que novos dados forem adicionados, evitando a duplicação de dados, principalmente no retorno de consultas ou filtros.
Para remover uma linha usa-se o RemoveItem sua sintaxe é expressa da seguinte forma
Nome_da_listbox.RemoveItem(x) , onde x representa a linha da listbox a ser removida.
Para ilustrar a utilização das 3 propriedades já vistas até agora (AddItem, Clear e RemoveItem), foi criado um formulário com 3 botões, um para adicionar itens, outro para remover e o terceiro para limpar a listbox... Vamos ao código...
Formulário Criado para os comandos AddItem, Clear e RemoveItem. |
Com Duplo-Clique em cima do CommandButton1 (Adicionar) automaticamente a janela de código é aberta com o procedimento click para esse objeto ou seja
Private Sub CommandButton1_Click()
End Sub
O código é adicionado dentro do procedimento, dessa forma a macro para o botão 1 vai ficar da seguinte forma
Adicionando Dados a listbox
Private Sub CommandButton1_Click()
'Adicionar Itens ao Listbox1
If Me.TextBox1 = "" Then ' testa se a caixa de texto está vazia e executa as ações
MsgBox ("Adicione um item na Caixa de texto!")
Else
Me.ListBox1.AddItem (TextBox1.Text)
End If
End Sub
Para os outros botões o procedimento é o mesmo e o código de cada um vai ficar da seguinte forma...
Removendo Dados a listbox
Código para Remover/excluir um item selecionado da listbox
Comentários sobre o Código
laço para percorrer todos os itens da listbox para testar qual está selecionado
removendo o mesmo
A propriedade Listcount será vista mais a frente, mas adiantando... ela conta quantos itens tem na listbox, como por padrão o primeiro item é 0 (zero) deve-se colocar -1 para que não ocorra erro, pois no caso de ter 3 itens o listcount vai retornar o número 3 mas o laço deve percorrer somente as posição 0, 1 e 2 que possuem dados... Private Sub CommandButton2_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox1.RemoveItem (i)
End If
Next i
End Sub
Limpando a listbox
Para limpar a listbox basta colocar o seguinte...
Private Sub CommandButton3_Click()
Me.ListBox1.Clear
End Sub
Segue link para Download da planilha com o formulário...
Muito boa a explicação. Parabéns!
ResponderExcluir