Koleksiyonlar (Visual Basic)Collections (Visual Basic)

Birçok uygulama için ilgili nesne grupları oluşturmak ve yönetmek istersiniz.For many applications, you want to create and manage groups of related objects. Nesneleri gruplandırmanın iki yolu vardır: nesne dizileri oluşturarak ve nesne koleksiyonları oluşturarak.There are two ways to group objects: by creating arrays of objects, and by creating collections of objects.

Diziler, kesin olarak belirlenmiş sabit sayıda nesne oluşturmak ve bunlarla çalışmak için en yararlı seçenektir.Arrays are most useful for creating and working with a fixed number of strongly typed objects. Diziler hakkında daha fazla bilgi için bkz. diziler.For information about arrays, see Arrays.

Koleksiyonlar, nesne gruplarıyla çalışmak için daha esnek bir yol sağlar.Collections provide a more flexible way to work with groups of objects. Dizilerden farklı olarak, çalıştığınız nesne grubu, uygulama değişikliğinin ihtiyaçlarına göre dinamik olarak büyüyebilir ve küçülebilir.Unlike arrays, the group of objects you work with can grow and shrink dynamically as the needs of the application change. Bazı koleksiyonlar için, anahtarı kullanarak nesneyi hızlı bir şekilde alabilmeniz için koleksiyona yerleştirdiğiniz herhangi bir nesneye bir anahtar atayabilirsiniz.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.

Koleksiyon bir sınıftır, bu nedenle bu koleksiyona öğe ekleyebilmeniz için önce sınıfın bir örneğini bildirmeniz gerekir.A collection is a class, so you must declare an instance of the class before you can add elements to that collection.

Koleksiyonunuz yalnızca bir veri türünün öğelerini içeriyorsa, ad alanındaki sınıflardan birini kullanabilirsiniz 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. Genel bir koleksiyon, tür güvenliğini, başka bir veri türü eklenememesi için uygular.A generic collection enforces type safety so that no other data type can be added to it. Genel koleksiyondan bir öğe aldığınızda, veri türünü belirlememek veya dönüştürmek zorunda değilsiniz.When you retrieve an element from a generic collection, you do not have to determine its data type or convert it.

Not

Bu konudaki örnekler için, System.Collections.Generic ve ad alanları için Imports deyimlerini ekleyin System.Linq .For the examples in this topic, include Imports statements for the System.Collections.Generic and System.Linq namespaces.

Basit bir koleksiyon kullanmaUsing a Simple Collection

Bu bölümdeki örneklerde List<T> , türü kesin belirlenmiş bir nesne listesiyle çalışmanıza olanak sağlayan genel sınıfı kullanılır.The examples in this section use the generic List<T> class, which enables you to work with a strongly typed list of objects.

Aşağıdaki örnek, dizelerin bir listesini oluşturur ve sonra her biri Için bir kullanarak dizeler arasında yinelenir ... Sonraki ifade.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

Bir koleksiyonun içeriği önceden biliniyorsa, koleksiyonu başlatmak için bir koleksiyon başlatıcısı kullanabilirsiniz.If the contents of a collection are known in advance, you can use a collection initializer to initialize the collection. Daha fazla bilgi için bkz. koleksiyon başlatıcıları.For more information, see Collection Initializers.

Aşağıdaki örnek, koleksiyona öğe eklemek için bir koleksiyon başlatıcısı kullanılması dışında, önceki örnekle aynıdır.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

Için bir kullanabilirsiniz... For Each Bir koleksiyon aracılığıyla yinelemek için bir ifade yerine Next ifadesinin.You can use a For…Next statement instead of a For Each statement to iterate through a collection. Bunu, koleksiyon öğelerine dizin konumuna erişerek gerçekleştirirsiniz.You accomplish this by accessing the collection elements by the index position. Öğelerin dizini 0 ' dan başlar ve öğe sayısı eksi 1 ' den sona erer.The index of the elements starts at 0 and ends at the element count minus 1.

