如何将用户定义的数据类型放入字典中

Question

我试图定义自己的数据类型并将其作为值放入字典中。 VBA抱怨说它不接受我的数据类型。任何关于如何使这项工作的想法？

Option Explicit 

Public Type Translation 
    german As String 
    french As String 
    italian As String 
End Type 

Private resource As Object 

Public Sub addTranslation(key As String, g As String, f As String, i As String) 
    Dim trx As Translation 
    trx.german = g 
    trx.french = f 
    trx.italian = i 

    resource.add key, trx '<== here VBA is complaining 
End Sub 

Public Sub initResource() 
    If resource Is Nothing Then Set resource = CreateObject("scripting.dictionary") 
End Sub 

这是错误的messge：公共对象模块中定义

只有用户定义类型可以强制转换或从一种变型，或者传递给后期绑定模块。

Answer 1

后一些更多的挖我发现这个答案：

如果你想要把一个用户定义的数据类型为集合的词典，你必须把它定义为类。您可以通过添加一个新的类模块和刚刚添加该代码这样做：

Public german As String 
Public french As String 
Public italian As String 

因为我命名类模块反式，我得到的代码如下所示：

Private resource As Object 

Public Sub addTranslation(k As String, g As String, f As String, i As String) 
    Dim trx As trans 
    Set trx = New trans 
    trx.german = g 
    trx.french = f 
    trx.italian = i 

    resource.Add k, trx 
End Sub 

Public Sub initTranslations() 
    If resource Is Nothing Then Set resource = CreateObject("scripting.dictionary") 
End Sub 

现在我可以动态添加翻译。