Sección vb.net

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

06 - Eliminar duplicados en un listbox o combobox

Simple función en vb.net que recorre todos los elementos de la lista de un combo o listbox para poder eliminar los elementos o items duplicados

El ejemplo comienza comparando desde el primer item con todos los demás empezando desde abajo hacia arriba. Si el elemento es el mismo lo elimina con el método RemoveAt del ListBox indicando el índice

Colocar en el formulario

Un control ListBox llamado Listbox1
Un control Button llamado Button1

Código fuente en el form

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load ' Agrega elementos , y algunos duplicados With ListBox1.Items .Add("1") .Add("2") .Add("3") .Add("1") .Add("2") .Add("3") ListBox1.SelectedIndex = 0 End With Button1.Text = "Eliminar duplicados " End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button1.Click ' Le pasa el Listbox a la función MsgBox(Eliminar(ListBox1), _ MsgBoxStyle.Information, _ "Elementos duplicados en el List ") End Sub Function Eliminar(ByVal LB As ListBox) As Int32 Dim i As Int32 Dim j As Int32 Dim n As Int32 ' Recorre los items ( compara empezando _ 'desde el primero , de abajo hacia arriba) For i = 0 To LB.Items.Count - 2 For j = LB.Items.Count - 1 To i + 1 Step -1 ' ... si es el mismo If LB.Items(i).ToString = LB.Items(j).ToString Then ' elimina el elemento indicando el índice LB.Items.RemoveAt(j) n += 1 'lleva la cuenta de los duplicados End If Next Next Return n ' retorna los eliminados End Function End Class

Descargar

Buscar en Recursos vb