De Progress Bar is een van de eenvoudigste controles in Visual Basic . De bar rapporteert over de status van enkele computer gebruik , bijvoorbeeld tijdens de installatie van nieuwe software of een andere langdurig proces , zoals een netwerk bestandsoverdracht . De balk geeft de gebruiker enige zekerheid dat het programma niet is gecrasht . Het proces is hetzelfde in zowel Visual Basic 6.0 en Visual Basic 2008 Express Edition hoewel de code in deze enigszins verschillend . Hoe het werkt Als een operatie vordert, de code leest continu hoeveel is voltooid en berekent de status . Als de minimale waarde is ingesteld op een en maximaal tot 100 , zal de bar helft van de balk te vullen wanneer 50 procent van de operatie is voltooid . Om deze berekening uit te voeren , moet de programmeur weet hoe lang de operatie zal duren . Als voorbeeld , als de gebruiker is een vijf MB bestand te downloaden , door de tijd 2.5 MB hebt gedownload , de bar zal hebben halverwege verplaatst over . Maak een Progress Bar Begin met het maken van een nieuw project na het openen van Visual Basic . Klik op " File ", " New Project " en selecteer de "Standard EXE " -formaat . Voeg de ProgressBar controle door te klikken op " Project ", "componenten . " Zoek de Microsoft Windows Common Controls in de lijst . Kies de Microsoft Visual Basic Common Controls ( SP6 ) door het plaatsen van een vinkje in het vakje naast de controle . Klik op "Toepassen" en " OK . " U moet de controle in de lijst in het linker paneel zien . Dubbelklik op deze toe te voegen aan het formulier . Stel de Eigenschappen Als het werken met een operatie waarbij het percentage van voltooiing is eenvoudig te berekenen als een bestand download, stelt u de minimum pand in het paneel Properties op " 1 " en de maximale tot " 100 . " Een andere manier om het maximale te stellen is om de code te tellen het aantal iteraties van een bewerking , vergelijk dit met het totale aantal , en berekenen waar de bar zou moeten zijn . Hoogte en Left eigenschappen controle van de hoogte van de bar zelf en waar het lijkt vanaf de linkerkant van het scherm . Slechts twee andere eigenschappen materie : Of de bar loopt over het scherm verticaal of horizontaal en of incrementele brokken lijken of de bar is gladder . Kies deze uit de " Orientation " en " Scrollen Eigenschappen . " Als de maximale vooraf kunnen worden bepaald , is het mogelijk om een animatie regelaar de balk beweegt totdat de bewerking voltooid houden . Deze uitbreiding gaat verder dan het niveau van deze tutorial . Omdat de bar niet mag verschijnen totdat een activiteit begint , stelt u de eigenschap Visible op " False ". Voor dit voorbeeld stelt u de maximale eigenschap in op " 10000 " en laat het minimum op " 0 . " Voeg ten slotte een opdracht knop controle uit de lijst Tools om het formulier te treffen. Wijzig de eigenschap (Name) te " btnStart " en de Caption naar "Start ". Schrijf de code Klik op "View ", " Code " te openen de programmering venster . Typ de volgende regels exact zoals weergegeven . De eerste drie regels laadt de vorm en maak de voortgangsbalk zichtbaar . De rest van de code wordt uitgevoerd door een repeterende sequentie aan de bar te tonen . Het eindnummer in deze code is zeer hoog ingesteld om te vertragen de Progress Bar beneden voor zichtbaarheid . Vervang de stappen in het tweede deel begint met " Private Sub btnStart_Click ( ) en eindigt " End Sub " met wat voor omstandigheid dan je timing om een nieuwe ProgressBar1.Value krijgen . Voeg altijd een commando om de zichtbaarheid van de bar veranderen in " False " wanneer de routine eindigt . Private Sub Form_Load ( ) ProgressBar1.Visible = TrueEnd Sub Private Sub btnStart_Click ( ) Dim n Zoals IntegerFor n = 1 To 10000ProgressBar1.Value = nVolgende Nend Sub < br Test > de code door te drukken op de toets " F5 " . Visual Basic 2008 Express Edition Version In de Visual Basic 2008 , substituut van de volgende regels voor de regels die beginnen Private Sub : Private Sub Form1_Load ( ByVal eventSender Zoals System.Object , ByVal EventArgs als System.EventArgs ) Handles MyBase.LoadPrivate Sub btnStart_Click ( ByVal eventSender Zoals System.Object , ByVal EventArgs als System.EventArgs ) Handles btnStart.Click
|