分配动态值到对象

Question

我想创建对象和分配任何价值我想 例如

Dim obj As New Object 
obj.test = "test" 
obj.test.test2 = "test2" 

否则

Dim obj As New Object 
obj("test") = "test" 
obj("test")("test2") = "test2" 

是有可能做到这一点？

Answer 1

你可以使用一个ExpandoObject：

Dim obj as new ExpandoObject 
obj.test = "test" 

这是不可能相同的属性映射到两个字符串和ExpandObject（这将通过你的第一个例子中的第三行需要）。但是您可以添加其他属性。如果你想嵌套这个，你需要继续声明ExpandoObjects，例如

Dim obj as new ExpandoObject 
obj.test1 = "test1" 
Set obj.test2 = new ExpandoObject 
obj.test2.test = "test"