vb中使用dictionary遇到问题

gsjcxqan 2007-11-28 04:34:04
dim dicObj as Dictionary
dim objData as myClass
set dicobj = new Dictionary
set objdata as myClass

objdata.strFile="ppp"
dicobj.add "uu",objdata

执行后 用调试器看dicobj的内容。里面的 Item项只有"uu",没有objdata成员。
使用 dicobj.exist("uu")返回 true 使用 dicobj.Key("uu")出错。 请高手解答 我怎么才能把对象装载到dicobj中。
...全文
212 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
gsjcxqan 2007-11-29
谢谢 大家 搞定了应该是把dicobj.Item("uu")放入调试窗口。
回复
Tiger_Zhao 2007-11-29
将dicobj(1)或dicobj("uu")放入调试窗口
回复
gsjcxqan 2007-11-28
就是 把dicobj放入 Watch调试窗口后,点击dicobj打开前面的小+号,里面只能看到Item,然后后面是key:uu。看不到 myclass的内容阿。
回复
Tiger_Zhao 2007-11-28
代码窗口选中dicobj,右键菜单“Add Watch...”
回复
gsjcxqan 2007-11-28
使用 dicobj.Key("uu")出错的原因 知道了 返回是个对象我没有正确赋值。问题是在调试窗口看不到dicobj中添加对象的内容? 有什么办法啊?
回复
zzyong00 2007-11-28
Dim dicObj       As Dictionary
Dim objData As myClass
Set dicObj = New Dictionary
Set objData = New myClass

objData.strFile = "ppp"
dicObj.Add "uu", objData
Debug.Print dicObj.Item("uu").strFile
回复
Tiger_Zhao 2007-11-28
应该是dicobj.item("uu")之类的属性吧。
key(n)是用来取第n个的键值,这正是dictionary比collection多出来的功能。
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告