Dim zd As new Dictionary(of object,object )
Dim a As new Dictionary(of object,object )
a.add("1","11")
zd.Add("a",a)
zd.add(1,1)
zd.add(Date.Today ,1)
For Each key As object In zd.Keys
If Typeof key Is String Then Output.Show("字符串")
If Typeof key Is Integer Then Output.Show("数字")
If Typeof zd(key) Is Dictionary(of object,object ) Then Output.Show("字典")
Output.Show(key.Gettype().name & " - " & zd(key).Gettype().name)
Next
加好友 
发短信
Post By：2016/8/22 8:43:00 [显示全部帖子]
