Share via

Verzamelingen (Visual Basic)

  • Artikel

Voor veel toepassingen wilt u groepen gerelateerde objecten maken en beheren. Er zijn twee manieren om objecten te groeperen: door matrices van objecten te maken en door verzamelingen objecten te maken.

Matrices zijn het handigst voor het maken en werken met een vast aantal sterk getypte objecten. Zie Matrices voor meer informatie over matrices.

Verzamelingen bieden een flexibelere manier om te werken met groepen objecten. In tegenstelling tot matrices kan de groep objecten waarmee u werkt dynamisch groeien en verkleinen naarmate de behoeften van de toepassing veranderen. Voor sommige verzamelingen kunt u een sleutel toewijzen aan elk object dat u in de verzameling plaatst, zodat u het object snel kunt ophalen met behulp van de sleutel.

Een verzameling is een klasse, dus u moet een exemplaar van de klasse declareren voordat u elementen aan die verzameling kunt toevoegen.

Als uw verzameling elementen van slechts één gegevenstype bevat, kunt u een van de klassen in de System.Collections.Generic naamruimte gebruiken. Een algemene verzameling dwingt typeveiligheid af, zodat er geen ander gegevenstype aan kan worden toegevoegd. Wanneer u een element ophaalt uit een algemene verzameling, hoeft u het gegevenstype niet te bepalen of te converteren.

Notitie

Neem voor de voorbeelden in dit onderwerp importinstructies voor de System.Collections.Generic en System.Linq naamruimten op.

Een eenvoudige verzameling gebruiken

In de voorbeelden in deze sectie wordt gebruikgemaakt van de algemene List<T> klasse, waarmee u kunt werken met een sterk getypte lijst met objecten.

In het volgende voorbeeld wordt een lijst met tekenreeksen gemaakt en vervolgens door de tekenreeksen herhaald met behulp van een For Each... Volgende verklaring.

' Create a list of strings.
Dim salmons As New List(Of String)
salmons.Add("chinook")
salmons.Add("coho")
salmons.Add("pink")
salmons.Add("sockeye")

' Iterate through the list.
For Each salmon As String In salmons
    Console.Write(salmon & " ")
Next
'Output: chinook coho pink sockeye

Als de inhoud van een verzameling van tevoren bekend is, kunt u een initialisatiefunctie voor verzamelingen gebruiken om de verzameling te initialiseren. Zie Initializers voor verzamelingen voor meer informatie.

Het volgende voorbeeld is hetzelfde als in het vorige voorbeeld, behalve dat een initialisatiefunctie voor verzamelingen wordt gebruikt om elementen toe te voegen aan de verzameling.

' Create a list of strings by using a
' collection initializer.
Dim salmons As New List(Of String) From
    {"chinook", "coho", "pink", "sockeye"}

For Each salmon As String In salmons
    Console.Write(salmon & " ")
Next
'Output: chinook coho pink sockeye

U kunt een For gebruiken... Volgende instructie in plaats van een For Each instructie om een verzameling te herhalen. U doet dit door toegang te krijgen tot de verzamelingselementen op basis van de indexpositie. De index van de elementen begint bij 0 en eindigt op het aantal elementen min 1.

In het volgende voorbeeld worden de elementen van een verzameling herhaald met behulp For…Next van in plaats van For Each.

Dim salmons As New List(Of String) From
    {"chinook", "coho", "pink", "sockeye"}

For index = 0 To salmons.Count - 1
    Console.Write(salmons(index) & " ")
Next
'Output: chinook coho pink sockeye

In het volgende voorbeeld wordt een element uit de verzameling verwijderd door het object op te geven dat moet worden verwijderd.

' Create a list of strings by using a
' collection initializer.
Dim salmons As New List(Of String) From
    {"chinook", "coho", "pink", "sockeye"}

' Remove an element in the list by specifying
' the object.
salmons.Remove("coho")

