Come determinare se una casella di riepilogo ha duplicati

January 5

Come determinare se una casella di riepilogo ha duplicati


Scoprire se un ListBox ha elementi duplicati vi aiuterà a conoscere come eseguire il codice appropriato per rimuoverli. Spesso i programmatori fanno l'errore di compilazione di un 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 attualmente memorizzati nella ListBox. Una volta che si ottiene il riferimento che si indirizza alla lista, è possibile scorrere le voci per trovare i duplicati.

istruzione

1 Avviare Microsoft Visual Studio, fare clic su "New Project" dal riquadro sinistro dello schermo del computer, ed espandere "Visual Basic" sotto "Modelli installati." Fai clic su "Windows" e fare doppio clic su "Applicazione Windows Form" dal centro della finestra di dialogo per creare un nuovo progetto.

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

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

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

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

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

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

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

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

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

Me.ListBox1.Sorted = True

Me.ListBox1.Refresh()

Indice Dim As Integer

Dim dupFound Come booleano

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

Se ItemCount> 1 Poi

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

Per index = ItemCount - 2 a 0 Passo -1

Se Me.ListBox1.Items (indice) = lastItem Poi

dupFound = True

Debug.Print (Me.ListBox1.Items (indice) .ToString)

Me.ListBox1.Items.RemoveAt (indice)

Altro

lastItem = Me.ListBox1.Items (indice)

Finisci se

Il prossimo

Finisci se

Se dupFound Poi

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

Altro

MessageBox.Show ( "Nessun duplicati trovato.")

Finisci se

5 Premere il tasto "F5" per eseguire il programma. Fai clic su "Button1" per cancellare i duplicati e visualizzare un messaggio che indica se i duplicati sono stati o non sono state trovate.