De Visual Basic 2008 voortgangsbalk controle geeft visueel de voortgang van enkele operatie in een programma . Bij het maken van het programma , u de "minimum" en " maximum " eigenschappen voor de voortgangsbalk te stellen , en terwijl het programma voert een actie op gegevens , u de status van de voortgangsbalk bijwerken door het veranderen van de " waarde " eigenschap . Bijvoorbeeld, als je het programma opent een bestand en leest 50 regels tekst in een array van strings , minimumnormen van de voortgangsbalk aan nul en de maximale tot 50 . Wanneer het programma leest de eerste 25 regels , wijzigen waarde van de voortgangsbalk om 25 aan de vooruitgang marker tonen op het halve punt . Instructies
1 Open een Visual Basic 2008 project in de ontwerpmodus . Dubbelklik op de " ProgressBar " control toe te voegen aan het formulier . Dubbelklik op de " knop " om het in te voegen aan het formulier ook. Schik de besturingselementen op het formulier als u ze wilt weergeven . Kopen van 2 Open het venster code . Type " Imports System.IO " op de bovenste regel om uw programma te bellen ingang van het systeem en output functies . Je hebt dit nodig om te openen en te lezen van een bestand .
3 Open de functie " Button1_Click " . Typ het volgende : Dim count
As Integer = 0 Dim ingang
Zoals StreamReader = Nieuw StreamReader ( " c: \\ bestandsnaam.txt " ) Dim lijnen
( 1000 ) As String Dim totale
als Integer
De eerste verklaring verklaart een eenvoudige teller variabele . De tweede opent een StreamReader object dat een tekstbestand met de naam leest " bestandsnaam.txt . " De derde verklaring maakt een array van tekenreeksen die maximaal 1000 lijnen uit het tekstbestand . De laatste aangifte creëert een integer variabele die u wilt gebruiken om de voortgangsbalk werken
Type 4 het volgende : .
Terwijl Niet input.EndOfStream lijnen
( count ) = input.ReadLine ( ) tellen
+ End = 1
Terwijl
Deze lus leest het tekstbestand en de winkels en de winkels elke regel op een plekje in de array totdat elke regel is gelezen
Typ de volgende 5 : . vooruitgang
= count ProgressBar1.Minimum = 0 ProgressBar1.Maximum
= vooruitgang
Dit stelt de " vooruitgang " variabele om de waarde als de variabele "count " , en stelt dan de minimale waarde van de voortgangsbalk op nul en de maximale tot de waarde die " vooruitgang " houdt . < br >
Type 6 het volgende :
Voor i = 0 To vooruitgang - 1 callToSomeFunction
(matrix ) vooruitgang
- = 1
ProgressBar1.Value = i
Next i
Deze lus doorloopt elk item in de array en voert een actie op het in de " callToSomeFunction ( array) " lijn . Zoals elk item in de array wordt verwerkt , wordt de variabele " vooruitgang " met een verlaagd en de voortgangsbalk waarde wordt gewijzigd om de status van de lus weer te geven .
|
