te vinden of een ListBox heeft dubbele items zal u helpen u weet hoe u de juiste code uit te voeren om ze te verwijderen . Vaak programmeurs maken de fout te bevolken een ListBox met dubbele gegevens uit de database . Het beste is om duplicaten te elimineren wanneer u de gegevens opvragen. In VB , kunt u de eigenschap Items van de ListBox control gebruiken om een lijst met items die momenteel in de ListBox krijgen . Zodra u de referentie die u naar de lijst te krijgen , kun je lus door de items om duplicaten te vinden . Wat je nodig hebt
Microsoft Visual Studio
Toon Meer Aanwijzingen
1 Lancering Microsoft Visual Studio , klikt u op " New Project" van het linkerpaneel van uw computerscherm , en uitbreiden " Visual Basic " onder " Installed Sjablonen . " Klik op " Windows " en dubbelklik op " Windows Forms Application " van het centrum van het dialoogvenster om een nieuw project aan te maken .
Dubbelklik op " ListBox " 2 naar een nieuwe keuzelijst toe te voegen aan uw formulier . Dubbelklik op " knop" om een nieuwe knop toe te voegen aan uw formulier .
3 Dubbelklik op uw formulier om een formulier load gebeurtenis te maken en voeg de volgende code om een aantal items , waaronder duplicaten voegen uw ListBox Goedkope 4 Schakel terug naar " Formulier " design view en dubbelklik op " Button1 " naar een gebeurtenis click voor deze toets te maken . Voeg de volgende code om eventuele dubbele items gevonden via de " venster direct " weer te geven en een bericht naar de gebruiker :
Me.ListBox1.Sorted = True Me.ListBox1.Refresh ( ) op Twitter
Dim index als Geheel Dim dupFound
zoals Van Boole Dim itemcount
As Integer = Me.ListBox1.Items.Count
Als itemcount > 1 dan Dim lastitem
As String = Me.ListBox1.Items ( itemcount - 1 ) op Twitter index = itemcount - 2 To 0 Step -1
Als Me.ListBox1.Items ( index ) = lastitem dupFound dan
= = Me.ListBox1.Items ( index ) End
Als Volgende Einde
Als
Als dupFound MessageBox.Show Dan
( " duplicaten werden gevonden in ListBox . " ) op Twitter Else MessageBox.Show
( " Geen duplicaten gevonden . " ) Eind
Als
5 Druk op " F5 " om uw programma te draaien . Klik op " Button1 " om de duplicaten te wissen en er wordt aangegeven wanneer duplicaten al dan niet werden gevonden .
|
