Il Progress Bar è uno dei controlli più semplici in Visual Basic . La barra riporta sullo stato di alcuni funzionamento del computer, ad esempio durante l'installazione di nuovo qualche altro processo lungo o software , come trasferimento di file di rete . Il bar offre all'utente qualche garanzia che il programma non è andato in crash . Il processo è lo stesso in entrambi Visual Basic 6.0 e Visual Basic 2008 Express Edition , anche se il codice in quest'ultimo è leggermente diverso . Come Funziona
come operazione procede , il codice legge continuamente quanto viene completata e calcola lo stato. Se il valore minimo è impostato su uno e il massimo di 100 , la barra si riempirà la metà della visualizzazione della barra quando il 50 per cento del completamento dell'operazione. Per eseguire questo calcolo , il programmatore deve sapere quanto tempo deve avvenire . Per fare un esempio , se l'utente sta scaricando un file MB cinque , per il momento 2.5 MB hanno scaricato , la barra si sarà spostato a metà strada .
Creare una barra di avanzamento
< p > Inizia con la creazione di un nuovo progetto , dopo l'apertura di Visual Basic . Fare clic su "File ", " Nuovo progetto" e selezionare " formato standard EXE" . Aggiungere il controllo ProgressBar cliccando su "progettare", "Componenti ". Trova le Microsoft Windows Common Controls nella lista. Scegli di Visual Basic di Microsoft Common Controls ( SP6 ) mettendo un segno di spunta nella casella accanto al controllo . Fare clic su " Applica " e "OK ". Si dovrebbe vedere il controllo della lista nel pannello di sinistra . Fare doppio clic su di esso per aggiungerlo alla forma .
Impostare le proprietà
Se si lavora con una operazione in cui la percentuale di completamento è facile calcolare come un download di file , impostare la proprietà Minimum nel pannello Proprietà su "1" e il massimo di "100 ". Un altro modo per impostare il massimo è di avere il codice di contare il numero di iterazioni di qualche operazione , confrontare questo al numero totale e calcolare dove la barra dovrebbe essere. Altezza e la proprietà Left controllano l'altezza della barra stessa e dove appare dalla sinistra dello schermo . Solo due altre sostanze proprietà : Se la barra scorre lungo lo schermo in verticale o in orizzontale , e se blocchi incrementali appare o la barra è più liscia . Scegliere questi dal "Orientamento" e "Proprietà di scorrimento . " Se non può essere predeterminato il massimo , è possibile utilizzare un controllo animazione per mantenere la barra muoversi fino al completamento dell'operazione . Questo miglioramento va oltre il livello di questo tutorial . Dal momento che il bar non dovrebbe apparire fino a quando l'operazione ha inizio , impostare la proprietà Visible su "False ". Per questo esempio , impostare la proprietà Maximum a " 10000" e lasciare la minima a "0 ". Infine, aggiungere un controllo pulsante di comando dalla lista strumenti al form per avviare un'azione . Modificare la proprietà (Name ) su " btnStart " e la didascalia di "Start ".
Scrivi il codice
Clicca su "Visualizza ", "Codice" per aprire la finestra di programmazione . Digitare le righe seguenti esattamente come mostrato . Le prime tre linee di carico del modulo e fare la barra di avanzamento visibile . Il resto del codice si esegue una sequenza ripetitiva di dimostrare la barra . Il numero finale di questo codice è impostato molto alto per rallentare la barra di avanzamento verso il basso per la visibilità . Sostituire i passaggi della seconda sezione che inizia con " Private Sub btnStart_Click ( ) e termina " End Sub "con qualunque evento che tempismo per ottenere un nuovo ProgressBar1.Value . Sempre aggiungere un comando per modificare la visibilità della barra di " False " quando termina la routine.
private Sub Form_Load ( ) ProgressBar1.Visible = TrueEnd Sub
private Sub btnStart_Click ( ) Dim n Come IntegerFor n = 1 Per 10000ProgressBar1.Value = nSuccess Nend Sub < br
prova> il codice premendo il tasto "F5" .
Visual Basic 2008 Express Edition Versione
In Visual Basic 2008 , sostituisce le seguenti righe per le righe che iniziano private Sub :
private Sub Form1_Load ( eventSender ByVal come System.Object , ByVal eventArgs come System.EventArgs ) Handles MyBase.LoadPrivate Sub btnStart_Click ( eventSender ByVal come System.Object , ByVal eventArgs come System.EventArgs ) Maniglie btnStart.Click
