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
Programmazione © www.354353.com