REMOVER SO NO FINAL
Boa noite. Estou novamente precisando de ajuda. O Marcelo Treze me ajudou bastante no ultimo topico, mas agora quero um incremento.
Eu comparo duas listbox, e removo itens de uma, conforme o codigo.
Só que agora eu quero remover apenas a comparção com maior quantidade.
Ex. Pego o 1º item da lista2 comparo com todos os itens da lista1.
seleciono ou identifico quantos itens da lista1 eu removeria, mas não removo ainda.
Faço a mesma coisa com o 2º item da lista2, se a quantidade de itens que posso remover for maior do que o 1º, descarta os primeiros que estao selecionados, e ficam selecionados sempre os que tem mais. Segue assim até o ultimo item da lista2, e aà sim remove os selecionados.
Se alguem tiver uma resposta agradeço.
Eu comparo duas listbox, e removo itens de uma, conforme o codigo.
Só que agora eu quero remover apenas a comparção com maior quantidade.
Ex. Pego o 1º item da lista2 comparo com todos os itens da lista1.
seleciono ou identifico quantos itens da lista1 eu removeria, mas não removo ainda.
Faço a mesma coisa com o 2º item da lista2, se a quantidade de itens que posso remover for maior do que o 1º, descarta os primeiros que estao selecionados, e ficam selecionados sempre os que tem mais. Segue assim até o ultimo item da lista2, e aà sim remove os selecionados.
Se alguem tiver uma resposta agradeço.
Posta o código que você possui até agora
Ok Marcelo, muito obrigado mais uma vez.
Este codigo é de sua autoria, inclusive. E muito bom
Private Sub Command4_Click()
Dim Vetor1() As String
Dim Vetor2() As String
Dim Iguais As Integer
Iguais = 0
For l2 = 0 To List2.ListCount - 1
Vetor2 = Split(List2.List(l2), [Ô] [Ô])
List3.AddItem List2.List(l2)
For l1 = 0 To List1.ListCount - 1
Vetor1 = Split(List1.List(l1), [Ô] [Ô])
For v2 = 0 To UBound(Vetor2)
For v1 = 0 To UBound(Vetor1)
If Vetor2(v2) = Vetor1(v1) Then
Iguais = Iguais + 1
End If
Next v1
Next v2
Dim tira As Integer
tira = txtelementos2
If Iguais = tira Then
List1.RemoveItem (l1)
Iguais = 0
l1 = 0
Else
Iguais = 0
End If
Label3 = List3.ListCount
If List1.ListCount = 1 Then
Exit Sub
End If
Next l1
Next l2
End Sub
Este codigo é de sua autoria, inclusive. E muito bom
Private Sub Command4_Click()
Dim Vetor1() As String
Dim Vetor2() As String
Dim Iguais As Integer
Iguais = 0
For l2 = 0 To List2.ListCount - 1
Vetor2 = Split(List2.List(l2), [Ô] [Ô])
List3.AddItem List2.List(l2)
For l1 = 0 To List1.ListCount - 1
Vetor1 = Split(List1.List(l1), [Ô] [Ô])
For v2 = 0 To UBound(Vetor2)
For v1 = 0 To UBound(Vetor1)
If Vetor2(v2) = Vetor1(v1) Then
Iguais = Iguais + 1
End If
Next v1
Next v2
Dim tira As Integer
tira = txtelementos2
If Iguais = tira Then
List1.RemoveItem (l1)
Iguais = 0
l1 = 0
Else
Iguais = 0
End If
Label3 = List3.ListCount
If List1.ListCount = 1 Then
Exit Sub
End If
Next l1
Next l2
End Sub
Faça seu login para responder