For Each salmon As String In salmons
    Console.Write(salmon & " ")
Next
'Output: chinook pink sockeye

In het volgende voorbeeld worden elementen uit een algemene lijst verwijderd. In plaats van een For Each instructie, een For... Volgende instructie die in aflopende volgorde wordt herhaald, wordt gebruikt. Dit komt doordat de RemoveAt methode ervoor zorgt dat elementen na een verwijderd element een lagere indexwaarde hebben.

Dim numbers As New List(Of Integer) From
    {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}

' Remove odd numbers.
For index As Integer = numbers.Count - 1 To 0 Step -1
    If numbers(index) Mod 2 = 1 Then
        ' Remove the element by specifying
        ' the zero-based index in the list.
        numbers.RemoveAt(index)
    End If
Next

' Iterate through the list.
' A lambda expression is placed in the ForEach method
' of the List(T) object.
numbers.ForEach(
    Sub(number) Console.Write(number & " "))
' Output: 0 2 4 6 8

Voor het type elementen in de List<T>klasse kunt u ook uw eigen klasse definiëren. In het volgende voorbeeld wordt de Galaxy klasse die door de List<T> code wordt gebruikt, gedefinieerd in de code.

Private Sub IterateThroughList()
    Dim theGalaxies As New List(Of Galaxy) From
        {
            New Galaxy With {.Name = "Tadpole", .MegaLightYears = 400},
            New Galaxy With {.Name = "Pinwheel", .MegaLightYears = 25},
            New Galaxy With {.Name = "Milky Way", .MegaLightYears = 0},
            New Galaxy With {.Name = "Andromeda", .MegaLightYears = 3}
        }

    For Each theGalaxy In theGalaxies
        With theGalaxy
            Console.WriteLine(.Name & "  " & .MegaLightYears)
        End With
    Next

    ' Output:
    '  Tadpole  400
    '  Pinwheel  25
    '  Milky Way  0
    '  Andromeda  3
End Sub

Public Class Galaxy
    Public Property Name As String
    Public Property MegaLightYears As Integer
End Class

Soorten verzamelingen

Veel algemene verzamelingen worden geleverd door .NET Framework. Elk type verzameling is ontworpen voor een specifiek doel.

Enkele algemene verzamelingsklassen worden beschreven in deze sectie:

System.Collections.Generic-klassen

U kunt een algemene verzameling maken met behulp van een van de klassen in de System.Collections.Generic naamruimte. Een algemene verzameling is handig wanneer elk item in de verzameling hetzelfde gegevenstype heeft. Een algemene verzameling dwingt sterk typen af doordat alleen het gewenste gegevenstype kan worden toegevoegd.

De volgende tabel bevat enkele veelgebruikte klassen van de System.Collections.Generic naamruimte:

Klas Beschrijving
Dictionary<TKey,TValue> Vertegenwoordigt een verzameling sleutel-/waardeparen die zijn geordend op basis van de sleutel.
List<T> Vertegenwoordigt een lijst met objecten die toegankelijk zijn via index. Biedt methoden voor het zoeken, sorteren en wijzigen van lijsten.
Queue<T> Vertegenwoordigt een eerste in, first out (FIFO) verzameling objecten.
SortedList<TKey,TValue> Vertegenwoordigt een verzameling sleutel-/waardeparen die worden gesorteerd op sleutel op basis van de bijbehorende IComparer<T> implementatie.
Stack<T> Vertegenwoordigt een laatste in, first out (LIFO) verzameling objecten.

Zie Veelgebruikte verzamelingstypen, een verzamelingsklasse selecteren en System.Collections.Genericvoor meer informatie.

System.Collections.Concurrent-klassen

In .NET Framework 4 of hoger bieden de verzamelingen in de System.Collections.Concurrent naamruimte efficiënte threadveilige bewerkingen voor toegang tot verzamelingsitems uit meerdere threads.

