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中。
...全文
238 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
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多出来的功能。

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