字典中的 Excel vba 类

Question

我正在将课程项目添加到字典中，但我无法取回它们。我需要循环还是我做错了什么？

我的课程模块“cOgg”有：

Public desc As String
Public alt As Single

我的潜艇有：

sub pivo()
Dim oMat As New cOgg
Dim sosdb As New Dictionary
Set sosdb = Nothing

oMat.desc= "unodesc"
oMat.alt= 5
sosdb.Add "uno", oMat

oMat.desc= "duedesc"
oMat.alt= 10
sosdb.Add "due", oMat
Debug.Print (sosdb("uno").alt)
Debug.Print (sosdb("due").alt)
end sub

如果我运行 sub，我会得到：

10
10

代替

5
10

有任何想法吗？

问候

Answer 1

添加oMat变量后，您必须将变量设置为cOgg类的新实例，以便在字典中拥有类对象的两个实例。

sub pivo()
    Dim oMat As New cOgg
    Dim sosdb As New Dictionary
    Set sosdb = Nothing

    oMat.desc= "unodesc"
    oMat.alt= 5
    sosdb.Add "uno", oMat

    Set oMat = New cOgg
    oMat.desc= "duedesc"
    oMat.alt= 10
    sosdb.Add "due", oMat
    Debug.Print (sosdb("uno").alt)
    Debug.Print (sosdb("due").alt)
end sub

如果您不这样做，那么条目中的oMatin 将"Uno"在被添加为 10 后更新。然后您将cOgg保持在相同的实例中添加oMat到"due"字典的条目中。因此，无论"uno"与"due"保持对象，相同的同一实例，并且具有alt的10