Visual Basic 2008 statuslinje kontrol visuelt viser status af nogle operation i et program. Når du opretter programmet , skal du indstille på " minimum" og "maksimum" egenskaber for statuslinjen , og mens programmet udfører en handling på data , du opdaterer status for statuslinjen ved at ændre dens "værdi" ejendom. For eksempel, hvis dit program åbner en fil og læser 50 linier tekst i et array af strenge indstille statuslinjen er minimum til nul, og den maksimale 50 . Når programmet læser de første 25 linjer , ændre statuslinjen værdi til 25 for at vise de fremskridt, markør på halvvejs. Instruktioner
1

Åbn en Visual Basic 2008 projekt i Design mode. Dobbeltklik på " ProgressBar " kontrol for at føje det til formularen . Dobbeltklik på " Button " kontrol for at føje det til formularen så godt. Arranger kontrolelementer i formularen , som du vil have dem til at blive vist .
2

Åbn koden vinduet. Type " Importerer System.IO " på den øverste linje for at gøre dit program kalder systemets input og output funktioner. Du har brug for dette for at åbne og læse en fil.
3

Åbn " Button1_Click "-funktion. Indtast følgende : Hej

Dim count As Integer = 0

Dim input Som StreamReader = Ny StreamReader ( "c: \\ filename.txt " )

Dim linier ( 1000) As String

Dim alt som Integer

første erklæring erklærer en simpel counter variabel. Den anden åbner en StreamReader objekt, der læser en tekstfil kaldet " filename.txt ". Den tredje erklæring skaber en vifte af strenge, der rummer op til 1.000 linjer fra tekstfil. Den sidste erklæring skaber en heltalsvariabel , som du vil bruge til at opdatere statuslinjen
4

Skriv følgende : .

Ikke input.EndOfStream

linjer ( count) = input.ReadLine ()

count + = 1

End Mens

Denne løkke læser tekstfil og gemmer og gemmer hver linje i en plet i array indtil hver linje er blevet læst
5

Skriv følgende : .

fremskridt = count

ProgressBar1.Minimum = 0

ProgressBar1.Maximum = fremskridt

Dette indstiller "fremskridt " variable til værdien som " count" variabel og derefter sætter den mindste værdi af statuslinjen til nul , og den maksimale til den værdi, "fremskridt " holder . < br >
6

Skriv følgende : Hej

for i = 0 Til fremskridt - 1

callToSomeFunction ( array)

fremskridt - = 1

ProgressBar1.Value = i

Næste jeg

Denne loop cykler gennem hvert element i rækken, og udfører en handling på det i " callToSomeFunction ( array) " linjen . Som hvert element i matrix er behandlet, er " fremskridt " variable ned med én og statuslinjen værdi ændres for at afspejle status for løkken.