Verificare se una ListBox ha elementi duplicati vi aiuterà a sapere come eseguire il codice appropriato per rimuoverli. Spesso i programmatori fanno l'errore di compilazione di un controllo ListBox con i dati duplicati dal database . E ' meglio per eliminare i duplicati quando si esegue una query i dati . In VB , è possibile utilizzare la proprietà Items del controllo ListBox per ottenere un elenco di elementi correntemente memorizzati nel controllo ListBox. Una volta che il riferimento che si indirizza alla lista, è possibile scorrere le voci di trovare i duplicati . Cose che ti serviranno
Microsoft Visual Studio
Mostra più istruzioni
1

lancio di Microsoft Visual Studio , fare clic su " Nuovo Progetto" dal riquadro sinistro dello schermo del computer , e espandere " Visual Basic " " Modelli installati . " qui sotto Fare clic su " Windows" e fare doppio clic su " Applicazione Windows Form " dal centro della finestra di dialogo per creare un nuovo progetto .
2

doppio clic su " ListBox " per aggiungere un nuovo controllo casella di riepilogo per il modulo. Fare doppio clic su "Pulsante " per aggiungere un nuovo pulsante al form .

3 Fare doppio clic sul form per creare un evento di caricamento form e aggiungere il seguente codice per aggiungere alcuni elementi tra cui i duplicati al ListBox
4

tornare a " Form" visualizzazione struttura e fare doppio clic su " Button1 " per creare un evento click di questo pulsante. Aggiungere il seguente codice per visualizzare gli eventuali elementi duplicati trovati attraverso la " finestra immediata " e visualizzare un messaggio per l'utente :

Me.ListBox1.Sorted = True

Me.ListBox1.Refresh ( )

index As Integer Dim

Dim dupFound come booleano

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

itemcount > 1 Then

Dim lastItem As String = Me.ListBox1.Items ( itemcount - 1 ) per

index = itemcount - 2 a 0 Passo -1

Me.ListBox1.Items (indice ) = lastItem Poi

dupFound = = Me.ListBox1.Items ( indice ) per

End If

Avanti

End If

dupFound Poi

MessageBox.Show ( " duplicati sono stati trovati in ListBox . " ) per

Else

MessageBox.Show (" Nessun duplicati trovato. " ) per

End If
5

Premere " F5 " per eseguire il programma. Fare clic su " Button1 " per cancellare i duplicati e visualizzare un messaggio che indica se i duplicati erano o non sono stati trovati .

• VBA String Funzioni di confronto 
• Come chiamare una funzione T - SQL in VB 2008