Listbox to Array

[TS91]

Boas, eu queria saber como posso copiar os items que estão numa listbox para uma array e depois meter os items pela a mesma ordem noutra listbox noutro form?

[ribeiro55]

O truque está na linha em evidência.

        Dim LB1 As New ListBox
        Dim LB2 As New ListBox

        LB1.Items.Add("Olá")
        LB1.Items.Add("Olé")
        LB1.Items.Add("Olí")
        LB1.Items.Add("Oló")
        LB1.Items.Add("Olú")

        Dim TempArray() As String = Nothing

        For i As Integer = 0 To LB1.Items.Count - 1
            ReDim Preserve TempArray(i)
            TempArray(i) = LB1.Items(i)
        Next

        For Each S As String In TempArray
            LB2.Items.Add(S)
        Next

O estar noutro form, não implica nada muito mais especial.

[pmaster]

Boa noite malta

Ribeiro55 queria perguntar te se me podias dizer se faz favor, porque usas-te:

  ReDim Preserve TempArray(i)

Fiquei confuso. A intenção não era acrescentar mais um item ao array?

Podias me explicar sff? B)

[anolsi]

É ir acrescentando posições ao array, mas mantendo os valores que já estão guardados. Se só colocasses Redim os dados eram anteriormente guardados no array eram apagados.

[ribeiro55]

Nem mais.

Como não podes prever o tamanho do array, vais "re-declarando" a variável, mas de forma a que não percas o que ela já armazena.

[pmaster]

Já percebi  😛

Muito obrigado 😛