Aşağıdaki örnek yerine kullanarak bir koleksiyonun öğeleri boyunca yinelenir For…Next 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

Aşağıdaki örnek, kaldırılacak nesneyi belirterek koleksiyondan bir öğeyi kaldırır.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

Aşağıdaki örnek, genel bir listeden öğeleri kaldırır.The following example removes elements from a generic list. Bir For Each , için, bir ... Azalan sırada yinelenen bir sonraki ifade kullanılır.Instead of a For Each statement, a For…Next statement that iterates in descending order is used. Bunun nedeni, RemoveAt yöntemin kaldırılan bir öğeden sonra öğelerin daha düşük bir dizin değerine sahip olmasına neden olur.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

İçindeki öğe türleri için List<T> kendi sınıfınızı de tanımlayabilirsiniz.For the type of elements in the List<T>, you can also define your own class. Aşağıdaki örnekte, Galaxy tarafından kullanılan sınıfı List<T> kodda tanımlanmıştır.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

Koleksiyon türleriKinds of Collections

Birçok ortak koleksiyon .NET Framework tarafından sağlanır.Many common collections are provided by the .NET Framework. Her koleksiyon türü belirli bir amaç için tasarlanmıştır.Each type of collection is designed for a specific purpose.

Ortak koleksiyon sınıflarından bazıları bu bölümde açıklanmıştır:Some of the common collection classes are described in this section:

System. Collections. Generic sınıflarıSystem.Collections.Generic Classes

Ad alanındaki sınıflardan birini kullanarak genel bir koleksiyon oluşturabilirsiniz System.Collections.Generic .You can create a generic collection by using one of the classes in the System.Collections.Generic namespace. Genel bir koleksiyon, koleksiyondaki her öğe aynı veri türüne sahip olduğunda faydalıdır.A generic collection is useful when every item in the collection has the same data type. Genel bir koleksiyon, yalnızca istenen veri türünün eklenmesine izin vererek güçlü yazma uygular.A generic collection enforces strong typing by allowing only the desired data type to be added.

Aşağıdaki tabloda, ad alanının sık kullanılan sınıflarının bazıları listelenmektedir System.Collections.Generic :The following table lists some of the frequently used classes of the System.Collections.Generic namespace:

SınıfClass AçıklamaDescription
Dictionary<TKey,TValue> Anahtara göre düzenlenen anahtar/değer çiftleri koleksiyonunu temsil eder.Represents a collection of key/value pairs that are organized based on the key.
List<T> Dizin tarafından erişilebilen nesnelerin listesini temsil eder.Represents a list of objects that can be accessed by index. Listeleri aramak, sıralamak ve değiştirmek için yöntemler sağlar.Provides methods to search, sort, and modify lists.
Queue<T> Nesnelerin ilk, ilk çıkar (FıFO) koleksiyonunu temsil eder.Represents a first in, first out (FIFO) collection of objects.
SortedList<TKey,TValue> İlişkili uygulamaya göre anahtara göre sıralanan anahtar/değer çiftleri koleksiyonunu temsil eder IComparer<T> .Represents a collection of key/value pairs that are sorted by key based on the associated IComparer<T> implementation.
Stack<T> Nesnelerin son, ilk çıkar (LıFO) koleksiyonunu temsil eder.Represents a last in, first out (LIFO) collection of objects.

Daha fazla bilgi için bkz. yaygın olarak kullanılan koleksiyon türleri, koleksiyon sınıfı seçmeve System.Collections.Generic .For additional information, see Commonly Used Collection Types, Selecting a Collection Class, and System.Collections.Generic.

System. Collections. eşzamanlı sınıflarSystem.Collections.Concurrent Classes

.NET Framework 4 veya daha yeni bir sürümde, System.Collections.Concurrent ad alanındaki koleksiyonlar, koleksiyon öğelerine birden çok iş parçacığından erişmek için verimli iş parçacığı güvenli işlemleri sağlar.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.

