उपयोगकर्ता परिभाषित डेटाटाइप को एक शब्दकोश में

Question

कैसे डालें I अपना खुद का डेटा प्रकार परिभाषित करने और इसे एक शब्दकोश के रूप में एक शब्दकोश में डालने का प्रयास कर रहा हूं। वीबीए शिकायत करता है कि यह मेरे डेटा प्रकार को स्वीकार नहीं करता है। इस काम को कैसे प्राप्त करें के बारे में कोई विचार?

केवल उपयोगकर्ता-निर्धारित प्रकार सार्वजनिक वस्तु मॉड्यूल में परिभाषित करने के लिए या एक प्रकार से मजबूर किया जा सकता है या पारित कर दिया देर से बाध्य मॉड्यूल के लिए:

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

के बाद कुछ और मैं इस सवाल का जवाब मिल गया खुदाई:

आप संग्रह के शब्दकोश में एक उपयोगकर्ता परिभाषित डेटा प्रकार रखना चाहते हैं, तो आप वर्ग के रूप में यह परिभाषित करने के लिए किया है। आप एक नया वर्ग मॉड्यूल जोड़ने और सिर्फ इस कोड को जोड़कर ऐसा कर सकते हैं: मैं कर सकते हैं

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 

अब: जब से मैं वर्ग मॉड्यूल ट्रांस नामित

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

, मेरे जिसके परिणामस्वरूप कोड इस तरह दिखता है गतिशील रूप से अनुवाद जोड़ें।