Cómo determinar si un cuadro de lista tiene duplicados

Utilice la propiedad Items para buscar elementos repetidos. 

DETERMINAR LISTBOX

Averiguar si un ListBox tiene elementos duplicados le ayudará a saber cómo ejecutar el código apropiado para eliminarlos. A menudo los programadores cometen el error de rellenar un ListBox con los datos duplicados de base de datos. Lo mejor es eliminar los duplicados cuando se consulta los datos. En Visual Basic, puede utilizar la propiedad Items del control ListBox para obtener una lista de elementos actualmente almacenados en el ListBox. Una vez que la referencia que se dirige a la lista, puede recorrer a través de los objetos para encontrar duplicados.

Lo que necesita

Microsoft Visual Studio

Lanzamiento de Microsoft Visual Studio, haga clic en "Nuevo proyecto" en el panel izquierdo de la pantalla del ordenador, y ampliar "Visual Basic" por debajo "Plantillas instaladas". Haga clic en "Windows" y haga doble clic en "Aplicación de Windows Forms" en el centro de la ventana de diálogo para crear un proyecto nuevo.

Haga doble clic en "ListBox" para añadir un nuevo control de cuadro de lista al formulario. Haga doble clic en "botón" para añadir un nuevo botón al formulario.

Haga doble clic en el formulario para crear un evento de carga del formulario y agregue el código siguiente para agregar algunos artículos incluyendo los duplicados de tu control ListBox:

Me.ListBox1.Items.Add ("Enero")

Me.ListBox1.Items.Add ("Febrero")

Me.ListBox1.Items.Add ("Marcha")

Me.ListBox1.Items.Add ("April")

Me.ListBox1.Items.Add ("April")

Me.ListBox1.Items.Add ("Enero")

Cambie de nuevo a "Form" vista de diseño y haga doble clic en "Button1" para crear un evento de clic en este botón. Agregue el código siguiente para mostrar los elementos duplicados encontrados a través de la "ventana Inmediato" y mostrar un mensaje al usuario:

Me.ListBox1.Sorted = True

Me.ListBox1.Refresh ()

Índice Dim As Integer

DupFound Dim As Boolean

Itemcount Dim As Integer = Me.ListBox1.Items.Count

Si itemcount 1 Y

LastItem As String = Me.ListBox1.Items (itemcount - 1)

Para index = itemcount - 2 A 0 Step -1

Si Me.ListBox1.Items (índice) = LastItem Entonces

dupFound = True

Debug.Print (Me.ListBox1.Items (índice). ToString)

Me.ListBox1.Items.RemoveAt (índice)

Más

LastItem = Me.ListBox1.Items (índice)

End If

Próximo

End If

Si dupFound Entonces

MessageBox.Show ("Los duplicados se encontraron en ListBox.")

Más

MessageBox.Show ("No se encontró duplicados.")

End If

Pulse la tecla "F5" para ejecutar el programa. Haga clic en "Button1" para borrar los duplicados y mostrará un mensaje indicando si son duplicados o no fueron hallados.