Collection Класс

public sealed class Collection : System.Collections.IList

[System.Serializable]
public sealed class Collection : System.Collections.IList, System.Runtime.Serialization.IDeserializationCallback, System.Runtime.Serialization.ISerializable

Наследование

Object

Collection

Атрибуты

SerializableAttribute

Реализации

ICollection IEnumerable IList IDeserializationCallback ISerializable

В следующем примере создается Collection объект names и диалоговое окно, с помощью которого пользователь может добавлять объекты (имена) в коллекцию. Затем он отображает имена в коллекции и, наконец, очищает коллекцию, не удаляя Collection сам объект.

Чтобы увидеть, как это работает, выберите команду Добавить класс в меню Проект и объявите общедоступную переменную с именем instanceName на уровне nameClass модуля (тип Public instanceName) для хранения имен каждого экземпляра. Оставьте имя по умолчанию .nameClass Скопируйте и вставьте следующий код в раздел Общие другого модуля, а затем запустите его с помощью инструкции classNamer в другой процедуре. (Этот пример работает только с ведущими приложениями, поддерживающими классы.)

Public Class nameClass
    Public instanceName As String
End Class
Sub classNamer()
    ' Create a Visual Basic Collection object.
    Dim names As New Microsoft.VisualBasic.Collection()
    Dim key As Integer
    Dim msg As String
    Dim name As String
    Dim nameList As String = ""
    ' 1. Get names from the user to add to the collection.
    Do
        Dim inst As New nameClass()
        key += 1
        msg = "Please enter a name for this object." & vbCrLf &
              "Press Cancel to see names in collection."
        name = InputBox(msg, "Name the Collection items")
        inst.instanceName = name
        ' If user entered a name, add it to the collection.
        If inst.instanceName <> "" Then
            names.Add(inst, CStr(key))
        End If
    Loop Until name = ""
    ' 2. Create and display a list of names from the collection.
    For Each oneInst As nameClass In names
        nameList &= oneInst.instanceName & vbCrLf
    Next oneInst
    MsgBox(nameList, , "Instance Names in names Collection")
    ' 3. Remove elements from the collection without disposing of the collection.
    For count As Integer = 1 To names.Count
        names.Remove(1)
        ' Since Visual Basic collections are reindexed automatically, 
        ' remove the first member on each iteration.
    Next count
End Sub

Объект Visual Basic Collection предоставляет удобный способ ссылаться на связанную группу элементов как на один объект. Элементы в коллекции должны быть связаны только тем фактом, что они существуют в коллекции. Элементы коллекции не должны совместно использовать один и тот же тип данных.

Вы можете создать коллекцию так же, как и другие объекты, как показано в следующем примере.

Dim coll As New Microsoft.VisualBasic.Collection()  

После создания коллекции можно выполнить любое из следующих действий:

• Добавьте элемент с Add помощью метода .

• Удалите элемент с Remove помощью метода .

• Удалите все элементы с Clear помощью метода .

• Узнайте, сколько элементов содержит коллекция с Count помощью свойства .

• Проверьте, присутствует ли определенный элемент в методе Contains .

• Возвращает определенный элемент из коллекции со свойством Item[] .

• Выполните итерацию всей коллекции с помощью элемента For Each... Следующий оператор.

  Примечание

  Хотя функциональность объекта Visual Basic Collection идентична Collection функции объекта в Visual Basic 6.0, они не могут взаимодействовать в среде COM.

  Внимание!

  Итерации по Visual Basic Collection не являются потокобезопасной процедурой. Даже если коллекция синхронизирована, другие потоки по-прежнему могут изменять коллекцию, в результате чего перечислитель создает исключение. Чтобы гарантировать потокобезопасность во время перечисления, заблокируйте коллекцию или перехватите исключения, возникающие в результате изменений, внесенных другими потоками. Дополнительные сведения о блокировке элемента программирования см. в разделе SyncLock Statement.