RError.com

RError.com Logo RError.com Logo

RError.com Navigation

  • 主页

Mobile menu

Close
  • 主页
  • 系统&网络
    • 热门问题
    • 最新问题
    • 标签
  • Ubuntu
    • 热门问题
    • 最新问题
    • 标签
  • 帮助
主页 / 问题 / 558351
Accepted
Roxio0
Roxio0
Asked:2020-08-23 13:01:50 +0000 UTC2020-08-23 13:01:50 +0000 UTC 2020-08-23 13:01:50 +0000 UTC

自定义类型和每个循环的迭代器

  • 772

下午好。是否可以像在 Collection 类中所做的那样,通过 For Each 循环与我编写的类(内部包含一些集合\数组)交朋友?例子:

Dim example As New Collection
example.Add 2
example.Add 3
Dim elem As Variant
For Each elem In example
    Debug.Print elem
Next elem

可以看出,例如,在传递给 For Each 循环时,没有显式调用返回值列表的函数。如何为任何其他类型实现此行为?据我了解,该语言本身使用某种实现迭代器概念的服务机制。

vba
  • 1 1 个回答
  • 10 Views

1 个回答

  • Voted
  1. Best Answer
    Evrik
    2020-08-23T14:33:42Z2020-08-23T14:33:42Z

    如果您的类包含一个集合,则可以这样做。添加一个方法(让类中的集合被调用mycollection)

    Public Property Get NewEnum() As IUnknown
        Set NewEnum = mycollection.[_NewEnum]    
    End Property
    

    然后将你的类导出到一个文件,在文本编辑器中打开它,并添加行Attribute NewEnum.VB_UserMemId = -4。最后,它应该是这样的:

    Public Property Get NewEnum() As IUnknown
    Attribute NewEnum.VB_UserMemId = -4
        Set NewEnum = mycollection.[_NewEnum]    
    End Property
    

    导入这个类而不是你的,一切都会起作用。

    在这里阅读更多https://stackoverflow.com/documentation/vba/5321/attributes#t=201608230625133754538

    • 2

相关问题

Sidebar

Stats

  • 问题 10021
  • Answers 30001
  • 最佳答案 8000
  • 用户 6900
  • 常问
  • 回答
  • Marko Smith

    如何停止编写糟糕的代码?

    • 3 个回答
  • Marko Smith

    onCreateView 方法重构

    • 1 个回答
  • Marko Smith

    通用还是非通用

    • 2 个回答
  • Marko Smith

    如何访问 jQuery 中的列

    • 1 个回答
  • Marko Smith

    *.tga 文件的组重命名(3620 个)

    • 1 个回答
  • Marko Smith

    内存分配列表C#

    • 1 个回答
  • Marko Smith

    常规赛适度贪婪

    • 1 个回答
  • Marko Smith

    如何制作自己的自动完成/自动更正?

    • 1 个回答
  • Marko Smith

    选择斐波那契数列

    • 2 个回答
  • Marko Smith

    所有 API 版本中的通用权限代码

    • 2 个回答
  • Martin Hope
    jfs *(星号)和 ** 双星号在 Python 中是什么意思? 2020-11-23 05:07:40 +0000 UTC
  • Martin Hope
    hwak 哪个孩子调用了父母的静态方法?还是不可能完成的任务? 2020-11-18 16:30:55 +0000 UTC
  • Martin Hope
    Qwertiy 并变成3个无穷大 2020-11-06 07:15:57 +0000 UTC
  • Martin Hope
    koks_rs 什么是样板代码? 2020-10-27 15:43:19 +0000 UTC
  • Martin Hope
    user207618 Codegolf——组合选择算法的实现 2020-10-23 18:46:29 +0000 UTC
  • Martin Hope
    Sirop4ik 向 git 提交发布的正确方法是什么? 2020-10-05 00:02:00 +0000 UTC
  • Martin Hope
    Arch ArrayList 与 LinkedList 的区别? 2020-09-20 02:42:49 +0000 UTC
  • Martin Hope
    iluxa1810 哪个更正确使用:if () 或 try-catch? 2020-08-23 18:56:13 +0000 UTC
  • Martin Hope
    faoxis 为什么在这么多示例中函数都称为 foo? 2020-08-15 04:42:49 +0000 UTC
  • Martin Hope
    Pavel Mayorov 如何从事件或回调函数中返回值?或者至少等他们完成。 2020-08-11 16:49:28 +0000 UTC

热门标签

javascript python java php c# c++ html android jquery mysql

Explore

  • 主页
  • 问题
    • 热门问题
    • 最新问题
  • 标签
  • 帮助

Footer

RError.com

关于我们

  • 关于我们
  • 联系我们

Legal Stuff

  • Privacy Policy

帮助

© 2023 RError.com All Rights Reserve   沪ICP备12040472号-5