January 5
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.
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.