Progress Bar Tutorial

Η γραμμή προόδου είναι ένα από τα απλούστερα ελέγχων σε Visual Basic . Το μπαρ εκθέσεις για την κατάσταση ορισμένων λειτουργιών του υπολογιστή , για παράδειγμα κατά την εγκατάσταση νέου λογισμικού ή κάποια άλλη χρονοβόρα διαδικασία , όπως μεταφορά αρχείων δικτύου . Το μπαρ δίνει στο χρήστη κάποια διαβεβαίωση ότι το πρόγραμμα δεν έχει καταρρεύσει . Η διαδικασία είναι η ίδια και στις δύο Visual Basic 6.0 και Visual Basic 2008 Express Edition μολονότι ο κώδικας στο τελευταίο είναι ελαφρώς διαφορετική. Πώς λειτουργεί
Η

Ως ένα προϊόν της λειτουργίας , ο κώδικας διαβάζει συνεχώς πόσο έχει ολοκληρωθεί και υπολογίζει την κατάσταση . Εάν η ελάχιστη τιμή έχει οριστεί σε ένα και το μέγιστο σε 100 , η μπάρα θα γεμίσει το μισό της οθόνης bar όταν το 50 τοις εκατό της λειτουργίας έχει ολοκληρωθεί. Για να εκτελέσετε αυτόν τον υπολογισμό , ο προγραμματιστής πρέπει να γνωρίζει πόσο καιρό η επιχείρηση θα λάβει . Ως παράδειγμα , αν ο χρήστης κατεβάζει ένα αρχείο πέντε MB , από τη στιγμή που 2,5 MB έχουν κατεβάσει , η γραμμή θα έχει μετακινηθεί στην άλλη άκρη .
Εικόνων Δημιουργήστε μια γραμμή προόδου
Η

Ξεκινήστε με τη δημιουργία ενός νέου έργου μετά το άνοιγμα της Visual Basic . Κάντε κλικ στο "Αρχείο ", " New Project" και επιλέξτε το "Standard EXE μορφή " . Προσθέστε το στοιχείο ελέγχου ProgressBar κάνοντας κλικ στο "Project ", " στοιχεία". Βρείτε τα κοινά στοιχεία ελέγχου Microsoft Windows στη λίστα . Επιλέξτε τα Visual Basic κοινά στοιχεία ελέγχου Microsoft ( SP6 ) τοποθετώντας ένα σημάδι στο πλαίσιο δίπλα στο στοιχείο ελέγχου . Κάντε κλικ στο " Apply" και "OK". Θα πρέπει να δείτε το στοιχείο ελέγχου στη λίστα στο αριστερό πλαίσιο . Κάντε διπλό κλικ σε αυτό για να το προσθέσετε στη φόρμα .

Η Ρυθμίστε τις ιδιότητες
Η

Αν εργάζεστε με μια επιχείρηση όπου το ποσοστό ολοκλήρωσης είναι εύκολο να υπολογιστεί , όπως μια λήψη αρχείων , ορίστε την ιδιότητα Ελάχιστη στον πίνακα Properties στο " 1" και το μέγιστο σε "100 ". Ένας άλλος τρόπος για να ορίσετε το μέγιστο είναι να έχει ο κωδικός μετρήσει τον αριθμό των επαναλήψεων ορισμένων λειτουργιών , συγκρίνετε αυτό με το συνολικό αριθμό , και να υπολογίσετε όπου η γραμμή θα πρέπει να είναι . Ύψος και Αριστερά ιδιότητες ελέγχουν το ύψος του ίδιου του μπαρ και όπου φαίνεται από την αριστερή πλευρά της οθόνης . Μόνο δύο άλλες ιδιότητες σημασία : Εάν η γραμμή διασχίζει την οθόνη κάθετα ή οριζόντια και εάν στοιχειώδη κομμάτια εμφανίζονται ή η γραμμή είναι ομαλότερη . Επιλέξτε αυτά από το « Προσανατολισμός » και « Scrolling Ιδιότητες". Αν δεν μπορεί να προκαθοριστεί η μέγιστη , είναι δυνατό να χρησιμοποιήσετε ένα στοιχείο ελέγχου κίνησης για να κρατήσει τη γραμμή κινείται μέχρι να ολοκληρωθεί η λειτουργία . Αυτό το εξάρτημα πηγαίνει πέρα από το επίπεδο της εν λόγω φροντιστήριο . Δεδομένου ότι η γραμμή δεν πρέπει να εμφανίζεται μέχρι να αρχίσουν οι εργασίες , ορίστε την ιδιότητα Visible σε "False ". Για αυτό το παράδειγμα , που η μέγιστη ιδιότητα " 10000 " και να αφήσετε το ελάχιστο στο "0". Τέλος , προσθέστε ένα στοιχείο ελέγχου κουμπιού εντολής από τη λίστα Εργαλεία για τη φόρμα για να αναλάβει δράση . Αλλάξτε το ( όνομα) ιδιότητα να " btnStart » και η λεζάντα "Start ".
Εικόνων Γράψτε τον κώδικα
Η

Κάντε κλικ στο "Προβολή ", " Κώδικας " για να ανοίξετε το παράθυρο προγραμματισμού . Πληκτρολογήστε τις γραμμές κάτω ακριβώς όπως φαίνεται . Οι τρεις πρώτες γραμμές φορτωθεί το έντυπο και να κάνει η ράβδος προόδου ορατό . Το υπόλοιπο του κώδικα εκτελείται μέσω μιας επαναλαμβανόμενης αλληλουχίας για να αποδειχθεί η μπαρ. Ο αριθμός τέλος σε αυτόν τον κώδικα έχει τεθεί πολύ ψηλά για να επιβραδύνει τη γραμμή προόδου προβλέπεται για την προβολή . Αντικαταστήστε τα βήματα στο δεύτερο τμήμα που αρχίζει με το " Private Sub btnStart_Click ( ) και τέλος," End Sub " με ό, τι εκδήλωση θα είναι ο χρόνος για να πάρετε μια νέα ProgressBar1.Value . Πάντα να προσθέσετε μια εντολή για να αλλάξετε την προβολή του μπαρ για να " False " όταν η ρουτίνα τελειώνει .

Private Sub Form_Load ( ) ProgressBar1.Visible = TrueEnd Sub

Private Sub btnStart_Click ( ) Dim n Όπως IntegerFor n = 1 Για να 10000ProgressBar1.Value = nΕπόμενο μη nEnd Sub

Δοκιμάστε τον κωδικό πατώντας το πλήκτρο "F5 " .
εικόνων Basic 2008 Express Edition Έκδοση Visual
Η

στο Visual Basic 2008 , να υποκαταστήσει τις ακόλουθες γραμμές για οι γραμμές που ξεκινούν Private Sub :

Form1_Load Private Sub ( ByVal eventSender Όπως System.Object , ByVal Όπως EventArgs System.EventArgs ) Λαβές MyBase.LoadPrivate Sub btnStart_Click ( ByVal eventSender Όπως System.Object , ByVal Όπως EventArgs System.EventArgs ) Λαβές btnStart.Click
Η
εικόνων