Πώς να Τακτοποιήστε Αριθμοί Από Χαμηλότερη σε Υψηλότερη Χρήση της 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 ) Επόμενο
Η
εικόνων