De klassen in de System.Collections.Concurrent naamruimte moeten worden gebruikt in plaats van de bijbehorende typen in de System.Collections.Generic en System.Collections naamruimten wanneer meerdere threads gelijktijdig toegang hebben tot de verzameling. Zie Thread-Safe Collections en System.Collections.Concurrentvoor meer informatie.

Sommige klassen die zijn opgenomen in de System.Collections.Concurrent naamruimte zijn BlockingCollection<T>, ConcurrentDictionary<TKey,TValue>en ConcurrentQueue<T>ConcurrentStack<T>.

System.Collections-klassen

De klassen in de System.Collections naamruimte slaan geen elementen op als specifiek getypte objecten, maar als objecten van het type Object.

Indien mogelijk moet u de algemene verzamelingen in de System.Collections.Generic naamruimte of de System.Collections.Concurrent naamruimte gebruiken in plaats van de verouderde typen in de System.Collections naamruimte.

De volgende tabel bevat enkele van de veelgebruikte klassen in de System.Collections naamruimte:

Klas Beschrijving
ArrayList Vertegenwoordigt een matrix van objecten waarvan de grootte dynamisch wordt verhoogd naar behoefte.
Hashtable Vertegenwoordigt een verzameling sleutel-waardeparen die zijn georganiseerd op basis van de hashcode van de sleutel.
Queue Vertegenwoordigt een eerste in, first out (FIFO) verzameling objecten.
Stack Vertegenwoordigt een laatste in, first out (LIFO) verzameling objecten.

De System.Collections.Specialized naamruimte biedt gespecialiseerde en sterk getypte verzamelingsklassen, zoals verzamelingen met alleen tekenreeksen en gekoppelde lijsten en hybride woordenlijsten.

Visual Basic-verzamelingsklasse

U kunt de Visual Basic-klasse Collection gebruiken om toegang te krijgen tot een verzamelingsitem met behulp van een numerieke index of een String sleutel. U kunt items toevoegen aan een verzamelingsobject met of zonder een sleutel op te geven. Als u een item zonder sleutel toevoegt, moet u de bijbehorende numerieke index gebruiken om het te openen.

In de Visual Basic-klasse Collection worden alle elementen als type Objectopgeslagen, zodat u een item van elk gegevenstype kunt toevoegen. Er is geen beveiliging tegen ongepaste gegevenstypen die worden toegevoegd.

Wanneer u de Visual Basic-klasse Collection gebruikt, heeft het eerste item in een verzameling een index van 1. Dit verschilt van de .NET Framework-verzamelingsklassen, waarvoor de beginindex 0 is.

Indien mogelijk moet u de algemene verzamelingen in de System.Collections.Generic naamruimte of de System.Collections.Concurrent naamruimte gebruiken in plaats van de Visual Basic-klasse Collection .

Zie Collection voor meer informatie.

Een verzameling sleutel-/waardeparen implementeren

Met Dictionary<TKey,TValue> de algemene verzameling kunt u toegang krijgen tot elementen in een verzameling met behulp van de sleutel van elk element. Elke toevoeging aan de woordenlijst bestaat uit een waarde en de bijbehorende sleutel. Het ophalen van een waarde met behulp van de sleutel is snel omdat de Dictionary klasse wordt geïmplementeerd als een hash-tabel.

In het volgende voorbeeld wordt een Dictionary verzameling gemaakt en wordt de woordenlijst herhaald met behulp van een For Each instructie.

Private Sub IterateThroughDictionary()
    Dim elements As Dictionary(Of String, Element) = BuildDictionary()

    For Each kvp As KeyValuePair(Of String, Element) In elements
        Dim theElement As Element = kvp.Value

        Console.WriteLine("key: " & kvp.Key)
        With theElement
            Console.WriteLine("values: " & .Symbol & " " &
                .Name & " " & .AtomicNumber)
        End With
    Next
End Sub

