• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

TS91

Listbox to Array

6 mensagens neste tópico

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

É 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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora