Numeri Disposizione in Visual Basic dal più basso al più alto è una caratteristica prevista dalla manovra "Ordina" nella classe List . Purtroppo, non è una caratteristica fornita dal ListBox Graphical User Interface ( GUI ) elemento , quindi al fine di eseguire questa operazione sui dati in un controllo ListBox , è necessario spostare i dati su di un elenco. Istruzioni
1

Aggiungere una casella di riepilogo al form trascinandolo dalla lista "Componenti" a sinistra.
2

Aggiungere un pulsante al form . In Editor Proprietà nella parte inferiore destra dello schermo , modificare la proprietà Text su " Ordina ". Modificare la proprietà nome in " SortButton . " In questo modo sarà più facile identificare questo pulsante quando si scrive codice .

3

Aggiungere una casella di testo al form. Cambiare la proprietà nome in " UserInputTextBox ", ma lasciare la sua proprietà di testo vuoto . Questo è dove l' utente inserirà un numero per aggiungerlo alla ListBox .
4

aggiungere un'etichetta al form , e posizionarlo accanto alla casella di testo aggiunto nel passaggio 3 . Modificare la proprietà Text su " Immettere un numero . "
5

Aggiungi un pulsante. Modificare il testo a " Aggiungi a elenco . " Cambiare la proprietà nome in " AddButton . "
6

Fare doppio clic sul pulsante "Aggiungi" . Questo creerà una funzione di evento azione e passare ad esso. Incolla questo codice all'interno della funzione :

Dim numero As Double = Nuovo doppio
numero

= Double.Parse ( UserInputTextBox.Text ) per

ListBox1.Items.Add (numero. ToString ) per

Questo crea un numero come un doppio , quindi non c'è molto spazio per i decimali. Si cerca quindi di interpretare ( o parse ) le informazioni nella UserInputTextBox come numero. E, infine , se è in grado di interpretare correttamente l'input dell'utente come numero , si aggiunge alla casella di riepilogo .

Fare clic sulla scheda "Design" per tornare alla finestra del modulo .
7

doppio clic sul pulsante "Ordina" . Poiché l'elenco integrato nel ListBox non supporta l'operazione di ordinamento , è necessario spostare tutti i numeri nella casella di riepilogo in un oggetto List prima di sorta , quindi ordinarli , e infine passare di nuovo alla ListBox . Incolla questo codice per farlo :

numeri Dim As List ( Of Double ) = New List ( Of Double ) per

per ogni n As Double In ListBox1.Itemsnumbers.Add ( n) Avanti < br

ListBox1.Items.Clear > ( ) per

numbers.Sort ( ) per

per ogni n As Double In numbersListBox1.Items.Add ( n) Successivo