Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να Τακτοποιήστε Αριθμοί Από Χαμηλότερη σε Υψηλότερη Χρήση της Visual Basic

Τακτοποίηση αριθμούς σε Visual Basic από την χαμηλότερη στην υψηλότερη είναι ένα χαρακτηριστικό που παρέχεται από την " Ταξινόμηση " πράξη στην τάξη List. Δυστυχώς , αυτό δεν είναι ένα χαρακτηριστικό που παρέχεται από το πλαίσιο λίστας Graphical User Interface ( GUI ) στοιχείου, έτσι ώστε να εκτελέσετε αυτή τη λειτουργία για τα δεδομένα σε ένα πλαίσιο λίστας , θα πρέπει πρώτα να μετακινήσετε τα δεδομένα πάνω σε μια λίστα . Οδηγίες
Η 1

Προσθέστε ένα πλαίσιο λίστας στη φόρμα σας, σύροντάς το από το " Components " λίστα στα αριστερά . 2

Προσθέστε ένα κουμπί στη φόρμα σας . Στο Properties συντάκτης στο κάτω δεξιά μέρος της οθόνης , αλλάξτε την ιδιότητα κειμένου σε " Ταξινόμηση ". Αλλάξτε την ιδιότητα όνομα σε " SortButton . " Αυτό θα καταστήσει ευκολότερο τον εντοπισμό αυτό το κουμπί όταν είστε σύνταξη κώδικα.

Η 3

Προσθέστε ένα πλαίσιο κειμένου στη φόρμα σας . Αλλαγή του ονόματος του ακινήτου της στην " UserInputTextBox ", αλλά αφήστε το κενό ακίνητο κείμενο. Αυτό είναι όπου ο χρήστης θα εισάγει έναν αριθμό για να το προσθέσετε στο πλαίσιο λίστας .
Η 4

Προσθήκη ετικέτας στη φόρμα σας , και τοποθετήστε το δίπλα στο πλαίσιο κειμένου που προσθέσατε στο βήμα 3 . Αλλαγή ιδιοκτησίας κείμενό της " Πληκτρολογήστε έναν αριθμό . "
5

Προσθέστε ένα κουμπί . Αλλάξτε το κείμενό της στην "Προσθήκη στη λίστα ". Αλλαγή του ονόματος της περιουσίας του σε " AddButton . "
Η

6 Κάντε διπλό κλικ στο κουμπί "Προσθήκη " . Αυτό θα δημιουργήσει μια λειτουργία συμβάν δράση και να προχωρήσουμε σε αυτό . Επικολλήστε αυτόν τον κώδικα μέσα στη συνάρτηση :

Dim αριθμό As Double = Νέα Διπλή

αριθμό = Double.Parse ( UserInputTextBox.Text )

ListBox1.Items.Add ( number. ToString )

Αυτό δημιουργεί έναν αριθμό ως ένα διπλό , οπότε εκεί υπάρχει άφθονος χώρος για δεκαδικά ψηφία . Στη συνέχεια, επιχειρεί να ερμηνεύσει (ή αναλύσει ) τις πληροφορίες στο UserInputTextBox ως αριθμός. Και τέλος , αν μπορεί να ερμηνεύσει με επιτυχία την είσοδο του χρήστη ως έναν αριθμό , το προσθέτει στο πλαίσιο λίστας .

Κάντε κλικ στην καρτέλα " Σχεδίαση " για να επιστρέψετε στο παράθυρο της φόρμας σας .
Η 7

κάντε διπλό κλικ στο κουμπί " Ταξινόμηση " . Επειδή ο κατάλογος είναι ενσωματωμένη στο πλαίσιο λίστας δεν υποστηρίζει τη λειτουργία του είδους, πρέπει να μετακινήσετε όλους τους αριθμούς πλαισίου λίστας σε μια λίστα αντικειμένων προτού να ταξινομήσετε , στη συνέχεια, να τους ταξινομήσετε , και τελικά να τους πίσω στο πλαίσιο λίστας . Επικολλήστε αυτόν τον κωδικό για να το κάνουμε αυτό :

Dim αριθμούς Ως λίστα ( της Διπλής ) = Νέα λίστα ( της Διπλής )

For Each n As Double Στην ListBox1.Itemsnumbers.Add (n ) Επόμενο

ListBox1.Items.Clear ( )

numbers.Sort ( )

For Each n As Double Στην numbersListBox1.Items.Add (n ) Επόμενο
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα