如何制作自定义集合类以支持 For Each（VB 6）

Question

我被分配到一个项目，该项目的客户端前端是用VB 6编写的，啊！我正在尝试开发一个支持For...Each语法的自定义集合类。在VB 6中是否可能实现这一点？还是只能使用For..Next循环和计数器来识别索引。

谢谢您的帮助！

- Chris

---

我只能说，得付房贷啊。我希望VB6开发人员会像那些Cobol开发人员一样变得稀缺，然后当微软停止支持VB 6运行时，我就可以从所有迁移到.NET的项目中获利...除非我已经错过了这艘船，真是遗憾！ - Chris

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

- Justin Largey

---

这与VB6相关的点赞让人感觉不太好，但回答非常好。 :-) - Samuel Neff

我正在为你的评论点赞，太有趣了！我知道你的意思，为克里斯感到难过。 - Justin Largey

因为在 colldispid.h 中有 #define DISPID_NEWENUM (-4)，以及 #define DISPID_LISTITEM 0 和 #define DISPID_LISTCOUNT (-531)，但是这些内容并没有被 VB 的 For Each 操作符使用。 - wqw