Raccolte (Visual Basic)Collections (Visual Basic)

Per molte applicazioni è utile creare e gestire gruppi di oggetti correlati.For many applications, you want to create and manage groups of related objects. È possibile raggruppare gli oggetti in due modi: creando matrici di oggetti e creando raccolte di oggetti.There are two ways to group objects: by creating arrays of objects, and by creating collections of objects.

Le matrici sono estremamente utili per la creazione e l'uso di un numero fisso di oggetti fortemente tipizzati.Arrays are most useful for creating and working with a fixed number of strongly-typed objects. Per altre informazioni sulle matrici, vedere Matrici.For information about arrays, see Arrays.

Le raccolte consentono di lavorare in modo più flessibile con gruppi di oggetti.Collections provide a more flexible way to work with groups of objects. A differenza delle matrici, il gruppo di oggetti con cui si lavora può aumentare e diminuire in modo dinamico in base alle esigenze dell'applicazione.Unlike arrays, the group of objects you work with can grow and shrink dynamically as the needs of the application change. Per alcune raccolte è possibile assegnare una chiave a qualsiasi oggetto inserito nella raccolta in modo da recuperare rapidamente l'oggetto usando la chiave.For some collections, you can assign a key to any object that you put into the collection so that you can quickly retrieve the object by using the key.

Una raccolta è una classe. Di conseguenza, prima di poter aggiungere elementi a una nuova raccolta è necessario dichiarare la raccolta.A collection is a class, so you must declare an instance of the class before you can add elements to that collection.

Se la raccolta contiene elementi di un solo tipo di dati, è possibile usare una delle classi dello spazio dei nomi System.Collections.Generic.If your collection contains elements of only one data type, you can use one of the classes in the System.Collections.Generic namespace. In una raccolta generica viene imposta l'indipendenza dai tipi, in modo da impedire che vengano aggiunti altri tipi di dati alla raccolta.A generic collection enforces type safety so that no other data type can be added to it. Quando si recupera un elemento da una raccolta generica, non è necessario determinarne il tipo di dati né convertirlo.When you retrieve an element from a generic collection, you do not have to determine its data type or convert it.

Nota

Per gli esempi in questo argomento, includere importazioni istruzioni per il System.Collections.Generic e System.Linq gli spazi dei nomi.For the examples in this topic, include Imports statements for the System.Collections.Generic and System.Linq namespaces.

Uso di una raccolta sempliceUsing a Simple Collection

Gli esempi in questa sezione usano la classe generica List<T>, che consente di usare un elenco di oggetti fortemente tipizzato.The examples in this section use the generic List<T> class, which enables you to work with a strongly typed list of objects.

Nell'esempio seguente crea un elenco di stringhe e quindi scorrere le stringhe usando una For Each... Avanti istruzione.The following example creates a list of strings and then iterates through the strings by using a For Each…Next statement.

' 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

Se il contenuto di una raccolta è noto in anticipo, si può usare un inizializzatore di raccolta per inizializzare la raccolta.If the contents of a collection are known in advance, you can use a collection initializer to initialize the collection. Per altre informazioni, vedere Inizializzatori di insieme.For more information, see Collection Initializers.

L'esempio seguente è identico all'esempio precedente, ma usa un inizializzatore di raccolta per aggiungere elementi alla raccolta.The following example is the same as the previous example, except a collection initializer is used to add elements to the collection.

' 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

È possibile usare un per... Prossima istruzione anziché un For Each per scorrere una raccolta.You can use a For…Next statement instead of a For Each statement to iterate through a collection. Questo è possibile mediante l'accesso agli elementi della raccolta dalla posizione di indice.You accomplish this by accessing the collection elements by the index position. L'indice degli elementi inizia da 0 e termina in corrispondenza del numero di elementi meno 1.The index of the elements starts at 0 and ends at the element count minus 1.

Nell'esempio seguente l'iterazione negli elementi di una raccolta avviene mediante For…Next anziché mediante For Each.The following example iterates through the elements of a collection by using For…Next instead of 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

