VB6如何使自定义集合类支持每个

VB6如何使自定义集合类支持每个,vb6,enumerate,Vb6,Enumerate,我被安排在一个项目上,该项目的客户端是用VB6编写的,ack!我正在尝试开发一个支持For…Each语法的自定义集合类。这在VB6中是可能的吗?或者我一直在使用For..Next和计数器来标识索引 谢谢你的帮助 关键部分是将其添加到自定义集合类中 Public Function NewEnum() As IUnknown Set NewEnum = m_Employees.[_NewEnum] End Function 在过程属性中,将过程id设置为-4,如下所示: Ref:对任何与

我被安排在一个项目上,该项目的客户端是用VB6编写的,ack!我正在尝试开发一个支持For…Each语法的自定义集合类。这在VB6中是可能的吗?或者我一直在使用For..Next和计数器来标识索引


谢谢你的帮助

关键部分是将其添加到自定义集合类中

Public Function NewEnum() As IUnknown
    Set NewEnum = m_Employees.[_NewEnum]
End Function
在过程属性中,将过程id设置为-4,如下所示:


Ref:

对任何与VB6相关的内容进行升级都是错误的,但答案非常好。:-)我对你的评论投了赞成票,太好笑了!我知道你的意思,为chris感到难过,因为在
colldispid.h
中有
#define DISPID_NEWENUM(-4)
,还有
#define DISPID_LISTITEM 0
#define DISPID_LISTCOUNT(-531)
,但VB的
并没有为每个
操作符使用这些。我能说什么呢,我们必须支付抵押贷款,我希望VB6开发人员能像那些Cobol开发人员一样变得罕见,然后当m$停止VB6运行时,我将在那里利用所有迁移到.net的机会……除非,我已经错过了那条船,该死!