VB 6 Как создать класс пользовательской коллекции для каждого

Я был помещен в проект, чей клиентский интерфейс написан на VB 6, ack! Я пытаюсь разработать собственный класс коллекции, который поддерживает For... Каждый синтаксис. Возможно ли это в VB 6? Или я застрял с использованием For..Next со счетчиком для идентификации индекса.

Спасибо за помощь!

Ответы

Ответ 1

Ключевая часть добавляет это к классу пользовательской коллекции...

Public Function NewEnum() As IUnknown
    Set NewEnum = m_Employees.[_NewEnum]
End Function

и в атрибутах процедуры установите id процедуры в -4, например:

Ссылка: http://www.vb-helper.com/howto_custom_collection_with_for_each.html