REMOVER ITENS DUPLICADOS DE UMA LISTBOX

LINKK 18/09/2009 17:17:10
#323235
Ola pessoal...
alguém sabe me explicar como que eu posso excluir itens duplicados de uma listbox?
tipo se uma pessoa colocar dois itens repetidos numa list,eu queria criar um botão que remova um desses itens repeitidos...
ASHKATCHUP 18/09/2009 20:15:44
#323245
Eu fiz a seguinte sub para te ajudar:



Private Sub sub_Verifica_Repetidos()
    Dim iIndice                         As Integer
    Dim iIndiceProcura                  As Integer
    Dim sItemAtual                      As String
    Dim sItemProcura                    As String
    [ô]
    For iIndice = 0 To List1.ListCount
        sItemAtual = List1.List(iIndice)
        [ô]
        If sItemAtual <> [Ô][Ô] Then
            For iIndiceProcura = 0 To List1.ListCount
                sItemProcura = List1.List(iIndiceProcura)
                [ô]
                If sItemProcura <> [Ô][Ô] Then
                    If sItemAtual = sItemProcura And iIndice <> iIndiceProcura Then
                        List1.RemoveItem iIndiceProcura
                        sub_Verifica_Repetidos
                    End If
                End If
            Next
         End If
        [ô]
    Next
    [ô]
End Sub
MARCELO.TREZE 18/09/2009 22:10:21
#323250 Resposta escolhida
Desculpe mas não é melhor criar uma função que não permita incluir itens repetidos?
Tópico encerrado , respostas não são mais permitidas
Voltar