System.Collections.Concurrent System.Collections.Generic System.Collections Birden çok iş parçacığının koleksiyona aynı anda eriştiği her seferinde ve ad alanındaki ilgili türler yerine ad alanındaki sınıflar kullanılmalıdır.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. Daha fazla bilgi için bkz. Iş parçacığı güvenli koleksiyonlar ve System.Collections.Concurrent .For more information, see Thread-Safe Collections and System.Collections.Concurrent.

Ad alanına dahil edilen bazı sınıflar System.Collections.Concurrent ,, ve ' dir BlockingCollection<T> ConcurrentDictionary<TKey,TValue> ConcurrentQueue<T> ConcurrentStack<T> .Some classes included in the System.Collections.Concurrent namespace are BlockingCollection<T>, ConcurrentDictionary<TKey,TValue>, ConcurrentQueue<T>, and ConcurrentStack<T>.

System. Collections sınıflarıSystem.Collections Classes

System.CollectionsAd alanındaki sınıflar öğeleri özel olarak yazılmış nesneler olarak depolamaz, ancak türünden nesneler olarak depolamaz Object .The classes in the System.Collections namespace do not store elements as specifically typed objects, but as objects of type Object.

Mümkün olduğunda, ad alanındaki System.Collections.Generic Eski türler yerine ad alanı veya ad alanı içinde genel koleksiyonları kullanmanız gerekir System.Collections.Concurrent 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.

Aşağıdaki tabloda, ad alanında sık kullanılan sınıfların bazıları listelenmektedir System.Collections :The following table lists some of the frequently used classes in the System.Collections namespace:

SınıfClass AçıklamaDescription
ArrayList Boyutu dinamik olarak gerektiği şekilde arttığı bir nesne dizisini temsil eder.Represents an array of objects whose size is dynamically increased as required.
Hashtable Anahtarın karma koduna göre düzenlenmiş anahtar/değer çiftleri koleksiyonunu temsil eder.Represents a collection of key/value pairs that are organized based on the hash code of the key.
Queue Nesnelerin ilk, ilk çıkar (FıFO) koleksiyonunu temsil eder.Represents a first in, first out (FIFO) collection of objects.
Stack Nesnelerin son, ilk çıkar (LıFO) koleksiyonunu temsil eder.Represents a last in, first out (LIFO) collection of objects.

System.Collections.SpecializedAd alanı, yalnızca dize toplamaları ve bağlantılı liste ve karma sözlük gibi özelleştirilmiş ve kesin tür belirtilmiş koleksiyon sınıfları sağlar.The System.Collections.Specialized namespace provides specialized and strongly typed collection classes, such as string-only collections and linked-list and hybrid dictionaries.

Visual Basic Collection sınıfıVisual Basic Collection Class

CollectionSayısal bir dizin veya anahtar kullanarak bir koleksiyon öğesine erişmek için Visual Basic sınıfını kullanabilirsiniz String .You can use the Visual Basic Collection class to access a collection item by using either a numeric index or a String key. Bir koleksiyon nesnesine, anahtar belirtmeden ya da belirtmeden öğe ekleyebilirsiniz.You can add items to a collection object either with or without specifying a key. Anahtar içermeyen bir öğe eklerseniz, ona erişmek için sayısal dizinini kullanmanız gerekir.If you add an item without a key, you must use its numeric index to access it.

Visual Basic Collection sınıfı tüm öğelerini tür olarak depolar Object , böylece herhangi bir veri türü için bir öğe ekleyebilirsiniz.The Visual Basic Collection class stores all its elements as type Object, so you can add an item of any data type. Eklenmekte olan uygunsuz veri türlerine karşı bir koruma yoktur.There is no safeguard against inappropriate data types being added.

