The Progress Bar er en av de enkleste kontrollene i Visual Basic. Baren rapporterer om status for noen datamaskin drift, for eksempel under installasjon av ny programvare eller noen andre omstendelige prosessen som et nettverk filoverføring . Baren gir brukeren noen forsikring om at programmet ikke har krasjet . Prosessen er den samme i begge Visual Basic 6.0 og Visual Basic 2008 Express Edition selv om koden i sistnevnte er litt annerledes. Slik fungerer
p Som en operasjon inntektene , leser koden kontinuerlig hvor mye som er gjennomført og beregner status. Hvis minimumsverdien er satt til ett og Maximum til 100, vil baren fylle halve bar displayet når 50 prosent av operasjonen er fullført. For å utføre denne beregningen , må programmereren vet hvor lenge operasjonen vil ta. Som et eksempel, hvis brukeren laster ned en fem MB fil , etter den tid 2,5 MB har lastet ned , vil baren har flyttet halvveis over .
Lag en Progress Bar
< p > Start ved å opprette et nytt prosjekt etter åpning Visual Basic. Klikk på " File", " New Project" og velg " Standard EXE " format . Legg til ProgressBar kontroll ved å klikke på " Prosjekt ", " Components ". Finn Microsoft Windows Common Controls i listen. Velg Microsoft Visual Basic Common Controls ( SP6 ) ved å plassere en hake i boksen ved siden av kontrollen . Klikk på " Apply" og " OK ". Du skal se kontrollen i listen i venstre panel . Dobbeltklikk på denne for å legge det til i skjemaet.
Sett Properties
p Hvis du arbeider med en operasjon hvor fullføringsgrad er lett å beregne som en filnedlasting , setter Minimum eiendom i Properties panelet til "1" og maks til " 100". En annen måte for å angi det maksimale er å ha koden telle antall gjentakelser av noen operasjon , dette i forhold til det totale antall , og beregne hvor linjen skal være . Høyde-og venstre egenskaper kontrollere høyden av stolpen i seg selv , og hvor det fremgår av venstre side av skjermen . Bare to andre egenskaper saken : Enten baren går over skjermen vertikalt eller horisontalt , og om inkrementelle biter vises eller baren er glattere. Velg disse fra " Orientering " og " rulling Egenskaper". Dersom den maksimale ikke kan bestemmes på forhånd , er det mulig å bruke en animasjon kontroll for å holde linjen beveger inntil operasjonen er fullført . Denne forbedringen går utover nivået for denne opplæringen . Siden bar ikke bør vises før en operasjon starter , setter egenskapen Visible til " False ". For dette eksempelet , sette Maximum egenskapen til " 10000 " og la Minimum på "0". Til slutt legger du en Command Button kontroll fra listen Verktøy til skjemaet for å iverksette tiltak . Endre ( Navn ) eiendom til " btnStart " og Bildetekst til "Start".
Skriv koden

Klikk på "View ", " Code" for å åpne programmeringsvinduet . Skriv inn linjene nedenfor nøyaktig som vist . De tre første linjene laste form og gjøre Progress Bar synlig. Resten av koden går gjennom en repeterende sekvens for å demonstrere bar . Slutten nummer i denne koden er satt svært høyt for å bremse Progress Bar ned for synlighet. Bytt trinnene i den andre delen begynner med " Private Sub btnStart_Click ( ) og slutter " End Sub "med hva tilfelle du er timingen for å få en ny ProgressBar1.Value . Alltid legge en kommando for å endre synligheten av baren til" False " når de rutinemessige ferdig.

Private Sub Form_Load ( ) ProgressBar1.Visible = TrueEnd Sub

Private Sub btnStart_Click ( ) Dim n Som IntegerFor n = 1 To 10000ProgressBar1.Value = nNeste nEnd Sub

Test koden ved å trykke på "F5 " tasten.
Visual Basic 2008 Express Edition Version

i Visual Basic 2008 , innbytter følgende linjer for linjene begynner Private Sub : en

Private Sub Form1_Load ( ByVal eventSender Som System.Object , ByVal EventArgs Som System.EventArgs ) Håndtak MyBase.LoadPrivate Sub btnStart_Click ( ByVal eventSender Som System.Object , ByVal EventArgs Som System.EventArgs ) Håndtak btnStart.Click