Nell'esempio seguente viene rimosso un elemento dalla raccolta specificando l'oggetto da rimuovere.The following example removes an element from the collection by specifying the object to remove.

' 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

Nell'esempio seguente vengono rimossi elementi da un elenco generico.The following example removes elements from a generic list. Invece di un For Each istruzione, una per... Avanti viene utilizzata l'istruzione che esegue l'iterazione in ordine decrescente.Instead of a For Each statement, a For…Next statement that iterates in descending order is used. Ciò è necessario perché il metodo RemoveAt fa sì che gli elementi dopo un elemento rimosso abbiano un valore di indice inferiore.This is because the RemoveAt method causes elements after a removed element to have a lower index value.

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

Per il tipo di elementi in List<T>, è possibile anche definire una classe personalizzata.For the type of elements in the List<T>, you can also define your own class. Nell'esempio seguente la classe Galaxy viene usata dall'oggetto List<T> definito nel codice.In the following example, the Galaxy class that is used by the List<T> is defined in the 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

Tipi di raccolteKinds of Collections

Molte raccolte comuni vengono fornite da .NET Framework.Many common collections are provided by the .NET Framework. Ogni tipo di raccolta è progettato per uno scopo specifico.Each type of collection is designed for a specific purpose.

In questa sezione sono descritte alcune classi di raccolte comuni:Some of the common collection classes are described in this section:

Classi System.Collections.GenericSystem.Collections.Generic Classes

È possibile creare una raccolta generica usando una delle classi dello spazio dei nomi System.Collections.Generic.You can create a generic collection by using one of the classes in the System.Collections.Generic namespace. Una raccolta generica è utile quando ogni elemento al suo interno presenta lo stesso tipo di dati.A generic collection is useful when every item in the collection has the same data type. Una raccolta generica applica la tipizzazione forte consentendo di aggiungere soltanto i tipi di dati desiderati.A generic collection enforces strong typing by allowing only the desired data type to be added.

La tabella seguente elenca alcune delle classi di uso frequente dello spazio dei nomi System.Collections.Generic:The following table lists some of the frequently used classes of the System.Collections.Generic namespace:

ClasseClass DescrizioneDescription
Dictionary<TKey,TValue> Rappresenta una raccolta di coppie chiave/valore organizzate in base alla chiave.Represents a collection of key/value pairs that are organized based on the key.
List<T> Rappresenta un elenco di oggetti accessibile in base all'indice.Represents a list of objects that can be accessed by index. Fornisce metodi per la ricerca, l'ordinamento e la modifica degli elenchi.Provides methods to search, sort, and modify lists.
Queue<T> Rappresenta una raccolta di oggetti FIFO (First-In First-Out).Represents a first in, first out (FIFO) collection of objects.
SortedList<TKey,TValue> Rappresenta una raccolta di coppie chiave/valore ordinate per chiave in base all'implementazione IComparer<T> associata.Represents a collection of key/value pairs that are sorted by key based on the associated IComparer<T> implementation.
Stack<T> Rappresenta una raccolta di oggetti LIFO (Last-In First-Out).Represents a last in, first out (LIFO) collection of objects.

Per altre informazioni, vedere Tipi di raccolte comunemente utilizzate, Selezione di una classe Collection e System.Collections.Generic.For additional information, see Commonly Used Collection Types, Selecting a Collection Class, and System.Collections.Generic.

Classi System.Collections.ConcurrentSystem.Collections.Concurrent Classes

In .NET Framework 4 o versioni successive le raccolte dello spazio dei nomi System.Collections.Concurrent garantiscono operazioni thread-safe efficienti per accedere agli elementi della raccolta da più thread.In the .NET Framework 4 or newer, the collections in the System.Collections.Concurrent namespace provide efficient thread-safe operations for accessing collection items from multiple threads.

