Finne ut om en Listeboks har like elementer vil hjelpe deg å vite hvordan å utføre den aktuelle koden for å fjerne dem . Ofte programmerere gjør den feilen å fylle en Listeboks med like data fra databasen . Det er best å eliminere duplikater når du søke i data . I VB , kan du bruke elementer eiendom Liste- kontroll for å få en liste over elementer som er lagret i Liste . Når du får referanse som leder deg til listen, kan du sløyfe gjennom elementene for å finne duplikater. Du trenger
Microsoft Visual Studio
Vis flere instruksjoner
en

Launch Microsoft Visual Studio , klikk " Nytt prosjekt " fra den venstre ruten på skjermen , og utvide " Visual Basic " under " Installerte maler . " Klikk på " Windows" og dobbeltklikk på "Windows Forms Application " fra sentrum av dialog vinduet for å opprette et nytt prosjekt .
2

Dobbeltklikk på " Liste- " for å legge en ny liste box kontroll til skjemaet. Dobbeltklikk på " Button " for å legge til en ny knapp i skjemaet .
3

Dobbeltklikk skjemaet for å opprette en form belastning hendelsen og legge til følgende kode for å legge til noen elementer, inkludert duplikater til Listeboks din
4

Bytt tilbake til " Form " design utsikt og dobbeltklikk på " Button1 " for å skape et klikk hendelsen for denne knappen. Legg til følgende kode for å vise eventuelle like elementer funnet gjennom " Immediate Window" og vise en melding til brukeren : en

Me.ListBox1.Sorted = sant

Me.ListBox1.Refresh ( )

Dim indeksen As Integer

Dim dupFound Som Boolean

Dim itemcount As Integer = Me.ListBox1.Items.Count
p Hvis itemcount > 1 Da

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

For index = itemcount - 2 til 0 Step -1
p Hvis Me.ListBox1.Items (indeks ) = lastitem Deretter

dupFound = = Me.ListBox1.Items (indeks )

End If

Neste

End If
p Hvis dupFound Deretter

MessageBox.Show ( " duplikater ble funnet i ListBox . ")

Else

MessageBox.Show ("No duplikater funnet." )

End If
5 < p> Trykk " F5 " for å kjøre programmet . Klikk " Button1 " for å fjerne duplikater og vise en melding som angir om duplikater var eller ble ikke funnet .