vb中使用dictionary遇到问题

Question

dim  dicObj as Dictionary
dim  objData as  myClass
set dicobj = new Dictionary
set objdata as myClassobjdata.strFile="ppp"
dicobj.add  "uu",objdata执行后  用调试器看dicobj的内容。里面的 Item项只有"uu",没有objdata成员。
使用 dicobj.exist("uu")返回  true 使用 dicobj.Key("uu")出错。    请高手解答  我怎么才能把对象装载到dicobj中。

Answer 1

应该是dicobj.item("uu")之类的属性吧。
key(n)是用来取第n个的键值，这正是dictionary比collection多出来的功能。

Answer 2

Dim dicObj       As Dictionary
Dim objData       As myClass
Set dicObj = New Dictionary
Set objData = New myClassobjData.strFile = "ppp"
dicObj.Add "uu", objData
Debug.Print  dicObj.Item("uu").strFile

Answer 3

 使用   dicobj.Key("uu")出错的原因 知道了  返回是个对象我没有正确赋值。问题是在调试窗口看不到dicobj中添加对象的内容？  有什么办法啊？

Answer 4

代码窗口选中dicobj，右键菜单“Add Watch...”

Answer 5

就是 把dicobj放入  Watch调试窗口后，点击dicobj打开前面的小+号，里面只能看到Item,然后后面是key：uu。看不到 myclass的内容阿。

Answer 6

将dicobj(1)或dicobj("uu")放入调试窗口

Answer 7

谢谢 大家  搞定了应该是把dicobj.Item("uu")放入调试窗口。