SAÃDA PARA LISTBOX
Bom dia.
Necessito de uma ajuda,
Tenho um textBox que receberá varios produtos, e um listbox que tambem conterá produtos.
preciso comparar cada linha do listbox, com os do textbox e os produtos existentes no textBox que não estão no listbox, apareçam em outro listbox.
no exemplo que dei abaixo seria adicionado no listbox lstAgerar
estante comoda luminaria cama rack
mesa comoda sofa cadeira luminaria
Esse é o codigo que tentei, mas não sei esta certo.
quem puder me ajudar, fico muito agradecido.
Private Sub FormEspelho_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lstGerada.Items.Add([Ô]mesa cadeira armario sofá[Ô])
lstGerada.Items.Add([Ô]estante cama rack banqueta[Ô])
txtPrincipal.Text = [Ô]mesa estante cômoda sofa cadeira luminária cama rack[Ô]
End Sub
Private Sub cdmEspelhar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdmEspelhar.Click
Dim VetInvent() As String
Dim VetHerdeiro() As String
Dim MovInv
Dim MovHerd
Dim Lista
For L2 = 0 To lstGerada.Items.Count - 1
VetHerdeiro = Split(lstGerada.Items(Lista), [Ô] [Ô])
For MovHerd = 0 To UBound(VetHerdeiro)
VetInvent = Split(txtPrincipal.Text, [Ô] [Ô])
For MovInv = 0 To UBound(VetInvent)
If MovInv <> MovHerd Then
lstAgerar.Items.Add(?????)
End If
Next MovInv
Next MovHerd
Next
End Sub
End Class
Necessito de uma ajuda,
Tenho um textBox que receberá varios produtos, e um listbox que tambem conterá produtos.
preciso comparar cada linha do listbox, com os do textbox e os produtos existentes no textBox que não estão no listbox, apareçam em outro listbox.
no exemplo que dei abaixo seria adicionado no listbox lstAgerar
estante comoda luminaria cama rack
mesa comoda sofa cadeira luminaria
Esse é o codigo que tentei, mas não sei esta certo.
quem puder me ajudar, fico muito agradecido.
Private Sub FormEspelho_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lstGerada.Items.Add([Ô]mesa cadeira armario sofá[Ô])
lstGerada.Items.Add([Ô]estante cama rack banqueta[Ô])
txtPrincipal.Text = [Ô]mesa estante cômoda sofa cadeira luminária cama rack[Ô]
End Sub
Private Sub cdmEspelhar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdmEspelhar.Click
Dim VetInvent() As String
Dim VetHerdeiro() As String
Dim MovInv
Dim MovHerd
Dim Lista
For L2 = 0 To lstGerada.Items.Count - 1
VetHerdeiro = Split(lstGerada.Items(Lista), [Ô] [Ô])
For MovHerd = 0 To UBound(VetHerdeiro)
VetInvent = Split(txtPrincipal.Text, [Ô] [Ô])
For MovInv = 0 To UBound(VetInvent)
If MovInv <> MovHerd Then
lstAgerar.Items.Add(?????)
End If
Next MovInv
Next MovHerd
Next
End Sub
End Class
Veja esse exemplo. Repare que [Ô]sofa[Ô] está entrando por causa da acentuação. Ou seja, é preciso tratar a questão da acentuação também. Essa tarefa vou deixar pra você fazer.
Boa tarde JABA, e muito obrigado pela resposta.
Funcionou beleza, a única coisa é que eu preciso do resultado de cada linha,
ex.
no textbox tenho [Ô] mesa estante cômoda sofá cadeira luminária cama rack[Ô]
no listGeradas tenho [Ô]mesa cadeira armario sofá[Ô]
[Ô]mesa cama rack banqueta[Ô]
resultado seria 2 linhas no ListboxAgerar estante comoda luminária cama
na outra linha estante comoda sofá cadeira luminária
Se puder me ajudar mais um pouquinho agradeço.
Porque eu não sei como dar esta saÃda, linha por linha.
E valeu pela dica dos acentos, muito bem lembrado.
Funcionou beleza, a única coisa é que eu preciso do resultado de cada linha,
ex.
no textbox tenho [Ô] mesa estante cômoda sofá cadeira luminária cama rack[Ô]
no listGeradas tenho [Ô]mesa cadeira armario sofá[Ô]
[Ô]mesa cama rack banqueta[Ô]
resultado seria 2 linhas no ListboxAgerar estante comoda luminária cama
na outra linha estante comoda sofá cadeira luminária
Se puder me ajudar mais um pouquinho agradeço.
Porque eu não sei como dar esta saÃda, linha por linha.
E valeu pela dica dos acentos, muito bem lembrado.
Jaba?
Ele postou como VB/VBA sendo que é Vbnet.
Tu não reparou.
Ele postou como VB/VBA sendo que é Vbnet.
Tu não reparou.
Como tu fez isso.
Sim, apenas adptei, e funcionou. Só preciso mesmo dessa modificação no resultado.
é visual Basic 2008
é visual Basic 2008
Dei uma pequena adaptada. Veja se é isso!
Valeu JABA.
Funcionou perfeitamente.
Muito obrigado.
Funcionou perfeitamente.
Muito obrigado.
Solucionou, encerra o tópico.
Valeu.
Valeu.
Tópico encerrado , respostas não são mais permitidas