Коллекции

[alibek]

Создаешь класс со свойствами "Имя", "Название", "Тип", и добавляешь в коллекцию экземпляры данного класса.

[Konst_One]

и обязательно должно быть свойство в коллекции (в атрибутах Procedure ID=-4):

Код: Выделить всё

Public Property Get NewEnum() As IUnknown
    'this property allows you to enumerate
    'this collection with the For...Each syntax
    Set NewEnum = mCol.[_NewEnum]
End Property

[alibek]

Точно, забыл про него добавить.

[Konst_One]

VB.NET не знаю, поэтому только для VB6:
-открываешь Tools\Procedure Attributes
- ищешь там свойство NewEnum
- нажимаешь кнопку Advanced
- в комбе Procedure ID прописываешь -4
- нажимаешь ОК

[Konst_One]

чтобы For Each цикл заработал

[GSerg]

Roman Koff
Применительно к VB .NET в другом разделе.

[hCORe]

Для VB.NET надо реализовывать интерфейсы IEnumerable и IEnumerator.

[Andrey Fedorov]

Ок, спасибо, все работает
А есть встроенная возможность производить сортировку коллекции по значениям определенного свойства элемента или это реализуется только ручками?

Зачем тебе коллекция?
У тебя ведь таблица. Ну дык открой ее как Recordset.
Там и сортировка и фильтрация есть...

[Konst_One]

в запросе LDAP и сортируй сразу

[Konst_One]

или отсоединенный рекордсет:

Код: Выделить всё

Set rs=New ADODB.Recordset
rs.Fields.Append "Name",adVarchar,100
...
rs.Open
...
rs.AddNew
rs![Name]="my name1"
rs.Update
...