我想为我的类添加一个功能,所以我可以在for-each循环中使用它们.
我写了一些我要迭代的哈希映射,arraylists,队列,集等等.现在我正在寻找一种方法来实现IUnknown类来构建自定义迭代器.
我已经知道如何使用了
private objPeople as Collection
Public Property Get NewEnum() As IUnknown
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"
Set NewEnum = objPeople.[_NewEnum]
End Property
Run Code Online (Sandbox Code Playgroud)
但那里的所有例子都基于Collection类,我不想使用它.
我想要关注的是尝试实现IUnknown接口,但我没有找到任何关于如何做到这一点的参考.
我在Java,C++,C#等方面有丰富的经验,所以我认为即使在VBA中也可以实现这一点,甚至可以使用API调用这样的东西.