Le classi dello spazio dei nomi System.Collections.Concurrent devono essere usate in sostituzione dei tipi corrispondenti negli spazi dei nomi System.Collections.Generic e System.Collections ogni volta che più thread accedono contemporaneamente alla raccolta.The classes in the System.Collections.Concurrent namespace should be used instead of the corresponding types in the System.Collections.Generic and System.Collections namespaces whenever multiple threads are accessing the collection concurrently. Per altre informazioni, vedere Raccolte thread-safe e System.Collections.Concurrent.For more information, see Thread-Safe Collections and System.Collections.Concurrent.

Alcune classi incluse nello spazio dei nomi System.Collections.Concurrent sono BlockingCollection<T>, ConcurrentDictionary<TKey,TValue>, ConcurrentQueue<T> e ConcurrentStack<T>.Some classes included in the System.Collections.Concurrent namespace are BlockingCollection<T>, ConcurrentDictionary<TKey,TValue>, ConcurrentQueue<T>, and ConcurrentStack<T>.

Classi System.CollectionsSystem.Collections Classes

Le classi dello spazio dei nomi System.Collections non archiviano gli elementi come oggetti tipizzati in modo specifico, ma come oggetti di tipo Object.The classes in the System.Collections namespace do not store elements as specifically typed objects, but as objects of type Object.

Quando possibile, usare le raccolte generiche degli spazi dei nomi System.Collections.Generic o System.Collections.Concurrent al posto dei tipi legacy dello spazio dei nomi System.Collections.Whenever possible, you should use the generic collections in the System.Collections.Generic namespace or the System.Collections.Concurrent namespace instead of the legacy types in the System.Collections namespace.

La tabella seguente elenca alcune classi di uso frequente nello spazio dei nomi System.Collections:The following table lists some of the frequently used classes in the System.Collections namespace:

ClasseClass DescrizioneDescription
ArrayList Rappresenta una matrice di oggetti le cui dimensioni sono incrementate in modo dinamico in base alle esigenze.Represents an array of objects whose size is dynamically increased as required.
Hashtable Rappresenta una raccolta di coppie chiave/valore organizzate in base al codice hash della chiave.Represents a collection of key/value pairs that are organized based on the hash code of the key.
Queue Rappresenta una raccolta di oggetti FIFO (First-In First-Out).Represents a first in, first out (FIFO) collection of objects.
Stack Rappresenta una raccolta di oggetti LIFO (Last-In First-Out).Represents a last in, first out (LIFO) collection of objects.

Lo spazio dei nomi System.Collections.Specialized offre classi di raccolte fortemente tipizzate e specializzate, ad esempio raccolte di sole stringhe, dizionari ibridi e dizionari a elenchi collegati.The System.Collections.Specialized namespace provides specialized and strongly typed collection classes, such as string-only collections and linked-list and hybrid dictionaries.

Classe Collection di Visual BasicVisual Basic Collection Class

È possibile usare la classe Collection di Visual Basic per accedere a un elemento della raccolta usando un indice numerico o una chiave String.You can use the Visual Basic Collection class to access a collection item by using either a numeric index or a String key. Per aggiungere elementi a un oggetto raccolta, è possibile specificare o non specificare una chiave.You can add items to a collection object either with or without specifying a key. Se si aggiunge un elemento senza una chiave, è necessario usare il relativo indice numerico per accedervi.If you add an item without a key, you must use its numeric index to access it.

La classe Collection di Visual Basic archivia tutti gli elementi di tipo Object, pertanto è possibile aggiungere un elemento di qualsiasi tipo di dati.The Visual Basic Collection class stores all its elements as type Object, so you can add an item of any data type. Non esiste alcuna misura per impedire l'aggiunta di tipi di dati non appropriati.There is no safeguard against inappropriate data types being added.

Quando si usa la classe Collection di Visual Basic, il primo elemento di una raccolta ha indice 1.When you use the Visual Basic Collection class, the first item in a collection has an index of 1. Questo comportamento è diverso rispetto alle classi Collection di .NET Framework, per cui l'indice iniziale è 0.This differs from the .NET Framework collection classes, for which the starting index is 0.