Visual Basic Collection sınıfını kullandığınızda, bir koleksiyondaki ilk öğenin dizini 1 ' dir.When you use the Visual Basic Collection class, the first item in a collection has an index of 1. Bu, Başlangıç dizininin 0 olduğu .NET Framework koleksiyon sınıflarından farklıdır.This differs from the .NET Framework collection classes, for which the starting index is 0.

Mümkün olduğunda, System.Collections.Generic Visual Basic sınıfı yerine ad alanında veya ad alanında genel koleksiyonları kullanmanız gerekir System.Collections.Concurrent Collection .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.

Daha fazla bilgi için bkz. Collection.For more information, see Collection.

Anahtar/değer çiftleri koleksiyonu uygulamaImplementing a Collection of Key/Value Pairs

Dictionary<TKey,TValue>Genel koleksiyon, her bir öğenin anahtarını kullanarak bir koleksiyondaki öğelere erişmenizi sağlar.The Dictionary<TKey,TValue> generic collection enables you to access to elements in a collection by using the key of each element. Sözlüğe eklenen her ekleme bir değerden ve ilişkili anahtarından oluşur.Each addition to the dictionary consists of a value and its associated key. DictionarySınıfı bir karma tablo olarak uygulandığından, anahtarını kullanarak bir değerin alınması hızlıdır.Retrieving a value by using its key is fast because the Dictionary class is implemented as a hash table.

Aşağıdaki örnek bir koleksiyon oluşturur Dictionary ve bir ifade kullanarak sözlükten yinelenir 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

Koleksiyonu oluşturmak için bir koleksiyon başlatıcısı kullanmak yerine, Dictionary BuildDictionary ve AddToDictionary yöntemlerini aşağıdaki yöntemle değiştirebilirsiniz.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

Aşağıdaki örnek, ContainsKey Item[] Dictionary bir öğeyi anahtara göre hızlı bir şekilde bulmak için yöntemini ve özelliğini kullanır.The following example uses the ContainsKey method and the Item[] property of Dictionary to quickly find an item by key. ItemÖzelliği, elements elements(symbol) Visual Basic kodundaki kodu kullanarak koleksiyondaki bir öğeye erişmenizi sağlar.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

Aşağıdaki örnek bunun yerine, TryGetValue bir öğeyi anahtara göre hızlı bir şekilde bulmak için yöntemini kullanır.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

Koleksiyona erişmek için LINQ kullanmaUsing LINQ to Access a Collection

LINQ (dil ile tümleşik sorgu), koleksiyonlara erişmek için kullanılabilir.LINQ (Language-Integrated Query) can be used to access collections. LINQ sorguları filtreleme, sıralama ve gruplama özellikleri sağlar.LINQ queries provide filtering, ordering, and grouping capabilities. Daha fazla bilgi için bkz. VISUAL BASIC LINQ Ile çalışmayabaşlama.For more information, see Getting Started with LINQ in Visual Basic.

Aşağıdaki örnek, genel olarak bir LINQ sorgusu çalıştırır List .The following example runs a LINQ query against a generic List. LINQ sorgusu, sonuçları içeren farklı bir koleksiyon döndürür.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

Bir koleksiyonu sıralamaSorting a Collection

Aşağıdaki örnek bir koleksiyonu sıralamak için bir yordam gösterir.The following example illustrates a procedure for sorting a collection. Örnek, Car içinde depolanan sınıfının örneklerini sıralar List<T> .The example sorts instances of the Car class that are stored in a List<T>. CarSınıfı, IComparable<T> yönteminin uygulanması için arabirimini uygular CompareTo .The Car class implements the IComparable<T> interface, which requires that the CompareTo method be implemented.

