vb6 - VB 6 如何使自定义集合类支持 For Each

Question

我被安排在一个客户端前端是用 VB 6 编写的项目中，哎呀！我正在尝试开发一个支持 For...Each 语法的自定义集合类。这在 VB 6 中可行吗？还是我坚持使用带有计数器的 For..Next 来识别索引。

谢谢您的帮助！

Answer 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