Quando possibile, usare le raccolte generiche negli spazi dei nomi System.Collections.Generic o System.Collections.Concurrent al posto della classe Collection di Visual Basic.Whenever possible, you should use the generic collections in the System.Collections.Generic namespace or the System.Collections.Concurrent namespace instead of the Visual Basic Collection class.

Per altre informazioni, vedere Collection.For more information, see Collection.

Implementazione di una raccolta di coppie chiave/valoreImplementing a Collection of Key/Value Pairs

La raccolta generica Dictionary<TKey,TValue> consente di accedere agli elementi di una raccolta usando la chiave di ogni elemento.The Dictionary<TKey,TValue> generic collection enables you to access to elements in a collection by using the key of each element. Ogni aggiunta al dizionario è costituita da un valore e dalla chiave associata corrispondente.Each addition to the dictionary consists of a value and its associated key. Il recupero di un valore tramite la relativa chiave è un'operazione veloce, perché la classe Dictionary viene implementata come tabella hash.Retrieving a value by using its key is fast because the Dictionary class is implemented as a hash table.

L'esempio seguente crea una raccolta Dictionary ed esegue l'iterazione nel dizionario usando un'istruzione For Each.The following example creates a Dictionary collection and iterates through the dictionary by using a For Each statement.

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

Per usare invece un inizializzatore di raccolta per compilare la raccolta Dictionary, è possibile sostituire i metodi BuildDictionary e AddToDictionary con il metodo seguente.To instead use a collection initializer to build the Dictionary collection, you can replace the BuildDictionary and AddToDictionary methods with the following method.

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

L'esempio seguente usa il metodo ContainsKey e la proprietà Item[TKey] di Dictionary per trovare rapidamente un elemento in base alla chiave.The following example uses the ContainsKey method and the Item[TKey] property of Dictionary to quickly find an item by key. Il Item proprietà consente di accedere a un elemento nel elements insieme, utilizzando il elements(symbol) codice in Visual Basic.The Item property enables you to access an item in the elements collection by using the 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

L'esempio seguente usa invece il metodo TryGetValue per individuare rapidamente un elemento in base alla chiave.The following example instead uses the TryGetValue method quickly find an item by key.

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

Uso di LINQ per accedere a una raccoltaUsing LINQ to Access a Collection

È possibile usare LINQ (Language-Integrated Query) per accedere alle raccolte.LINQ (Language-Integrated Query) can be used to access collections. Le query LINQ forniscono funzionalità di filtro, ordinamento e raggruppamento.LINQ queries provide filtering, ordering, and grouping capabilities. Per altre informazioni, vedere Introduzione a LINQ in Visual Basic.For more information, see Getting Started with LINQ in Visual Basic.

Nell'esempio seguente viene eseguita una query LINQ su un oggetto List generico.The following example runs a LINQ query against a generic List. La query LINQ restituisce una raccolta diversa che contiene i risultati.The LINQ query returns a different collection that contains the results.

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

Ordinamento di una raccoltaSorting a Collection

L'esempio seguente illustra una procedura per ordinare una raccolta.The following example illustrates a procedure for sorting a collection. Nell'esempio vengono ordinate le istanze della classe Car archiviate in un oggetto List<T>.The example sorts instances of the Car class that are stored in a List<T>. La classe Car implementa l'interfaccia IComparable<T>, che richiede l'implementazione del metodo CompareTo.The Car class implements the IComparable<T> interface, which requires that the CompareTo method be implemented.

