Organizzare i numeri in Visual Basic dal più basso al più alto è una funzionalità fornita dall'operazione di "Ordinamento" nella classe List. Purtroppo, non si tratta di una funzionalità fornita dall'elemento ListBox di interfaccia utente grafica (GUI), così al fine di eseguire questa operazione sui dati in un controllo ListBox, è innanzitutto necessario spostare i dati a un elenco.

Istruzioni

1

Aggiungere un controllo listbox al form trascinando dall'elenco "Componenti" sulla sinistra.

2

Aggiungere un pulsante al form. Nell'Editor delle proprietà in basso a destra dello schermo, modificare la proprietà text su "Sort". Modificare la proprietà name per "SortButton." Questo renderà più facile per identificare questo pulsante quando si scrive codice.

3

Aggiungere un controllo textbox al form. Modificare la proprietà name per "UserInputTextBox", ma lasciare vuota la proprietà text. Questo è dove l'utente potrà immettere un numero per aggiungerlo al controllo ListBox.

4

Aggiungere un'etichetta al form e posizionarlo accanto alla casella di testo che aggiunto nel passaggio 3. Modificare la proprietà text per "Immettere un numero."

5

Aggiungere un pulsante. Modificare il testo "Aggiungi alla lista". Modificare la proprietà name per "AddButton."

6

Fare doppio clic sul pulsante "Aggiungi". Questo crea una funzione di eventi di azione e di spostarti ad esso. Incolla questo codice all'interno della funzione:

Dim number As Double = New Double

number = Double.Parse(UserInputTextBox.Text)

ListBox1.Items.Add(number.ToString)

Questo crea un numero come valore double, così lì c'è un sacco di spazio per posizioni decimali. Tenta quindi di interpretare (o analizzare) le informazioni nella UserInputTextBox come un numero. E infine, se in grado di interpretare correttamente l'input dell'utente come un numero, lo aggiunge alla casella di riepilogo.

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

7

Fare doppio clic sul pulsante "Ordina". Poiché l'elenco costruito nel controllo ListBox, non supporta l'operazione di ordinamento, è necessario spostare tutti i numeri nella casella di riepilogo in un oggetto List prima di ordinare, poi ordinarli e infine spostarli nuovamente al controllo ListBox. Incolla questo codice per farlo:

Dim numbers As List(Of Double) = New List(Of Double)

For Each n As Double In ListBox1.Items
numbers.Add(n)
Next

ListBox1.Items.Clear()

numbers.Sort()

For Each n As Double In numbers
ListBox1.Items.Add(n)
Next