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. Cosas que necesitará
Microsoft Visual Studio
Ver Más instrucciones
1

lanzamiento Microsoft Visual Studio , haga clic en "Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador , y ampliar " Plantillas instaladas . " abajo " Visual Basic" 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 nuevo proyecto.
2

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

3 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 incluidos los duplicados a tu ListBox Página 4

volver al "Formulario " vista 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 entonces

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

Para index = itemcount - 2 a 0 ​​Step -1

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

dupFound = = Me.ListBox1.Items ( índice)

End If

Siguiente

End If

Si dupFound Entonces

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

demás

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

End If
5 < p> Presione " 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.