Ogni chiamata al metodo CompareTo effettua un confronto unico che viene usato per l'ordinamento.Each call to the CompareTo method makes a single comparison that is used for sorting. Il codice scritto dall'utente presente nel metodo CompareTo restituisce un valore per ogni confronto dell'oggetto corrente con un altro oggetto.User-written code in the CompareTo method returns a value for each comparison of the current object with another object. Il valore restituito è minore di zero se l'oggetto corrente è inferiore all'altro oggetto, maggiore di zero se l'oggetto corrente è superiore all'altro oggetto e zero se sono uguali.The value returned is less than zero if the current object is less than the other object, greater than zero if the current object is greater than the other object, and zero if they are equal. In questo modo è possibile definire nel codice i criteri di maggiore, minore e uguale.This enables you to define in code the criteria for greater than, less than, and equal.

Nel metodo ListCars l'istruzione cars.Sort() ordina l'elenco.In the ListCars method, the cars.Sort() statement sorts the list. Questa chiamata al metodo Sort di List<T> determina la chiamata automatica al metodo CompareTo per gli oggetti Car in List.This call to the Sort method of the List<T> causes the CompareTo method to be called automatically for the Car objects in the 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

Definizione di una raccolta personalizzataDefining a Custom Collection

È possibile definire una raccolta implementando l'interfaccia IEnumerable<T> o IEnumerable.You can define a collection by implementing the IEnumerable<T> or IEnumerable interface. Per altre informazioni, vedere enumerazione di una raccolta.For additional information, see Enumerating a Collection.

Sebbene sia possibile definire una raccolta personalizzata, in genere è preferibile usare le raccolte incluse in .NET Framework, descritte in Tipi di raccolte in precedenza in questo argomento.Although you can define a custom collection, it is usually better to instead use the collections that are included in the .NET Framework, which are described in Kinds of Collections earlier in this topic.

L'esempio seguente definisce una classe di raccolte personalizzata denominata AllColors.The following example defines a custom collection class named AllColors. Questa classe implementa l'interfaccia IEnumerable che richiede l'implementazione del metodo GetEnumerator.This class implements the IEnumerable interface, which requires that the GetEnumerator method be implemented.

Il metodo GetEnumerator restituisce un'istanza della classe ColorEnumerator.The GetEnumerator method returns an instance of the ColorEnumerator class. ColorEnumerator implementa l'interfaccia IEnumerator che richiede l'implementazione della proprietà Current e dei metodi MoveNext e Reset.ColorEnumerator implements the IEnumerator interface, which requires that the Current property, MoveNext method, and Reset method be implemented.

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

IteratorsIterators

Un iteratore viene usato per eseguire un'iterazione personalizzata in una raccolta.An iterator is used to perform a custom iteration over a collection. Un iteratore può essere un metodo o una funzione di accesso get.An iterator can be a method or a get accessor. Un iteratore Usa un' Yield istruzione per restituire ogni elemento della raccolta uno alla volta.An iterator uses a Yield statement to return each element of the collection one at a time.

Chiamare un iteratore usando un For Each... Avanti istruzione.You call an iterator by using a For Each…Next statement. Ogni iterazione del ciclo For Each chiama l'iteratore.Each iteration of the For Each loop calls the iterator. Quando si raggiunge un'istruzione Yield nell'iteratore, viene restituita un'espressione e viene mantenuta la posizione corrente nel codice.When a Yield statement is reached in the iterator, an expression is returned, and the current location in code is retained. L'esecuzione viene ripresa a partire da quella posizione la volta successiva che viene chiamato l'iteratore.Execution is restarted from that location the next time that the iterator is called.

Per altre informazioni, vedere iteratori (Visual Basic).For more information, see Iterators (Visual Basic).

Nell'esempio seguente viene usato un metodo iteratore.The following example uses an iterator method. Il metodo iteratore dispone di un Yield istruzione all'interno di un per... Avanti ciclo.The iterator method has a Yield statement that is inside a For…Next loop. Nel metodo ListEvenNumbers ogni iterazione del corpo dell'istruzione For Each crea una chiamata al metodo iteratore, che procede all'istruzione Yield successiva.In the ListEvenNumbers method, each iteration of the For Each statement body creates a call to the iterator method, which proceeds to the next Yield statement.

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

Vedere ancheSee also