Ako usporiadať čísla od najnižšieho k najvyššiemu pomocou jazyka Visual Basic

Usporiadanie čísel v jazyku Visual Basic od najnižšej po najvyššiu je funkcia poskytuje " Triediť " prevádzky v triede List . Bohužiaľ , to nie je vlastnosť poskytuje užívateľské rozhranie listbox grafického ( GUI ) prvok , tak , aby bolo možné vykonať túto operáciu na základe údajov v listbox , musíte najprv presunúť dáta na do zoznamu . Pokyny dovolená 1

Pridať listbox do formulára pretiahnutím zo zoznamu " komponentov " na ľavej strane .
2

Pridanie tlačidla do formulára . V Editore Vlastnosti v pravom dolnom rohu obrazovky , zmeňte vlastnosť text na " Zoradiť " . Zmeňte vlastnosť názov na " SortButton . " To bude jednoduchšie identifikovať toto tlačidlo pri písaní kódu .

3

Pridať textové pole do formulára . Zmeňte svoj ​​názov vlastnosť " UserInputTextBox , " ale ponechať jeho vlastnosť Text prázdne . To je miesto , kde bude používateľ zadať číslo , ktoré chcete pridať do listbox .
4

Pridať popisek do formulára , a umiestnite ju vedľa textového poľa , ktoré ste pridali v kroku 3. Zmeniť jeho vlastnosť Text na " Zadajte číslo . "
5

tlačidlo Pridať . Zmeňte svoj ​​text na " Pridať do zoznamu " . Zmeňte svoj ​​názov vlastnosť " AddButton . "
6

Double - kliknite na tlačidlo " Pridať " . Tým sa vytvorí funkciu , akcie pre organizovanie podujatí a presunúť vás k nemu . Vložte tento kód vnútri funkcie :

Dim počet As Double = new Double

číslo = Double.Parse ( UserInputTextBox.Text )

ListBox1.Items.Add ( number. toString )

To vytvára číslo ako dvojitý , takže tam je veľa priestoru pre desatinných miest . To sa potom pokúsi interpretovať ( alebo analyzovať ) informácie v UserInputTextBox ako číslo . A konečne , ak je to možné úspešne interpretovať vstup užívateľa ako číslo , pridá ho do zoznamu .

Kliknite na záložku " Design " sa vrátite do okna formulára .
7

Double - kliknite na tlačidlo " Zoradiť " . Pretože zoznam vstavané do listbox nepodporuje operáciu radenia , musíte presunúť všetky čísla v listbox do objektu zoznamu pred radíte , potom je triediť , a nakoniec sa presunúť späť do listbox . Vložte tento kód na to, že :

Dim čísla ako zoznam ( Of Double ) = New List ( Of Double )

For Each n As Double In ListBox1.Itemsnumbers.Add ( n) Next

ListBox1.Items.Clear ( )

cisla.sort ( )

For Each n As Double In numbersListBox1.Items.Add ( n) Ďalšie

• Predchádzajúca strana: Ako si vyrobiť Obrázky Scroll 
• Ďalšia strana: Ako volanie uloženej procedúry v SQL Server z VB