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.