Private Function BuildDictionary() As Dictionary(Of String, Element)
    Dim elements As New Dictionary(Of String, Element)

    AddToDictionary(elements, "K", "Potassium", 19)
    AddToDictionary(elements, "Ca", "Calcium", 20)
    AddToDictionary(elements, "Sc", "Scandium", 21)
    AddToDictionary(elements, "Ti", "Titanium", 22)

    Return elements
End Function

Private Sub AddToDictionary(ByVal elements As Dictionary(Of String, Element),
ByVal symbol As String, ByVal name As String, ByVal atomicNumber As Integer)
    Dim theElement As New Element

    theElement.Symbol = symbol
    theElement.Name = name
    theElement.AtomicNumber = atomicNumber

    elements.Add(Key:=theElement.Symbol, value:=theElement)
End Sub

Public Class Element
    Public Property Symbol As String
    Public Property Name As String
    Public Property AtomicNumber As Integer
End Class

Als u in plaats daarvan een initialisatiefunctie voor verzamelingen wilt gebruiken om de Dictionary verzameling te bouwen, kunt u de BuildDictionary en AddToDictionary methoden vervangen door de volgende methode.

Private Function BuildDictionary2() As Dictionary(Of String, Element)
    Return New Dictionary(Of String, Element) From
        {
            {"K", New Element With
                {.Symbol = "K", .Name = "Potassium", .AtomicNumber = 19}},
            {"Ca", New Element With
                {.Symbol = "Ca", .Name = "Calcium", .AtomicNumber = 20}},
            {"Sc", New Element With
                {.Symbol = "Sc", .Name = "Scandium", .AtomicNumber = 21}},
            {"Ti", New Element With
                {.Symbol = "Ti", .Name = "Titanium", .AtomicNumber = 22}}
        }
End Function

In het volgende voorbeeld wordt de ContainsKey methode en de Item[] eigenschap gebruikt om Dictionary snel een item op sleutel te vinden. Item Met de eigenschap kunt u toegang krijgen tot een item in de elements verzameling met behulp van de elements(symbol) code in Visual Basic.

Private Sub FindInDictionary(ByVal symbol As String)
    Dim elements As Dictionary(Of String, Element) = BuildDictionary()

    If elements.ContainsKey(symbol) = False Then
        Console.WriteLine(symbol & " not found")
    Else
        Dim theElement = elements(symbol)
        Console.WriteLine("found: " & theElement.Name)
    End If
End Sub

In het volgende voorbeeld wordt in plaats daarvan de TryGetValue methode gebruikt om snel een item op sleutel te vinden.

Private Sub FindInDictionary2(ByVal symbol As String)
    Dim elements As Dictionary(Of String, Element) = BuildDictionary()

    Dim theElement As Element = Nothing
    If elements.TryGetValue(symbol, theElement) = False Then
        Console.WriteLine(symbol & " not found")
    Else
        Console.WriteLine("found: " & theElement.Name)
    End If
End Sub

LINQ gebruiken voor toegang tot een verzameling

LINQ (Language-Integrated Query) kan worden gebruikt voor toegang tot verzamelingen. LINQ-query's bieden mogelijkheden voor filteren, ordenen en groeperen. Zie Aan de slag met LINQ in Visual Basic voor meer informatie.

In het volgende voorbeeld wordt een LINQ-query uitgevoerd op een algemeen List. De LINQ-query retourneert een andere verzameling die de resultaten bevat.

Private Sub ShowLINQ()
    Dim elements As List(Of Element) = BuildList()

    ' LINQ Query.
    Dim subset = From theElement In elements
                  Where theElement.AtomicNumber < 22
                  Order By theElement.Name

    For Each theElement In subset
        Console.WriteLine(theElement.Name & " " & theElement.AtomicNumber)
    Next

    ' Output:
    '  Calcium 20
    '  Potassium 19
    '  Scandium 21
End Sub

