Il Basic 2008 il controllo visivo barra di avanzamento mostra visivamente l'avanzamento di alcune operazioni in un programma . Quando si crea il programma , si imposta la proprietà " massimo " per la barra di avanzamento "minimo" e , e mentre il programma esegue un'azione sui dati , si aggiorna lo stato della barra di avanzamento modificando la sua proprietà "value" . Ad esempio, se il programma apre un file e legge 50 righe di testo in un array di stringhe , impostare minimo della barra di avanzamento a zero e il massimo a 50 . Quando il programma legge le prime 25 righe , modificare il valore della barra di avanzamento al 25 per mostrare il marcatore avanzamento al giro di boa . Istruzioni
1

Aprire un progetto Visual Basic 2008 in modalità progettazione. Fare doppio clic sul controllo " ProgressBar " per aggiungerlo al form. Fare doppio clic sul controllo " pulsante " per aggiungerlo alla forma pure. Disporre i controlli del form , come si desidera vengano visualizzati .
2

Aprire la finestra del codice . Tipo " Imports System.IO " nella riga superiore per rendere il vostro programma di chiamare l'ingresso del sistema e funzioni di uscita . Hai bisogno di questo per aprire e leggere un file .
3

Aprire la funzione " Button1_Click " . Digitare quanto segue :

Dim count As Integer = 0

ingresso fioco come StreamReader = New StreamReader ( "c: \\ filename.txt " )

linee dim ( 1000) As String

Dim totale as Integer

La prima dichiarazione dichiara una semplice variabile contatore . Il secondo si apre un oggetto StreamReader che legge un file di testo chiamato " filename.txt . " La terza dichiarazione crea un array di stringhe che contiene fino a 1.000 righe dal file di testo . L' ultima dichiarazione crea una variabile intera che verrà utilizzato per aggiornare la barra di avanzamento
4

Digitare quanto segue : .

Mentre Non input.EndOfStream
linee

( count) = input.ReadLine ( ) per conteggio

+ = 1

End While

Questo ciclo legge il file di testo e di magazzini e negozi di ogni linea in un punto della matrice fino a quando ogni linea è stato letto
5

Digitare quanto segue: .

progresso = count

ProgressBar1.Minimum = 0

ProgressBar1.Maximum = progresso

Questo imposta la variabile "progresso " per il valore della variabile "count" , e poi imposta il valore minimo della barra di avanzamento a zero e il massimo per il valore che il "progresso " tiene .
Pagina 6

Digitare quanto segue :

For i = 0 To progresso - 1

callToSomeFunction (array ) per

progresso - = 1

ProgressBar1.Value = i

Next i

cicli di questo loop attraverso ogni elemento della matrice ed esegue un'azione su di essa nel " callToSomeFunction ( array) " linea . Come ogni elemento dell'array viene elaborato , la variabile "progresso" è decrementato di uno e il valore barra di avanzamento viene modificato per riflettere lo stato del ciclo.