列出 VBA 2003 中类的属性

我到处搜索，看看这个问题是否有一个简单的答案，但似乎没有......

我正在使用 Excel VBA 2003（是的，我知道它已经过时，但我无法更改它），我想要做的就是列出给定自定义类中所有可读属性的名称和值。

我想做这样的事情：

类定义（对于名为 cFooBar 的类）

Option Explicit

Private pFoo As String
Private pBar As String

Public Property Get Foo() As String
Foo=pFoo
End Property

Public Property Get Bar() As String
Bar=pBar
End Property

调用代码

Dim myFooBar as cFooBar, P as Property
myFooBar=new cFooBar
For Each P in myFooBar.Properties
Debug.Print P.Name, P.Value
Next

当然，这是行不通的，因为似乎没有自定义类的“Properties”集合成员（或者至少没有您可以获得的成员），并且也没有“Property”类型。

有人知道解决这个问题的方法吗？

TIA,

Campbell

正如 John 上面提到的，VBA 不支持反射。这是我之前使用过的一个技巧。基本上，您可以创建一个 Collection 或 Dictionary 对象来按名称存储您的“属性”。

Option Explicit

Private pProperties As Object

Public Property Get Properties() As Object
    Set Properties=pProperties
End Property

Public Property Let Properties(p as Object) 
    Set pProperties = p
End Property


Sub Class_Initialize()
    Set pProperties = CreateObject("Scripting.Dictionary")

    'Add/instantiate your properties here
    pProperties("foo") = "this is foo"
    pProperties("bar") = "this is bar"


End Sub

调用代码

Dim myFooBar As New cFooBar, P As Variant

For Each P In myFooBar.Properties.Keys()
    Debug.Print P, myFooBar.Properties(P)
Next