Arrangera siffror i Visual Basic från lägsta till högsta är en funktion som tillhandahålls av " Sort " operation i lista klassen . Tyvärr är det inte en funktion som tillhandahålls av ListBox Graphical User Interface ( GUI ) elementet , så för att utföra denna operation på data i en listruta , måste du först flytta data över till en lista . Instruktioner
1
Lägg en listbox till formuläret genom att dra den från " Komponenter " listan till vänster .
2
Lägg en knapp i formuläret . I Egenskaper Editor längst ned till höger på skärmen , ändra texten egenskapen till " Sort . " Ändra namnet egenskapen till " SortButton . " Detta kommer att göra det lättare att identifiera den här knappen när du skriver koden .
3
Lägg en textruta i formuläret . Ändra namnet egenskap till " UserInputTextBox , " men lämna sin tomt text-egenskap . Det är där användaren ska mata in ett nummer för att lägga till ListBox .
4
Lägg en etikett i formuläret , och placera den bredvid textrutan du lade till i steg 3 . Ändra dess text-egenskap till " Ange ett tal . "
5
Lägg en knapp . Ändra sin text till " Lägg till i listan . " Byter namn egenskapen till " AddButton . "
6
Dubbelklicka på " Lägg till" knappen . Detta kommer att skapa en funktion action händelse och flytta dig till den . Klistra in den här koden i funktionen :
Dim antal Som Double = Ny Dubbel
number = Double.Parse ( UserInputTextBox.Text ) katalog
ListBox1.Items.Add ( number. ToString ) katalog
Detta skapar ett antal som en dubbel , så det finns gott om utrymme för decimaler . Därefter görs ett försök att tolka ( eller parse ) informationen i UserInputTextBox som ett tal . Och slutligen , om det kan lyckas tolka användarens input som ett tal , lägger den till listrutan .
Klicka på " Design "-fliken för att återgå till formuläret fönster .
7
Dubbelklicka på " Sortera " -knappen . Eftersom listan inbyggd i ListBox inte stödjer den sortens operation , måste du flytta alla nummer i listrutan i en List-objektet innan du sorterar , sedan sortera dem , och slutligen flytta tillbaka dem till ListBox . Klistra in denna kod för att göra det :
Dim siffror som lista ( Av Double ) = Ny lista ( av dubbla ) katalog
För varje n som Double I ListBox1.Itemsnumbers.Add ( n ) Nästa
ListBox1.Items.Clear ( ) katalog
numbers.Sort ( ) katalog
För varje n Som Double I numbersListBox1.Items.Add ( n ) Nästa
Addera