Private Function BuildList() As List(Of Element)
    Return New List(Of Element) From
        {
            {New Element With
                {.Symbol = "K", .Name = "Potassium", .AtomicNumber = 19}},
            {New Element With
                {.Symbol = "Ca", .Name = "Calcium", .AtomicNumber = 20}},
            {New Element With
                {.Symbol = "Sc", .Name = "Scandium", .AtomicNumber = 21}},
            {New Element With
                {.Symbol = "Ti", .Name = "Titanium", .AtomicNumber = 22}}
        }
End Function

Public Class Element
    Public Property Symbol As String
    Public Property Name As String
    Public Property AtomicNumber As Integer
End Class

Een verzameling sorteren

In het volgende voorbeeld ziet u een procedure voor het sorteren van een verzameling. In het voorbeeld worden exemplaren van de Car klasse gesorteerd die zijn opgeslagen in een List<T>. De Car klasse implementeert de IComparable<T> interface, waarvoor de CompareTo methode moet worden geïmplementeerd.

Elke aanroep van de CompareTo methode maakt één vergelijking die wordt gebruikt voor het sorteren. Door de gebruiker geschreven code in de CompareTo methode retourneert een waarde voor elke vergelijking van het huidige object met een ander object. De geretourneerde waarde is kleiner dan nul als het huidige object kleiner is dan het andere object, groter dan nul als het huidige object groter is dan het andere object en nul als ze gelijk zijn. Hiermee kunt u in code de criteria definiëren voor groter dan, kleiner dan en gelijk aan.

In de ListCars methode sorteert de cars.Sort() instructie de lijst. Deze aanroep van de Sort methode List<T> zorgt ervoor dat de CompareTo methode automatisch wordt aangeroepen voor de Car objecten in de List.

Public Sub ListCars()

    ' Create some new cars.
    Dim cars As New List(Of Car) From
    {
        New Car With {.Name = "car1", .Color = "blue", .Speed = 20},
        New Car With {.Name = "car2", .Color = "red", .Speed = 50},
        New Car With {.Name = "car3", .Color = "green", .Speed = 10},
        New Car With {.Name = "car4", .Color = "blue", .Speed = 50},
        New Car With {.Name = "car5", .Color = "blue", .Speed = 30},
        New Car With {.Name = "car6", .Color = "red", .Speed = 60},
        New Car With {.Name = "car7", .Color = "green", .Speed = 50}
    }

    ' Sort the cars by color alphabetically, and then by speed
    ' in descending order.
    cars.Sort()

    ' View all of the cars.
    For Each thisCar As Car In cars
        Console.Write(thisCar.Color.PadRight(5) & " ")
        Console.Write(thisCar.Speed.ToString & " ")
        Console.Write(thisCar.Name)
        Console.WriteLine()
    Next

    ' Output:
    '  blue  50 car4
    '  blue  30 car5
    '  blue  20 car1
    '  green 50 car7
    '  green 10 car3
    '  red   60 car6
    '  red   50 car2
End Sub

Public Class Car
    Implements IComparable(Of Car)

    Public Property Name As String
    Public Property Speed As Integer
    Public Property Color As String

    Public Function CompareTo(ByVal other As Car) As Integer _
        Implements System.IComparable(Of Car).CompareTo
        ' A call to this method makes a single comparison that is
        ' used for sorting.

        ' Determine the relative order of the objects being compared.
        ' Sort by color alphabetically, and then by speed in
        ' descending order.

        ' Compare the colors.
        Dim compare As Integer
        compare = String.Compare(Me.Color, other.Color, True)

        ' If the colors are the same, compare the speeds.
        If compare = 0 Then
            compare = Me.Speed.CompareTo(other.Speed)

            ' Use descending order for speed.
            compare = -compare
        End If

        Return compare
    End Function
End Class

Een aangepaste verzameling definiëren

U kunt een verzameling definiëren door de IEnumerable<T> of IEnumerable interface te implementeren. Zie Een verzameling inventariseren voor meer informatie.

