如何将 Dictionary.items 分配给 vb.net 中的 class 对象

Question

您好，我正在将 VB6 迁移到 vb.net 并计划用 Dictionary(Of String, clsAnimal) 替换 Scripting.Dictionary。

下面的代码是 vb6，它使用 Dictionary

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

那么如何使用 Dictionary(Of String, clsAnimal) 重写 VB.Net 中的上述内容？

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

如何将 Dictionary.items 分配给 vb.net 中的 class 对象

how to assign Dictionary.items to a class object in vb.net

vb.net

vb6-migration