Ta reda på om en ListBox har dubbletter hjälper dig att veta hur man ska köra den lämpliga koden för att ta bort dem . Ofta programmerare gör misstaget att fylla en listruta med dubbla uppgifter från databasen . Det är bäst att eliminera dubbletter när du söka i data . I VB , kan du använda objekt egendom ListBox kontrollen för att få en lista med objekt som finns lagrade i listrutan . När du får den referens som leder dig till listan , ni kan loop igenom saker att hitta dubbletter . Saker du behöver
Microsoft Visual Studio
Visa fler instruktioner
1
Launch Microsoft Visual Studio , klicka på " Nytt projekt " från den vänstra rutan på din datorskärm , och expandera " Visual Basic " under " Installerade mallar . " Klicka på " Windows " och dubbelklicka på " Windows Forms Application " från mitten av dialogrutan för att skapa ett nytt projekt .
2
Dubbelklicka på " ListBox " för att lägga till en ny kontroll listrutan till formuläret . Dubbelklicka på " knappen " för att lägga till en ny knapp i formuläret .
3
Dubbelklicka på formuläret för att skapa en händelse formulär belastning och lägg till följande kod för att lägga till några poster inklusive dubbletter till din ListBox
4
Växla tillbaka till " Form " designen vy och dubbelklicka på " Button1 " för att skapa en click-händelse för denna knapp . Lägg till följande kod för att visa eventuella dubbletter hittades genom " Immediate Window " och visa ett meddelande för användaren :
Me.ListBox1.Sorted = Sant Me.ListBox1.Refresh
( )
Dim index As Integer
Dim dupFound As Boolean
Dim itemcount As Integer = Me.ListBox1.Items.Count
p Om itemcount > 1 Then
Dim lastitem As String = Me.ListBox1.Items ( itemcount - 1 ) katalog
För index = itemcount - 2 till 0 Steg -1
p Om Me.ListBox1.Items ( index ) = lastitem Sedan
dupFound = = Me.ListBox1.Items ( index ) katalog
End If
Nästa
End If
p Om dupFound Sedan
MessageBox.Show ( " var dubbletter hittades i listruta . " ) katalog
Else
MessageBox.Show ( " Inga dubbletter hittades . " ) katalog
End If
5
Tryck " F5 " för att köra programmet . Klicka " Button1 " för att rensa dubbletter och visa ett meddelande om dubbletter fanns eller inte hittades .