Sección de códigos , trucos y ejemplos para visual basic

138 - Eliminar los elementos repetidos de un ListView

Esta función permite enviarle un control ListView como parámetro y dentro de la función se realiza un bucle For-Next anidado para comparar uno por uno los Items en busca de los duplicados, ..para en ese caso eliminarlos.

Para el ejemplo colocar

Un control ListView llamado ListView1
Un Command1 para ejecutar la función.

Código en un formulario

Option Explicit ' ---------------------------------------------------------------------------------- ' \\ -- Función para elimiar los elementos duplicados ' ---------------------------------------------------------------------------------- Private Function Eliminar_Item_ListView(ListView As ListView) As Long ' -- Variables Dim i As Long Dim j As Long Dim ret As Long ' -- total de items que se eliminan With ListView ' -- Recorrer todos los items For i = 1 To .ListItems.Count ' -- Comparar uno a uno con todos los demás For j = i + 1 To .ListItems.Count If .ListItems.Item(i) = .ListItems.Item(j) Then ' -- Si es igual eliminar .ListItems.Remove .ListItems.Item(j).Index j = j - 1 ret = ret + 1 End If If j = .ListItems.Count Then Exit For End If Next If i = .ListItems.Count Then ' -- Retorna el valor de la función con _ la cantidad de elementos eliminados Eliminar_Item_ListView = ret Exit Function End If Next End With End Function ' --------------------------------------------------------------------------- ' \\ -- Botón para llamar a la función ' --------------------------------------------------------------------------- Private Sub Command1_Click() ' -- llamamos a la función pasandole el control ListView MsgBox " Elementos que se eliminaron: " & Eliminar_Item_ListView(ListView1), vbInformation, " Resultado " End Sub ' --------------------------------------------------------------------------- ' \\ -- Inicio ' --------------------------------------------------------------------------- Private Sub Form_Load() With ListView1 Dim i As Integer ' -- Agregar 10 elementos al Listview For i = 0 To 10 ListView1.ListItems.Add , , i Next ' -- Agregar los mismos elementos que antes para que estén duplicados For i = 0 To 10 ListView1.ListItems.Add , , i Next .View = lvwList End With Command1.Caption = " Eliminar duplicados " Me.Caption = " Ejemplo para eliminar elementos repetidos en un control ListView " End Sub

Enlaces relacionados a vb 6.0

Eliminar duplicados en un array o vector

Enlaces relacionados a vb.net

Eliminar items duplicados en un listbox - vb.net

Buscar en Recursos vb