AJUDA COM LISTBOX

PEGUDO 07/01/2010 19:55:55
#331346

Olá amigos,

Gostaria de uma ajuda, por favor.

Tenho um formulário com uma Listbox a ser preenchido pelo usuário, com vários textos, através de um textbox.

Pois bem... Eu preciso que quando o usuário terminasse de colocar todos os textos que ele quiser, na Listbox1, ao clicar um botão, o programa fizesse um loop para ler todos os itens da Listbox1 (acho que aí entra um ReDim Preserve) e preenchesse a Listbox2 com tudo o que está contido na Listbox1.

Espero ter me explicado bem... e obrigado mais uma vez!
TECLA 07/01/2010 20:03:55
#331348 Resposta escolhida
Assim é muito mais simples:

Private Sub Command1_Click()
Dim i As Byte
List2.Clear
For i = 0 To List1.ListCount - 1
    List2.AddItem List1.List(i)
Next i
End Sub
PEGUDO 07/01/2010 20:09:52
#331351

Obrigado cara. Salvou-me mais uma vez.

Valeu pela paciência e pelo tempo.

Engraçado que com o ReDim eu não consegui.

Valeu, irmão
Tópico encerrado , respostas não são mais permitidas
Voltar