分配動態值到對象

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"