Data filene er vanligvis ikke unik, så programmerere trenger å vite hvordan du raskt fjerne gjentatte verdier før du legger dem til en listeboksen kontroll. Den beste måten å gjøre dette på er å lese fildata til en streng array. I VB , kan du bruke " Tydelig " metode som returnerer en ikke-sorterte sekvens som ikke inneholder like verdier . Redd forskjellige verdier til en ny streng array og bruke denne matrisen som datakilde for listeboksen kontroll. Instruksjoner
en

Klikk på Windows " Start" -knappen, klikk på tekstboksen som sier "Søk programmer og filer , " type " notepad " og trykk "Enter " for å starte Notisblokk. Type " 1 " og trykk " Enter" , type " en " igjen og trykk " Enter" , type " 2 " og trykk " Enter" , type " 2 " igjen og trykk " Enter". Legg til " 3 " og " 4 " ved hjelp av samme teknikk . Lagre filen i en mappe på datamaskinen din som " myValues.txt . "
2

Launch Microsoft Visual Basic Express og klikk " Nytt prosjekt " på ruten til venstre på skjermen . Klikk på " Visual Basic " under Installerte maler , klikker du på " Windows Forms Application ", deretter " OK " for å starte et nytt prosjekt .
3

Dobbeltklikk på " Liste- " kontroll på " Toolbox" -ruten for å legge en til skjemaet. Legge til en " Button" bruker samme teknikk.
4

Dobbeltklikk på knappen for å lage en knapp klikkhendelsen . Legg til følgende kode for å lage dine variabler : en

Dim fname As String

Dim valueArray ( 10 ) As String

Dim uniqueArray ( 10 ) As String
< p > Dim xCntr As Integer
5

Definer banen til tekstfilen : en

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

Loop gjennom dataene i tekstfilen og lagre det i en streng rekke : en p Hvis System.IO.File.Exists ( fname ) = True Deretter

Dim objReader som ny System.IO.StreamReader ( fname )

Mens objReader.Peek ( ) < > -1

valueArray ( xCntr ) = objReader.ReadLine

xCntr + = 1
< p> Loop

Else

MsgBox ( " filen finnes ikke ")

End If
7

Lagre dataene fra en streng rekke til en annen streng array med unike verdier : en

uniqueArray = valueArray.Distinct.ToArray
8

Bruk streng rekke med unike verdier som datakilde for listeboksen kontroll:

Me.ListBox1.DataSource = uniqueArray
9

Trykk " F5 " for å kjøre programmet og klikk " Button1 . "