Πώς να κάνω μια επαναλαμβανόμενη γραμμή προόδου σε VB

Προσθέτοντας μια επαναλαμβανόμενη γραμμή προόδου στο Microsoft Visual Basic ( VB ) να κάνετε την αίτησή σας πιο φιλικό προς το χρήστη ? Επικοινωνεί με το χρήστη ότι η εφαρμογή λειτουργεί στο παρασκήνιο . Ένας έλεγχος γραμμή προόδου υποδεικνύει οπτικά την πρόοδο μιας χρονοβόρα διαδικασία , δείχνοντας μια συνεχή γραμμή που γεμίζει από τα αριστερά προς τα δεξιά . Μπορείτε να δείχνουν συνεχώς την ίδια γραμμή προόδου που επαναλαμβάνεται με τη χρήση ενός " While ... Loop » και την αλλαγή της τιμής της μπάρας προόδου . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας , και επεκτείνουν " Visual Basic " κάτω " εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Windows Forms Application " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο . 2

διπλό κλικ στο " ProgressBar " από την " Toolbox" παράθυρο για να προσθέσετε μια νέα πορεία ελέγχου γραμμής . Κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί στη φόρμα . Προσθέστε ένα δεύτερο κουμπί .
Εικόνων 3

διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα νέο συμβάν κλικ το κουμπί . Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε ένα βρόχο για να επαναλάβετε τη γραμμή προόδου μέχρι ο χρήστης κάνει κλικ στο δεύτερο κουμπί :

Dim xCntr As Integer

xCntr = 1

userWantsToStop = False

Me.ProgressBar1.Minimum = 0

Me.ProgressBar1.Maximum = 1000

Do Ενώ ( userWantsToStop = False )

Me.ProgressBar1.Value = xCntr

Application.DoEvents ( )

System.Threading.Thread.Sleep ( 1 )

Αν ( xCntr = 1000 ) τότε

xCntr = 1

End If

xCntr = xCntr + 1

Loop
Η 4

Επιστρέψτε στην προβολή Σχεδίαση φόρμας και κάντε διπλό κλικ στο " Button2 " για να δημιουργήσετε ένα γεγονός click για αυτό το κουμπί . Προσθέστε τον ακόλουθο κώδικα για να επαναφέρετε τη γραμμή προόδου και να σταματήσει το loop , ενώ στο προηγούμενο βήμα :

userWantsToStop = True

Me.ProgressBar1.Value = 0
5

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα και κάντε κλικ στο " Button1 " για να ξεκινήσει η επανάληψη τη γραμμή προόδου . Κάντε κλικ στο " Button2 " για να το σταματήσει .
Η
εικόνων