Arrangieren Zahlen in Visual Basic vom niedrigsten zum höchsten ist eine Funktion von der "Sortieren" Betrieb in der List-Klasse bereitgestellt . Leider ist es nicht ein Feature von der ListBox Graphical User Interface (GUI )-Element , so um diese Operation an den Daten in einer ListBox durchzuführen , müssen Sie sich zunächst verschieben Sie die Daten in eine Liste zur Verfügung gestellt. Anleitung
1
hinzufügen Listenfeld auf das Formular , indem Sie es von der Liste "Komponenten" auf der linken Seite .
2
Fügen Sie eine Schaltfläche, um Ihre Form . In der Eigenschaften-Editor im unteren rechten Ecke des Bildschirms , ändern Sie die Text-Eigenschaft auf "Sortieren ". Ändern Sie den Namen -Eigenschaft auf " SortButton . " Dadurch wird es einfacher, diese Taste , wenn Sie das Schreiben von Code zu identifizieren.
3
Fügen Sie ein Textfeld in das Formular. Ändern Sie die Eigenschaft Name auf " UserInputTextBox , " aber lassen Sie die Text-Eigenschaft leer. Dies ist, wo der Benutzer eine Zahl eingeben werden , um es in der ListBox hinzufügen.
4
Fügen Sie ein Etikett auf dem Formular , und platzieren Sie es neben dem Textfeld die Sie in Schritt 3 hinzugefügt. Ändern Sie den Text -Eigenschaft auf " Geben Sie eine Zahl ein. "
5
Fügen Sie eine Schaltfläche . Ändern Sie den Text " Zur Liste hinzufügen. " Ändern Sie die Eigenschaft Name auf " AddButton . "
6
Doppelklicken Sie auf die Schaltfläche "Hinzufügen" . Dadurch wird eine Aktion Event-Funktion und bewegen Sie es . Fügen Sie diesen Code innerhalb der Funktion :
Dim Anzahl As Double = new double
number = Double.Parse ( UserInputTextBox.Text )
ListBox1.Items.Add (Nr. ToString )
Dies schafft eine Zahl als eine doppelte , so gibt es viel Raum für Dezimalstellen. Es versucht dann zu interpretieren ( oder Parsen ) die Informationen in der UserInputTextBox als eine Nummer. Und schließlich, wenn es erfolgreich interpretieren die Eingabe des Benutzers als Zahl , fügt es in die Liste ein.
Klicken Sie auf die Registerkarte "Entwurf" , um zum Formular zurückzukehren.
7
Doppelklicken Sie auf die Schaltfläche "Sortieren" . Da die Liste in die ListBox gebaut nicht unterstützt Art Betrieb , müssen Sie alle Zahlen in der ListBox verschieben in ein List-Objekt , bevor Sie sortieren , dann sortieren sie , und schließlich bewegen sie zurück in die ListBox . Fügen Sie diesen Code , um das zu tun:
Dim Zahlen As List ( Of Double ) = New List ( Of Double )
For Each n As Double In ListBox1.Itemsnumbers.Add ( n ) Weiter
ListBox1.Items.Clear ()
numbers.Sort ()
For Each n As Double In numbersListBox1.Items.Add ( n ) Next