如何將用戶定義的數據類型放入字典中

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 

現在我可以動態添加翻譯。