The Visual Basic 2008 förloppsindikator kontroll visar visuellt hur en operation i ett program . När du skapar programmet, ställ dig på " minimum " och "Maximum" egenskaper för förloppsindikatorn , och medan programmet utför vissa åtgärder på data , du uppdatera status för förloppsindikatorn genom att ändra sitt " värde " egendom . Till exempel , om ditt program öppnar en fil och läser 50 rader text i en array av strängar , ställa förloppsindikatorns minimum till noll och den maximala till 50 . När programmet läser de första 25 raderna , ändra förloppsindikatorns värde till 25 för att visa vilka framsteg markör vid halvvägs . Instruktioner
1
Öppna en Visual Basic 2008 projekt i Design -läge . Dubbelklicka på " ProgressBar " kontroll för att lägga till den i formen . Dubbelklicka på "Button " kontroll för att lägga till den i form också . Ordna kontroller i formuläret som du vill att de ska visas .
2
Öppna koden fönstret . Typ " Importerar System.IO " på den översta raden för att göra ditt program ringa systemets in-och utgångar . Du behöver detta för att öppna och läsa en fil .
3
Öppna " Button1_Click " funktionen . Skriv följande :
Dim antal As Integer = 0
Dim input Som StreamReader = Ny StreamReader ( " c : \\ filnamn.txt " ) katalog
Dim linjer (1000 ) As String
Dim totalt As Integer
första deklaration förklarar en enkel räknare variabel . Den andra öppnar en StreamReader objekt som läser en textfil som heter " filnamn.typ . " Den tredje förklaringen skapar en array med strängar som rymmer upp till 1000 rader från textfil . Den senaste deklarationen skapar en heltalsvariabel som du ska använda för att uppdatera förloppsindikatorn
4
Skriv följande : .
Inte input.EndOfStream
linjer ( count ) = input.ReadLine ( ) katalog
count + = 1
Slut Medan
Denna loop läser textfilen och butiker och varje rad i en plats i arrayen tills varje linje har läst
5
Skriv följande : .
framsteg = count
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = framsteg
Detta ställer " framsteg " variabel till det värde som " count " variabel , och sedan ställer det minsta värdet av förloppsindikatorn till noll och det högsta till det värde som " framsteg " innehar .
6
Skriv följande :
för i = 0 till framsteg - 1
callToSomeFunction ( array ) katalog
framsteg - = 1
ProgressBar1.Value = i
Nästa jag
denna slinga går igenom varje objekt i arrayen och utför en åtgärd på det i " callToSomeFunction ( array ) " linje . Eftersom varje objekt i arrayen behandlas är " framsteg " variabel minskas med ett och förloppsindikatorn värdet ändras för att återspegla status slingan .
