VB 6 How to make Custom Collection Class to support For Each

问题

I've been placed on a project whose client front end is written in VB 6, ack! I'm trying to develop a custom collection class that supports the For...Each syntax. Is this possible in VB 6? Or am I stuck with using the For..Next with counter to identify the index.

Thanks for the help!

回答1:

The key part is adding this to the custom collection class...

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

and in the procedure attributes, set the procedure id to -4, like so:

Ref: http://www.vb-helper.com/howto_custom_collection_with_for_each.html

来源：https://stackoverflow.com/questions/5629521/vb-6-how-to-make-custom-collection-class-to-support-for-each