Naplnenie Visual Basic listbox s unikátne predmety z textového súboru

dáta v súboroch je bežne nie sú jedinečné , takže programátori potrebujú vedieť , ako rýchlo odstrániť opakované hodnoty pred pridaním do ovládacieho prvku zoznamu . Najlepší spôsob , ako to urobiť , je prečítať dáta súboru do poľa reťazcov . Vo VB , môžete použiť metódu " nesporné " , ktorá vracia neusporiadané sekvenciu , ktorá neobsahuje žiadne duplicitné hodnoty . Uložte odlišné hodnoty pre nové pole reťazcov a použiť pole ako zdroj dát v ovládacom prvku zoznamu . Pokyny dovolená 1

Kliknite na tlačidlo Windows " Štart " , kliknite na textové pole , ktoré hovorí , že " Hľadať programy a súbory , " typ " notepad " a stlačte tlačidlo " Enter " pre spustenie programu Poznámkový blok . Typ " 1 " a stlačte " Enter " , zadajte " 1 " znovu a stlačte " Enter " , typ " 2 " a stlačte " Enter " . " Enter " typ " 2 " znova a stlačte Pridať " 3 " a " 4 " rovnakou technikou . Uložte súbor do priečinka na vašom počítači ako " myValues.txt . "
2

Spustite program Microsoft Visual Basic Express a kliknite na tlačidlo " Nový projekt " na ľavom paneli obrazovky počítača . Kliknite na " Visual Basic " pod Nainštalované šablóny kliknite na položku " Windows Forms aplikácie , " kliknite na tlačidlo " OK " pre spustenie nového projektu .
3

Double - kliknite na " prvok zoznamu " kontrolu " Toolbox " tably pridať jeden do formulára . Pridať " tlačidlo " rovnakou technikou .
4

Poklepaním na toto tlačidlo vytvoríte kliknutím na tlačidlo udalosť . Pridajte nasledujúci kód na vytvorenie premennej :

Dim fname As String Dim

valueArray ( 10 ) As String Dim

uniqueArray ( 10 ) As String

Dim xCntr As Integer
5

Definujte cestu do textového súboru :

fname = " C : \\ myValues.txt "
6

Loop cez dáta v textovom súbore a uložte ho na pole reťazcov :

Ak System.IO.File.Exists ( fname ) = True Then

Dim objReader As New System.IO.StreamReader ( fname )

robiť , keď objReader.Peek ( ) < > -1

valueArray ( xCntr ) = objReader.ReadLine

xCntr + = 1

Loop

Else

MsgBox ( " Súbor neexistuje " )

End If
7

Uložte dáta z jedného poľa reťazcov do iného poľa reťazcov s jedinečnými hodnotami :

uniqueArray = valueArray.Distinct.ToArray
8

Použite pole reťazcov s jedinečnými hodnotami ako zdroj dát pre ovládací prvok zoznamu :

Me.ListBox1.DataSource = uniqueArray
9

Stlačte " F5 " spustiť program a kliknite na tlačidlo " Button1 . "

• Predchádzajúca strana: Ako pridať úvodnej obrazovky do vášho jazyka projektu 
• Ďalšia strana: Ako formátovať TimeSpan nehnuteľnosti v VB.Net