COMO SELECIONAR TODO O CONTEUDO DO LISTBOX

USUARIO.EXCLUIDOS 21/11/2004 13:56:42
#51351
Será q alguém sabe como selecionar todo o conteúdo de um ListBox, que é flutuante, com o clicar de um Command button ou um Option button? Quando executo o aplicativo, o Listbox carrega um arquivo texto com "n" ítems, como selecionar tudo?
Agradeço qualquer resposta....
Lucila
USUARIO.EXCLUIDOS 21/11/2004 16:00:39
#51366 Resposta escolhida
Certifique-se de que o List esteja com a propriedade MultiSelect=2 - Extended ou MultiSelect=1 - Simple, de acordo com sua preferência. (Faça das duas formas e observe as diferenças quando você pressiona o Ctrl+Clique do mouse e o Shift+Clique.

  
Private Sub Command1_Click()

Dim I As Integer

For I = 0 To List1.ListCount - 1
    List1.Selected(I) = True
Next

End Sub

Talvez tenha como fazer por API, ficando mais rápido para o caso de seu List possuir vários milhares de itens.
Testei com 5000 itens e gastou-se 5,5 segs para selecionar tudo;
para 1000 itens gastou-se 0,761 segs.
Tópico encerrado , respostas não são mais permitidas
Voltar