Ako zistiť , či listbox má duplicity

Zistenie , či listbox má duplicitné položky vám pomôže vedieť , ako vykonať príslušný kód na ich odstránenie . Často programátori robia tú chybu , vyplnenie listbox s duplicitnými dátami z databázy . To je najlepšie odstrániť duplicity pri dotazu na dáta . Vo VB , môžete použiť Items vlastnosť ovládacieho prvku zoznamu získať zoznam položiek , ktoré sú uložené v listbox . Akonáhle sa dostanete na odkaz , ktorý vás presmeruje na zozname , môžete prechádzať položkami nájsť duplikáty . Veci , ktoré budete potrebovať v Microsoft Visual Studio
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Visual Studio , kliknite na tlačidlo " Nový projekt " v ľavej časti okna obrazovky počítača , a rozšíriť " Visual Basic " pod " Nainštalované šablóny . " Kliknite na " Windows " a double - kliknite na " Windows Forms aplikácie " od centra v dialógovom okne vytvoriť nový projekt .
2

Double - kliknite na " listbox " pridať nový ovládací prvok zoznam na formuláre . Double - kliknite na " tlačidlo " pridať nové tlačidlo do formulára .
3

Dvakrát kliknite na formulár vytvoriť udalosť Load formulára a pridajte nasledujúci kód pridajte niektoré položky vrátane duplikátov do listbox Stránka 4

Prepnite späť na " formuláre " návrhovom zobrazení a dvakrát kliknite na " Button1 " vytvoriť udalosť click na toto tlačidlo . Pridajte nasledujúci kód zobraziť všetky duplicitné položky nájdené cez " Immediate Window " a zobraziť správu užívateľovi :

Me.ListBox1.Sorted = TRUE

Me.ListBox1.Refresh ( )

Dim index As Integer

Dim dupFound As Boolean

Dim ItemCount As Integer = Me.ListBox1.Items.Count

Ak ItemCount > 1 potom

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

index = ItemCount - 2 K 0 Step -1

Ak Me.ListBox1.Items ( index ) = lastitem Potom

dupFound = = Me.ListBox1.Items ( index )

End If

Ďalšie

End If

Ak dupFound Potom

MessageBox.Show ( " duplicity boli nájdené v listbox . " )

Else

MessageBox.Show ( " Neboli nájdené žiadne duplicitné . " )

End If
5

Stlačte " F5 " pre spustenie programu . Kliknite na " Button1 " vymazať duplicity a zobrazí sa správa s informáciou, či duplikáty boli alebo neboli nájdené .

• Predchádzajúca strana: VBA String Porovnanie Funkcia 
• Ďalšia strana: Ako volať na T - SQL funkcie vo VB 2008