Desmarcar itens selecionados em um controle Listbox
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Observe, na imagem abaixo, um item da lista selecionado pelo clique do mouse.
Para remover a marcação da lista, basta atribuir um valor negativo ao controle Listbox. Neste exemplo, quando o campo Filtrar recebe o foco, a lista é desmarcada.
Private Sub txtFiltro_GotFocus() Me!Lista = -1 End Sub
Agora observe o controle Listbox abaixo, configurado para Seleções Múltiplas:
A técnica para desmarcar a lista é passar o valor da propriedade Selected(item) da Listbox para False.
Private Sub txtFiltro_GotFocus() Dim n As Integer
'------------------------------------------------------
'Percorre a lista do último item para o primeiro item
'------------------------------------------------------ For n = (Me!Lista.ListCount - 1) To 0 Step -1
'------------------------------
'Vai desmarcando item por item
'------------------------------ Me!Lista.Selected(n) = False Next End Sub
Se desejar marcar todos os itens da lista, através de um botão, basta passar o valor da propriedade Selected(item) para True.
Private Sub btSelecionaTudo_Click() Dim n As Integer For n = (Me!Lista.ListCount - 1) To 0 Step -1
'------------------------------
'Vai marcando item por item
'------------------------------ Me!Lista.Selected(n) = True Next Me!txtFiltro.SetFocus End Sub
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Como carregar o seu menu sem que ele vá para lista de suplementos
Adquira o kit UsandoAccess e aprenda em alta velocidade
Não há comentário |