Como transferir quantidade de items de uma listbox para outro listbox

Question

Olá boa noite, eu preciso transferir 50 items de um listbox para outro listbox, na minha rotina isso ficaria quase como no automático, exemplo: retiro 50 items de um listbox, faz a rotina e retira mais 50 items e continua até terminar minha lista, aguardo obrigado... segue print de exmplo: http://prntscr.com/gqjawm

Answer 1

Boa tarde, Graziela209. Tudo bem?

Essa seria uma questão de "Break Fix/Erro" ou "How to/Customização"?

Atenciosamente,

---

Filipe B de Castro

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 2

Boa tarde Graziela209

O código abaixo vai transferir de 50 em 50 até zerar o primeiro listbox

Dim limite As Integer
 
While ListBox1.Items.Count > 0
 
    'cria um limite para o bloco for, limitado ao número de itens do list
    If ListBox1.Items.Count > 50 Then
        limite = 49
    Else
        limite = ListBox1.Items.Count - 1
    End If
 
    For index = 0 To limite
        ListBox2.Items.Add(ListBox1.Items(0)) 'adiciona o item na lista 2
 
        ListBox1.Items.RemoveAt(0) 'remove o item da lista 1
    Next
 
End While

Veja se é isto

Se esta sugestão for útil, por favor, classifique-a como útil. Se ela lhe ajudar a resolver o problema, por favor, marque-a como Resposta.

                              

Answer 3

Graziela209

Não sei a sua necessidade de transferir de 50 em 50, mas o código abaixo transferiria tudo até zerar, ficando bem mais limpo

While ListBox1.Items.Count > 0 
    ListBox2.Items.Add(ListBox1.Items(0)) 'adiciona o item na lista 2
 
    ListBox1.Items.RemoveAt(0) 'remove o item da lista 1 
End While

Veja se é isto

Se esta sugestão for útil, por favor, classifique-a como útil. Se ela lhe ajudar a resolver o problema, por favor, marque-a como Resposta.

Answer 4

eu preciso transferir qualquer quantidade de items de um list para outro, usei o número 50 só como exemplo, ou seja se eu precisar transferir 10 items para outro list não consigo so consigo como seu codigo acima, tudo de uma vez, gostaria se possível ir transferindo conforme vou clicando no botão, a quantidade selecionada ok obrigado aguardo .....

Answer 5

Bom dia,

Imagino que seja isso:

    Dim quantidade AsInteger
    quantidade = Convert.ToInt32(txtQuantidade.Text)
 
    If quantidade > ListBox1.Items.Count Then quantidade = ListBox1.Items.Count
    'se informou quantidade maior que a que tem no list, vai transferir o total de itens
    For index = 0 To (quantidade - 1)
        ListBox2.Items.Add(ListBox1.Items(0)) 'adiciona o item na lista 2
 
        ListBox1.Items.RemoveAt(0) 'remove o item da lista 1
    Next

Se esta sugestão for útil, por favor, classifique-a como útil. Se ela lhe ajudar a resolver o problema, por favor, marque-a como Resposta.