类可以扩展 Collection 对象吗？

Question

我试图在新类中扩展 VBA Collection 对象的功能，并使该类成为 Collection 的继承者，但 Implements Collection声明给了我以下错误：

Implements 的错误接口：方法 名称中有下划线。

什么下划线？！ Add、Item、Remove 和 Count 是 Collection< 文档中列出的唯一方法/代码>。所有四个都没有下划线。

编辑：为了澄清，我正在创建一个名为 UniformCollection 的类（仅接受所有相同类型的成员，灵感来自 这种方法）。我希望它实现 Collection，以便 UniformCollection 是一个 Collection > 并且可以在调用其他对象的方法等时代替 Collection 使用。

我知道我必须为 Add、Item 等编写委托方法/属性，并为 < 编写 NewEnum 属性code>For Each 工作，我已经这样做了。

我的问题是 Implements Collection 语句给了我上述错误。

额外问题：Count 是 Collection 的方法还是属性？帮助将其称为属性，但 VBA 编辑器中的对象浏览器将其称为函数，即方法（飞行的黄色框）。

Answer 1

您遇到了 VBA 中 Implements 的限制之一。如果另一个类具有名称中带有下划线的任何公共方法或属性，则您无法实现另一个类。 Collection 类当然有 _NewEnum 但任何下划线都会导致问题。

例如，如果您创建了一个具有以下内容的类 AddressClass：

Public Address_City As String

然后创建了另一个类 CustomerAddress：

Implements AddressClass

Private Property Get ClassInterface_Address_City() As String
End Property

Private Property Let ClassInterface_Address_City(ByVal RHS As String)
End Property

编译时，您将收到错误“对象模块需要实现 '接口“AddressClass”的“Address_City”。”将属性更改为 AddressCity 可使错误消失。

可能的解决方案：如果我理解正确，您想要实现集合类，以便可以将新类传递给以集合作为参数的方法。是否可以改变这些方法？我的建议是创建您自己的集合类 MyCollection 然后实现它。即 UniformMyCollection 这样就可以完全避免下划线的问题。

至于Count，我随时都会相信对象浏览器而不是帮助文本。另一方面，如果您要创建自己的集合类，那么选择哪个并不重要。

Answer 2

VBA 对于可以实现的类有很多限制。 NewEnum 会导致 Collection 出错，但即使不是，该类中也很可能有其他东西会导致它出错。我认为它报告了它发现的第一个问题。

因为 Collection 的属性和方法太少，所以我只是重写它们。

Private mcolParts As Collection

Public Sub Add(clsPart As CPart)
    mcolParts.Add clsPart, CStr(clsPart.PartID)
End Sub

Public Property Get Count() As Long
    Count = mcolParts.Count
End Property

Public Property Get Item(vItm As Variant) As CPart
    Set Item = mcolParts.Item(vItm)
End Property

Public Sub Remove(vIndex As Variant)
    mcolParts.Remove vIndex
End Sub

不知道为什么 OB 显示方法（对我来说它们看起来像绿色框）。对于我来说，方法要么改变多个属性，要么与类之外的东西交互。其他一切都是财产。我将同时调用 Count 和 Index 属性。

Answer 3

Dick Kusleika 拥有大部分内容，但如果您想在自定义类上使用 For Each，您还需要：

'--- required additional property that allow to enumerate the collection with For Each
Public Property Get NewEnum() As IUnknown
    Set NewEnum = m_ColParts.[_NewEnum]
End Property

我在收藏夹 (< a href="http://www.cpearson.com/excel/CollectionClass.aspx" rel="nofollow noreferrer">这个 或 这个），但他们两者都值得一读。如果我找到谈论 NewEnum 的网站，我将进行编辑以添加它。

编辑

这些链接都不是我要找的链接，但都讨论了 NewEnum 属性（包括需要添加的一点额外的巫术）：

此处 和
在这里。

这两者都谈论Excel，但VBA在其他Office应用程序中是相同的（包括需要导出->文本编辑->导入过程来获取“属性”）。

Answer 4

Re RolandTumble 关于“NewEnum”的注释：

我自己在 Access 2003 中的经验是，“For Each”通过导入包括该行的代码可以正常工作

Attribute NewEnum.VB_UserMemId = -4

...但是在我“/反编译”该文件（命令行开关）之后，该行已被已删除（导出时验证）并且“For Each”不起作用。

不幸的是，当“压缩和修复”无法为我解决问题时，我需要使用“/反编译”。