Yöntemine yapılan her çağrı, CompareTo sıralama için kullanılan tek bir karşılaştırma yapar.Each call to the CompareTo method makes a single comparison that is used for sorting. Yöntemdeki Kullanıcı tarafından yazılan kod, CompareTo geçerli nesnenin her bir karşılaştırması için başka bir nesneyle ilgili bir değer döndürür.User-written code in the CompareTo method returns a value for each comparison of the current object with another object. Geçerli nesne diğer nesneden daha küçükse döndürülen değer sıfırdan küçük, geçerli nesne diğer nesneden büyükse sıfırdan büyük ve eşitse sıfır.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. Bu, büyük, küçüktür ve eşittir ölçütlerine göre kod içinde tanımlamanızı sağlar.This enables you to define in code the criteria for greater than, less than, and equal.

Yönteminde, ListCars cars.Sort() ifade listeyi sıralar.In the ListCars method, the cars.Sort() statement sorts the list. Öğesinin yöntemine yapılan bu çağrı, Sort List<T> CompareTo yönteminin içindeki nesneler için otomatik olarak çağrılmasına neden olur Car 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

Özel bir koleksiyon tanımlamaDefining a Custom Collection

Veya arabirimini uygulayarak bir koleksiyon tanımlayabilirsiniz IEnumerable<T> IEnumerable .You can define a collection by implementing the IEnumerable<T> or IEnumerable interface. Daha fazla bilgi için bkz. bir koleksiyonu numaralandırma.For additional information, see Enumerating a Collection.

Özel bir koleksiyon tanımlamanızı mümkün olsa da, bu konunun önceki kısımlarında yer alan koleksiyonlar türlerinde açıklanan .NET Framework dahil edilen koleksiyonları kullanmak genellikle daha iyidir.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.

Aşağıdaki örnek adlı özel bir koleksiyon sınıfını tanımlar AllColors .The following example defines a custom collection class named AllColors. Bu sınıf, IEnumerable yönteminin uygulanması için arabirimini uygular GetEnumerator .This class implements the IEnumerable interface, which requires that the GetEnumerator method be implemented.

GetEnumeratorYöntemi, sınıfının bir örneğini döndürür ColorEnumerator .The GetEnumerator method returns an instance of the ColorEnumerator class. ColorEnumeratorIEnumerator Current özelliği, MoveNext yöntemi ve yönteminin uygulanması için arabirimini uygular 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

YineleyicilerIterators

Bir Yineleyici , bir koleksiyon üzerinde özel bir yineleme gerçekleştirmek için kullanılır.An iterator is used to perform a custom iteration over a collection. Yineleyici bir yöntem veya get erişimci olabilir.An iterator can be a method or a get accessor. Bir yineleyici, tek seferde koleksiyonun her bir öğesini döndürmek için bir yield ifadesini kullanır.An iterator uses a Yield statement to return each element of the collection one at a time.

Her biri Için bir yineleyiciyi kullanarak bir yineleyici çağırın ... Sonraki ifade.You call an iterator by using a For Each…Next statement. Döngünün her yinelemesi For Each yineleyiciyi çağırır.Each iteration of the For Each loop calls the iterator. YieldYineleyiciden bir ifadeye ulaşıldığında, bir ifade döndürülür ve koddaki geçerli konum korunur.When a Yield statement is reached in the iterator, an expression is returned, and the current location in code is retained. Bu konumdan, yineleyici bir sonraki sefer çağrıldığında yürütme yeniden başlatılır.Execution is restarted from that location the next time that the iterator is called.

Daha fazla bilgi için bkz. yineleyiciler (Visual Basic).For more information, see Iterators (Visual Basic).

Aşağıdaki örnek bir yineleyici yöntemi kullanır.The following example uses an iterator method. Yineleyici yöntemi, Yield için bir olan bir ifadeye sahiptir ... Sonraki döngü.The iterator method has a Yield statement that is inside a For…Next loop. ListEvenNumbersYönteminde, ifade gövdesinin her yinelemesi, For Each bir sonraki ifadeye devam eden Yineleyici yöntemine bir çağrı oluşturur Yield .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

Ayrıca bkz.See also