Usuário com melhor resposta
Como colocar o conteúdo de uma listbox em outra listbox

Pergunta
-
Então, eu tenho 1 textbox, 2 listbox e 2 botões
1 botão adiciona o valor da textbox em uma listbox e outro botão é pra selecionar os números primos que estão na 1ª listbox e inserir na 2ª listbox.
Como faço pra selecionar os itens da 1ª listbox e inserir na 2ª?
Respostas
-
Consegui com esse código:
Private Sub btn_encontrar_Click(sender As System.Object, e As System.EventArgs) Handles btn_encontrar.Click
For cont As Integer = 0 To lst_add.Items.Count - 1
If lst_add.Items(cont) < 10 Then
lst_primos.Items.Add(lst_add.Items(cont))
End If
Next
End Sub
Aí em cima digitando vários numeros na listbox (lst_add), ele manda apenas os numeros menores que 10 pra outra listbox. Por exemplo, se eu inserir (1, 2, 99, 80), ele vai mandar os números (1 e 2) pra outra listbox(lst_primos).
Agora precisava de um codigo pra identificar os números primos, alguém?
- Sugerido como Resposta Isaias S. Silva segunda-feira, 7 de outubro de 2013 10:20
- Marcado como Resposta Giovani Cr segunda-feira, 7 de outubro de 2013 19:33
Todas as Respostas
-
Você precisa selecionar na 1ª listbox ou apenas copiar todos os itens na 2ª listbox
Neste segundo botão você pode colocar este código
'Percorer todos os itens da lista 1 For Each Item In ListBox1.Items 'Adicionar cada item na List 2 ListBox1.Items.Add(Item.Text) Next
Boa sorte!
-
Consegui com esse código:
Private Sub btn_encontrar_Click(sender As System.Object, e As System.EventArgs) Handles btn_encontrar.Click
For cont As Integer = 0 To lst_add.Items.Count - 1
If lst_add.Items(cont) < 10 Then
lst_primos.Items.Add(lst_add.Items(cont))
End If
Next
End Sub
Aí em cima digitando vários numeros na listbox (lst_add), ele manda apenas os numeros menores que 10 pra outra listbox. Por exemplo, se eu inserir (1, 2, 99, 80), ele vai mandar os números (1 e 2) pra outra listbox(lst_primos).
Agora precisava de um codigo pra identificar os números primos, alguém?
- Sugerido como Resposta Isaias S. Silva segunda-feira, 7 de outubro de 2013 10:20
- Marcado como Resposta Giovani Cr segunda-feira, 7 de outubro de 2013 19:33