• 
  

  hur man ordnar siffror från lägsta till högsta med Visual Basic

  
  

Arrangera nummer i Visual Basic från lägsta till högsta är en funktion som tillhandahålls av "Sortera " operation i listan klassen . Tyvärr är det inte en funktion som ListBox grafiskt användargränssnitt ( GUI ) element , så för att utföra denna operation på data i en listruta måste du först flytta data över till en lista
1 .
Lägg till en listruta i formuläret genom att dra det från " komponenter " listan till vänster .

2 .
Lägg till en knapp i formuläret . I Egenskaper Editor längst ner till höger på skärmen , ändra texten egenskapen " Sortera ". Ändra namnet egenskapen " SortButton . " Det gör det lättare att identifiera den här knappen när du skriver kod .
3 .
Lägg till en textruta i formuläret . Byta namn egendom " UserInputTextBox ", men lämna dess text-egenskap tom . Det är där kommer användaren att ange ett nummer för att lägga till listboxen.
4 .
Lägg till en etikett i formuläret , och placera den bredvid textrutan du till i steg 3 . Ändra dess text-egenskap till "Ange ett tal . "
5 .
Lägg till en knapp . Ändra sin text till " Lägg till i lista . " Byta namn egenskap till " AddButton . "
6 .
Dubbelklicka på " Lägg till " . Detta kommer att skapa en funktion åtgärd händelse och flytta dig till den . Klistra in denna kod inuti funktionen :

Dim antal som dubbel=ny dubbel

antal=Double. Parse ( UserInputTextBox. Text )

ListBox1 . Items. Add ( number. ToString )

Detta skapar ett antal som en dubbel , så det finns gott om plats för decimaler . Därefter görs ett försök att tolka ( eller tolka ) information i UserInputTextBox som ett tal. Och slutligen , om det framgångsrikt kan tolka användarens input som ett tal , lägger det till det i listan.

Klicka på " Design "-fliken för att återgå till formuläret fönster .
7 .
Dubbelklicka på " Sortera "-knappen . Eftersom listan är inbyggd i ListBox inte stöder den sortens operation, måste du flytta alla nummer i ListBox i en lista objekt innan du sorterar , och sedan sortera dem , och slutligen flytta tillbaka dem till listboxen . Klistra in denna kod för att göra det :

Dim tal Som lista ( Double )=Ny lista ( Double )

För varje n som dubbelt i ListBox1. Items
numbers. Add ( n )
Nästa


ListBox1. Items. Clear ( )

numbers. Sort ( )

för varje n som dubbelt i tal
ListBox1. Items. Add ( n )
Nästa

Previous：nothing Next：Hur konvertera java sträng hittills

Relaterade artiklar