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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

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

'*************************************************** 'Funcion que elimina los elementos duplicados '*************************************************** Private Function Eliminar_Item_ListView(ListView As ListView) As Long Dim x As Integer, k As Integer, ret As Long 'Recorre todos los items For k = 1 To ListView.ListItems.Count 'Compara uno a uno con todos los demás For x = k + 1 To ListView.ListItems.Count If ListView.ListItems.Item(k) = ListView.ListItems.Item(x) Then 'Si es igual lo elimina ListView.ListItems.Remove ListView.ListItems.Item(x).Index x = x - 1 ret = ret + 1 End If If x = ListView.ListItems.Count Then Exit For End If Next If k = ListView.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 Function 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 Private Sub Form_Load() 'Agrega 10 elementos al Listview For i = 0 To 10 ListView1.ListItems.Add , , i Next 'Agregam los mismos elementos que antes para que estén duplicados For i = 0 To 10 ListView1.ListItems.Add , , i Next Command1.Caption = " Eliminar items 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