The Progress Bar är en av de enklaste kontroller i Visual Basic . Baren rapporterar om status för vissa datordrift , till exempel vid installation av ny programvara eller någon annan utdragen process som ett nätverk filöverföring . Baren ger användaren en viss försäkran om att programmet inte har kraschat . Processen är densamma i både Visual Basic 6.0 och Visual Basic 2008 Express Edition även koden i den senare är något annorlunda . Så fungerar
som en handling fortskrider , läser koden kontinuerligt hur mycket är klar och beräknar status . Om minsta värdet är satt till en och Maximum till 100 , kommer baren fyll halva baren displayen när 50 procent av operationen är avslutad . För att utföra denna beräkning , måste programmeraren vet hur länge operationen kommer att ta . Som ett exempel , om användaren laddar ner ett fem MB fil , vid tiden 2.5 MB har hämtat , kommer baren har flyttat halvvägs över .
Skapa en Progress Bar
Börja med att skapa ett nytt projekt efter att ha öppnat Visual Basic . Klicka på " File ", " Nytt projekt " och välj " Standard EXE " -format . Lägg ProgressBar kontrollen genom att klicka på " projekt", " komponenter . " Hitta Microsoft Windows Common Controls i listan . Välj Microsoft Visual Basic Common Controls ( SP6 ) genom att placera en bock i rutan bredvid kontrollen . Klicka på " Apply " och " OK . " Du bör se kontrollen i listan i den vänstra panelen . Dubbelklicka på den här för att lägga till det i formuläret .
Ställ Egenskaper
p Om att arbeta med en verksamhet där successiv vinstavräkning är lätt att räkna ut en fil nedladdning , anger minsta egendom i panelen Egenskaper till " 1 " och den maximala till " 100 . " Ett annat sätt att ställa in maximal är att ha koden räkna antalet iterationer av en operation , jämför detta med det totala antalet , och beräkna var baren ska vara . Höjd och vänster egenskaper styr höjden på baren själv och där det framgår från vänster på skärmen . Endast två andra egenskaper materia : Huruvida baren löper över skärmen vertikalt eller horisontellt och huruvida enskilda bitar visas eller baren är smidigare . Välj dessa från " Orientering " och "Egenskaper rulla. " Om det maximala inte kan bestämmas på förhand , är det möjligt att använda ett Animation -kontroll för att hålla stången rör tills åtgärden har slutförts . Denna förbättring går utöver den nivå av denna handledning . Sedan bar bör inte visas förrän en verksamhet påbörjas , anger du egenskapen visible till " False ". För detta exempel , ställa in maximal egenskapen till " 10000 " och den lägsta på " 0 . " Slutligen , lägg till en kontroll Command Button från Tools listan till formuläret för att initiera åtgärder . Ändra ( namn ) egenskapen att " btnStart " och bildtexten till "Start . " Addera Skriv koden Klick
på " Visa ", " Code " för att öppna programmeringsfönstret . Skriv raderna nedan exakt som visas . De första tre raderna läsa formuläret och gör Progress Bar synlig . Resten av koden körs genom en upprepad sekvens för att demonstrera baren. Slutet nummer i denna kod är satt väldigt högt för att bromsa utvecklingen Bar ner för synlighet . Byt stegen i den andra delen som börjar med " Private Sub btnStart_Click ( ) och slutar " End Sub " med allt vad händelse du timing att få ett nytt ProgressBar1.Value . Alltid lägga ett kommando för att ändra synligheten för baren att " False " när rutinen avslutas.
Private Sub Form_Load ( ) ProgressBar1.Visible = TrueEnd Sub
Private Sub btnStart_Click ( ) Dim n Lika IntegerFor n = 1 Till 10000ProgressBar1.Value = nNästa Nend Sub
testa koden genom att trycka på " F5 " tangenten . Addera Visual Basic 2008 Express Edition Version
i Visual Basic 2008 skall ersättas med följande rader för de rader som börjar Private Sub :
Private Sub Form1_Load ( ByVal eventSender Som System.Object , ByVal EventArgs Som System.EventArgs ) Handtag MyBase.LoadPrivate Sub btnStart_Click ( ByVal eventSender Som System.Object , ByVal EventArgs Som System.EventArgs ) Hanterar btnStart.Click
