Arrangere numre i Visual Basic fra laveste til højeste er en funktion , som den "Sort " operation i listen klassen. Desværre er det ikke en funktion , som den ListBox Graphical User Interface ( GUI) element , så for at udføre denne handling på data i et ListBox , skal du først flytte data over til en List. Instruktioner
1

Tilføj listbox til formularen ved at trække det fra " Komponenter " listen til venstre .
2

Tilføj en knap til formularen . I Properties Editor nederst til højre på skærmen , ændre teksten ejendom til "Sort ". Ændre navnet ejendom til " SortButton . " Dette vil gøre det lettere at identificere denne knap, når du skriver koden. < br >
3

Tilføj et tekstfelt til din formular. Ændre sit navn ejendom til " UserInputTextBox ", men lade sin tekst ejendom tomt. Dette er, hvor brugeren vil indtaste et nummer for at føje det til ListBox .
4

Tilføj en etiket til formularen , og placere den ved siden af ​​tekstfeltet du har tilføjet i trin 3 . Ændre sin tekst ejendom til " Indtast et tal . "
5

Tilføj en knap. Ændre sin tekst til " Føj til liste ". Ændre sit navn ejendom til " AddButton ".
6

Dobbeltklik på knappen "Tilføj" . Dette vil skabe en handling begivenhed funktion og flytte dig til det. Indsæt denne kode inde i funktionen : Hej

Dim nummer som Double = Ny Double

nummer = Double.Parse ( UserInputTextBox.Text )

ListBox1.Items.Add ( number. ToString )

Dette skaber et tal som en dobbelt, så der er masser af plads til decimaler. Det forsøger derefter at fortolke (eller parse ) oplysningerne i UserInputTextBox som et tal. Og endelig, hvis det med succes kan fortolke brugerens input som et tal, det tilføjer den til listen.

Klik på " Design " fanen for at vende tilbage til formularen vinduet.
7

Dobbeltklik på "Sort " knappen. Fordi listen er indbygget i ListBox ikke understøtter den slags operation , skal du flytte alle numrene i ListBox til en liste objekt , før du sortere , og derefter sortere dem , og endelig flytte dem tilbage til ListBox . Indsæt denne kode til at gøre det :

Dim tal som en liste ( for dobbelt ) = Ny liste ( Af Double )

For Each n som dobbelt In ListBox1.Itemsnumbers.Add ( n ) Næste < br >

ListBox1.Items.Clear ()

numbers.Sort ()

For Each n Som Double In numbersListBox1.Items.Add (n ) Næste