Het regelen van nummers in Visual Basic van laag naar hoog is een optie die door de "Sort " operatie in de klasse List schikken . Helaas , het is niet een optie die door de ListBox Graphical User Interface ( GUI ) element , dus om deze handeling aan de gegevens in een ListBox te voeren , moet u eerst de gegevens te verplaatsen naar een lijst . Instructies
1 Voeg een listbox aan uw formulier door het uit de " Componenten " lijst te slepen aan de linkerkant. Kopen van 2 Voeg een knop aan uw formulier . In de Eigenschappen -editor in de rechterbenedenhoek van het scherm , verander de eigenschap text te " sorteren . ' Wijzig de eigenschap naam in" SortButton . "Dit zal het gemakkelijker maken om deze knop wanneer u het schrijven van code te identificeren . < br >
3 Voeg een tekstvak op uw formulier . Zijn naam veranderen eigenschap in op " UserInputTextBox , " maar laat de tekst pand leeg . Dit is waar de gebruiker een aantal zal invoeren om het toe te voegen aan de ListBox .
4 Voeg een label aan uw formulier , en plaats deze naast het tekstvak u hebt toegevoegd in stap 3 . Verander de tekst eigenschap in op " Geef een nummer . "
5 Voeg een knop . Verander de tekst op " Voeg toe aan lijst . " Verander de naam eigenschap in op " AddButton . "
6 Dubbelklik op de knop 'Toevoegen' . Dit zal een actie functie gebeurtenis te maken en te verplaatsen om het te . Plak deze code binnen de functie : Dim aantal
As Double = Nieuwe Dubbele aantal
= Double.Parse ( UserInputTextBox.Text ) ListBox1.Items.Add
( number. ToString ) op Dit creëert een aantal als een dubbele , dus er is er volop ruimte voor decimalen . Het probeert vervolgens om de informatie te interpreteren ( of parse ) in de UserInputTextBox als een nummer. En tenslotte , als het invoeren van de gebruiker met succes kan interpreteren als een getal , het voegt aan de keuzelijst .
Klik op het tabblad " Ontwerp" om terug te keren naar het venster van uw formulier .
7 Dubbelklik op de knop "Sorteren" . Omdat de lijst is ingebouwd in de ListBox niet het soort operatie te ondersteunen , moet je alle nummers te verplaatsen in de ListBox in een List -object voordat u sorteren , dan sorteren , en ze uiteindelijk terug te gaan naar de ListBox . Plak deze code om dat te doen : Dim nummers
Zoals List ( Of Tweepersoons ) = New List ( Of Tweepersoons ) op voor Elke n As Double In ListBox1.Itemsnumbers.Add ( n ) Volgende < br ListBox1.Items.Clear ( ) > numbers.Sort ( )
voor Elke n As Double In numbersListBox1.Items.Add ( n ) Volgende
|
