The Visual Basic 2008 fremdriftsindikator kontroll viser visuelt fremdriften av noen operasjon i et program . Når du oppretter programmet , angir du " minimum" og " maksimale " egenskaper for fremgang bar , og mens programmet utfører en handling på data , oppdatere deg status for fremdriften bar ved å endre sin " verdi " eiendom . For eksempel , hvis programmet åpner en fil og leser 50 linjer med tekst i en rekke strenger , setter fremdriften bar minstekrav til null og maksimalt til 50 år. Når programmet leser de første 25 linjene , endre fremdriften bar verdi til 25 for å vise fremdriften markør ved halvveis . Instruksjoner
en

Åpne en Visual Basic 2008 prosjekt i Design modus. Dobbeltklikk på " ProgressBar " kontroll for å legge det til i skjemaet. Dobbeltklikk på " Button" kontroll for å legge den til i form også. Ordne kontroller i skjemaet som du vil de skal vises .
2

Åpne koden vinduet. Type " Importerer System.IO " på den øverste linjen til å gjøre programmet kalle systemets input og output funksjoner. Du trenger dette for å åpne og lese en fil .
3

Åpne " button1_click "-funksjonen . Skriv inn følgende : en

Dim teller As Integer = 0

Dim innspill Som StreamReader = Ny StreamReader ( "c : \\ filnavn.txt ")

Dim linjer ( 1000 ) som String

Dim totalt som heltall

første erklæringen erklærer en enkel tellervariabelen . Den andre åpner en StreamReader objekt som leser en tekstfil kalt " filnavn.txt . " Den tredje erklæringen skaper en rekke strenger som rommer opptil 1000 linjer fra tekstfil . Den siste erklæringen skaper et heltall variabel som du vil bruke til å oppdatere fremdriften bar
4

Skriv inn følgende : .

Mens Ikke input.EndOfStream

linjer ( teller) = input.ReadLine ( )

teller + = 1

End Mens

Denne sløyfen leser tekstfilen og butikker og butikker hver linje i en plass i rekken til hver linje er lest
5

Skriv inn følgende : .

fremgang = teller

ProgressBar1.Minimum = 0

ProgressBar1.Maximum = fremgang
p Dette bestemmer " fremgang" variabel til verdien som " teller" variabel, og deretter angir minimumsverdien av fremdriften bar til null, og den maksimale verdien som " fremgang" holder.

6

Skriv inn følgende : en

For i = 0 For å pågår - en

callToSomeFunction ( array)

fremgang - = 1

ProgressBar1.Value = i

Neste i

sløyfe sykluser gjennom hvert element i matrisen og utfører en handling på det i " callToSomeFunction ( array) " linjen . Som hvert element i matrisen er behandlet, er " fremgang " variable reduseres med ett og fremgang bar verdien endres for å gjenspeile status av loopen .