none
Como transferir quantidade de items de uma listbox para outro listbox RRS feed

  • Pergunta

  • 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
    • Editado Graziela209 quarta-feira, 27 de setembro de 2017 22:34
    quarta-feira, 27 de setembro de 2017 22:31

Respostas

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

    sexta-feira, 29 de setembro de 2017 11:40

Todas as Respostas

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

    quinta-feira, 28 de setembro de 2017 17:23
    Moderador
  • 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.

                                  
    quinta-feira, 28 de setembro de 2017 18:36
  • 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.

    quinta-feira, 28 de setembro de 2017 18:39
  • 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 .....
    sexta-feira, 29 de setembro de 2017 02:40
  • 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.

    sexta-feira, 29 de setembro de 2017 11:40