как назначить Dictionary.items для объекта класса в vb.net

Question

Привет! Я мигрирую VB6 на vb.net и планирую заменить Scripting.Dictionary на Dictionary(Of String, clsAnimal).

Ниже приведен код vb6, который использует Dictionary

   Dim clsAni As clsAnimal '(This is a class object)
   Dim test As String
   Set clsAni = m_dicDemographics.Item(test)

Итак, как я могу переписать вышеупомянутое в VB.Net, используя Dictionary(Of String, clsAnimal)?

Answer 1

Вот полный пример:

Public Class clsAnimal  
    ' Members go here.
End Class

Module Module1
    Dim m_dicDemographics As Dictionary(Of String, clsAnimal) = New Dictionary(Of String, clsAnimal)

Sub Main()
    m_dicDemographics.Add("Frog", New clsAnimal())
    Dim clsAni As clsAnimal = m_dicDemographics.Item("Frog")
End Sub

End Module