KB-46571: Selecionando múltiplos itens em um objeto ListBox.

Descrição:

É possível selecionar mais de um item em um objeto ListBox ao mesmo tempo?

Solução:

Sim, é possível. Para isto, utilize a propriedade Selected do ListBox e crie um script que percorra os itens do objeto e teste quais estão selecionados. A propriedade MultiSelect do ListBox deve estar com o valor 1-fmMultiSelectMulti ou 2-fmMultiSelectExtended.

Segue abaixo um exemplo de script que é executado no evento Click() de um botão que está na mesma tela de um ListBox com quatro itens:

Dim Valores(4)
FOR i = 0 TO 3
  IF Screen.Item("ListBox1").Selected(i) THEN
    Valores(i) = Screen.Item("ListBox1").List(i) 
  END IF 
NEXT
MsgBox Valores(0) & vbNewLine & Valores(1) & vbNewLine & Valores(2) & vbNewLine& Valores(3)

Observação: É importante que o comando FOR do script atenda a todos os itens que foram adicionados ao ListBox.

Este artigo foi útil? Was this post helpful?
Yes0
No0

Deixe seu Comentário

Seu endereço de e-mail não será publicado. Campos marcados com asterisco são obrigatórios *