1. 基本的代码如下:Option ExplicitPrivate collEmployees As CollectionPublic Function NewEnum() As IUnknown  Set NewEnum = collEmployees.[_NewEnum]    
End Function
2. 我的问题是 
 
   其中的 _NewEnum  是什么 ?   属于谁 ? 谢谢
           

解决方案 »

  1.   

    使 For Each ... Next 有效
    伴随着强健性而来的,是重新获得了 For Each ... Next。通过添加下面的方法,可以再一次将所有工作委派给 Collection 对象:'NewEnum 必须返回一个集合的枚举算子的 IUnknown 接口。
    Public Function NewEnum() As IUnknown
       Set NewEnum = mcolEmployees.[_NewEnum]
    End Function包围 Collection 对象的 _NewEnum 方法的方括号是必要的,这是因为方法名前面的下划线。前面的这个下划线是一个约定,它指明该方法是隐藏在类型库中的。不能把自己的方法命名为 _NewEnum,但是可以把它隐藏在类型库中,并将 For Each ... Next 所需要的过程 ID 赋给它。
      

  2.   

    查MSDN:创建自己的集合类,里面有详细的介绍.