Hoewel u een aangepaste verzameling kunt definiëren, is het meestal beter om in plaats daarvan de verzamelingen te gebruiken die zijn opgenomen in .NET Framework, die eerder in dit onderwerp worden beschreven in soorten verzamelingen .

In het volgende voorbeeld wordt een aangepaste verzamelingsklasse gedefinieerd met de naam AllColors. Met deze klasse wordt de IEnumerable interface geïmplementeerd. Hiervoor moet de GetEnumerator methode worden geïmplementeerd.

De GetEnumerator methode retourneert een exemplaar van de ColorEnumerator klasse. ColorEnumerator implementeert de IEnumerator interface, die vereist dat de Current eigenschap, MoveNext methode en Reset methode worden geïmplementeerd.

Public Sub ListColors()
    Dim colors As New AllColors()

    For Each theColor As Color In colors
        Console.Write(theColor.Name & " ")
    Next
    Console.WriteLine()
    ' Output: red blue green
End Sub

' Collection class.
Public Class AllColors
    Implements System.Collections.IEnumerable

    Private _colors() As Color =
    {
        New Color With {.Name = "red"},
        New Color With {.Name = "blue"},
        New Color With {.Name = "green"}
    }

    Public Function GetEnumerator() As System.Collections.IEnumerator _
        Implements System.Collections.IEnumerable.GetEnumerator

        Return New ColorEnumerator(_colors)

        ' Instead of creating a custom enumerator, you could
        ' use the GetEnumerator of the array.
        'Return _colors.GetEnumerator
    End Function

    ' Custom enumerator.
    Private Class ColorEnumerator
        Implements System.Collections.IEnumerator

        Private _colors() As Color
        Private _position As Integer = -1

        Public Sub New(ByVal colors() As Color)
            _colors = colors
        End Sub

        Public ReadOnly Property Current() As Object _
            Implements System.Collections.IEnumerator.Current
            Get
                Return _colors(_position)
            End Get
        End Property

        Public Function MoveNext() As Boolean _
            Implements System.Collections.IEnumerator.MoveNext
            _position += 1
            Return (_position < _colors.Length)
        End Function

        Public Sub Reset() Implements System.Collections.IEnumerator.Reset
            _position = -1
        End Sub
    End Class
End Class

' Element class.
Public Class Color
    Public Property Name As String
End Class

Iterators

Een iterator wordt gebruikt om een aangepaste iteratie uit te voeren voor een verzameling. Een iterator kan een methode of een get accessor zijn. Een iterator gebruikt een Rendement-instructie om elk element van de verzameling één voor één te retourneren.

U roept een iterator aan met behulp van een For Each... Volgende verklaring. Elke iteratie van de For Each lus roept de iterator aan. Wanneer een Yield instructie wordt bereikt in de iterator, wordt er een expressie geretourneerd en blijft de huidige locatie in de code behouden. De uitvoering wordt opnieuw gestart vanaf die locatie wanneer de iterator de volgende keer wordt aangeroepen.

Zie Iterators (Visual Basic) voor meer informatie.

In het volgende voorbeeld wordt een iterator-methode gebruikt. De iterator-methode heeft een Yield instructie binnen een For... Volgende lus. In de ListEvenNumbers methode maakt elke iteratie van de hoofdtekst van de For Each instructie een aanroep naar de iterator-methode, die naar de volgende Yield instructie gaat.

Public Sub ListEvenNumbers()
    For Each number As Integer In EvenSequence(5, 18)
        Console.Write(number & " ")
    Next
    Console.WriteLine()
    ' Output: 6 8 10 12 14 16 18
End Sub

Private Iterator Function EvenSequence(
ByVal firstNumber As Integer, ByVal lastNumber As Integer) _
As IEnumerable(Of Integer)

' Yield even numbers in the range.
    For number = firstNumber To lastNumber
        If number Mod 2 = 0 Then
            Yield number
        End If
    Next
End Function

Zie ook