Ordne tallene i Visual Basic fra laveste til høyeste er en funksjon gitt av "Sort " operasjon i List klassen . Dessverre er det ikke en funksjon levert av Liste- Graphical User Interface ( GUI ) element , så for å utføre denne operasjonen på dataene i en Listeboks , må du først flytte data over til en liste. Instruksjoner
en

Legg et tekstfelt i skjemaet ved å dra den fra " komponenter" listen til venstre .
2

Legg en knapp i skjemaet . I Egenskaper Editor nederst til høyre på skjermen , endre teksten eiendommen til "Sort ". Endre navnet eiendommen til " SortButton . " Dette vil gjøre det enklere å identifisere denne knappen når du skriver koden .

3

Legg til en tekstboks i skjemaet. Endre navn egenskapen til " UserInputTextBox ", men la sin tekst eiendom blank . Dette er hvor brukeren vil legge inn et nummer for å legge den til i Liste- .
4

Legg en etikett i skjemaet, og plassere den ved siden av tekstboksen du har lagt i trinn 3 . Endre teksten eiendommen til " Skriv inn et nummer . "
5

Legg en knapp . Endre teksten til " Legg til liste ". Endre navnet eiendommen til " AddButton . "
6

Dobbeltklikk på "Legg til" -knappen. Dette vil skape en handling hendelse funksjon og bevege deg til det. Lim inn denne koden på innsiden av funksjon : en

Dim antall As Double = Ny Double

nummer = Double.Parse ( UserInputTextBox.Text )

ListBox1.Items.Add ( buss. toString )

Dette skaper et tall som en dobbel, så det er god plass til desimaler . Den forsøker da å tolke ( eller parse ) opplysningene i UserInputTextBox som et tall. Og til slutt , hvis det kan lykkes tolke brukerens input som et tall, det legger den til i listen .

Klikk på " Design "-kategorien for å gå tilbake til skjemaet vinduet .
7

Dobbeltklikk på "Sort "-knappen . Fordi listen innebygd i Liste- ikke støtter den typen operasjon , må du flytte alle tallene i Liste i en liste objekt før du sortere, deretter sortere dem , og til slutt flytte dem tilbake til Liste- . Lim denne koden for å gjøre det:

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

For hver n Som dobbel i ListBox1.Itemsnumbers.Add ( n ) Neste

ListBox1.Items.Clear ( )

numbers.Sort ( )

For hver n As Double I numbersListBox1.Items.Add (n ) Neste