Finde ud af, om en ListBox har dubletter vil hjælpe dig vide, hvordan at udføre den relevante kode for at fjerne dem . Ofte programmører begår den fejl at befolke en ListBox med dublerede data fra databasen. Det er bedst at fjerne dubletter , når du søge i data . I VB, kan du bruge Varer ejendom ListBox kontrol for at få en liste over emner, der pt er gemt i ListBox . Når du får reference, der dirigerer dig til listen, kan du sløjfe gennem punkterne for at finde dubletter. Ting du skal
Microsoft Visual Studio
Vis Flere Instruktioner
1

Launch Microsoft Visual Studio , klik på " Nyt projekt " fra venstre rude på din computerskærm , og expand " Visual Basic " under " Installerede skabeloner ". Klik på " Windows" og dobbeltklik på "Windows Forms Application " fra midten af dialogvinduet for at oprette et nyt projekt.
2

Dobbeltklik på " ListBox " for at tilføje en ny liste kontrollen til din formular . Dobbeltklik på " Button " for at tilføje en ny knap til formularen .
3

Dobbeltklik på formularen for at oprette en formular belastning begivenhed og tilføje følgende kode til at tilføje nogle elementer , herunder dubletter til din ListBox
4

Skift tilbage til "Form" design visning og dobbeltklik på " Button1 " for at oprette et klik begivenhed for denne knap. Føj følgende kode til at vise eventuelle identiske varer fundet gennem " Immediate Window" og vise en meddelelse til brugeren : Hej

Me.ListBox1.Sorted = Sand

Me.ListBox1.Refresh ()

Dim index As Integer

Dim dupFound Som Boolean

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

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

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

dupFound = = Me.ListBox1.Items (index)

End If

Næste

End If
p Hvis dupFound Så

MessageBox.Show ( " dubletter blev fundet i ListBox ").

Else

MessageBox.Show ( "Ingen dubletter fundet." )

End If
5 < p> Tryk på " F5 " for at køre dit program. Klik på " Button1 " for at rydde dubletter og vise en meddelelse , hvis dubletter blev eller ikke blev fundet.