vb.net - how to assign Dictionary.items to a class object in vb.net
问题描述
Hi I am migrating VB6 to vb.net and planning to replace Scripting.Dictionary
with Dictionary(Of String, clsAnimal)
.
The below code is vb6 which uses a Dictionary
Dim clsAni As clsAnimal '(This is a class object)
Dim test As String
Set clsAni = m_dicDemographics.Item(test)
So how can I rewrite the above in VB.Net using Dictionary(Of String, clsAnimal)
?
解决方案
Here's a complete sample:
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
推荐阅读
- python - Django 自定义用户 --- 在管理员中编辑新的自定义用户字段
- javascript - 内容更改时动画更改 div 的大小
- javascript - Blogger 站点地图 JavaScript
- php - 使用PHP搜索mysql数据库
- amazon-s3 - 发布到公共 S3 存储桶下的文件夹
- nuget - VSTS Nuget 发布
- python - 当我们运行内部函数调用时,控制流如何跳过外部函数调用,因为它从整个代码的顶部到底部?
- kubernetes - Kubernetes 环境变量未在命令中正确使用
- mysql - 使用 MySQL 的 Laravel 迁移速度很慢
- javascript - 查找有关如何更改变量测试 js 的解决方案