Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte projekt aplikácie Visual Basic v návrhovom režime 2008 . Dvakrát kliknite na ovládací prvok " progressbar " pridať do formulára . Dvakrát kliknite na ovládací prvok " tlačidlo " pridať do formulára rovnako . Usporiadať ovládacie prvky na formulári tak , ako chcete , aby sa zobrazili .
2
Otvorte okno kód . Zadajte " Imports System.IO " na hornom riadku , aby sa váš program volanie vstupných a výstupných funkcií systému . Musíte to otvoriť a čítať súbor .
3
Otvorte funkciu " Button1_Click " . Zadajte nasledujúci príkaz :
Dim počet As Integer = 0
Dim vstup ako StreamReader = New StreamReader ( " c : \\ filename.txt " )
Dim linky ( 1000 ) as String Dim
celkom ako Integer
Prvé vyhlásenie deklaruje jednoduchý čítač premennú . Druhý otvorí StreamReader objekt , ktorý číta textový súbor s názvom " filename.txt . " Tretia vyhlásenie vytvorí pole reťazcov , ktoré pojme až 1000 riadkov z textového súboru . Posledné vyhlásenie vytvorí celočíselnú premennú , ktorú bude používať aktualizovať progress bar
4
Zadajte nasledujúci príkaz : .
Keď nie input.EndOfStream
linky ( počítať ) = input.ReadLine ( )
počítať + = 1
Koniec Kým
Táto slučka prečíta textový súbor a obchody a obchody každého riadku v mieste , v poli do doby , než čítať každý riadok
5
Zadajte nasledujúci príkaz : .
progress = počet
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = pokrok
nastaví " pokroku " premennú na hodnotu ako " počítať " premenné , a potom sa nastaví na minimálnu hodnotu bare na nulu pokroku a maximálnej hodnoty , že " pokrok " platí .
Praha 6
Zadajte nasledujúci príkaz :
i = 0 pokroku - 1
callToSomeFunction ( array )
pokrok - = 1
ProgressBar1.Value = i
Next i
túto slučku cyklicky každú položku v poli a vykoná akciu na neho v " callToSomeFunction ( pole ) " riadok . Ako každá položka v poli je spracovaná , " pokrok " premenná sa zníži o jeden a hodnota progress bar sa zmení tak , aby odrážali stav slučky .