导航
  • 全部
...

关于从collection中执行删除的操作请教

itcoco 2003-11-29 05:13:08
在问个问题。我想从集合里循环取出集合的值,每取出一个就删除一个,该怎么写?
我这样写对么?
Dim mCount As Integer
mCount = OneMessage.Count
For i = 1 To mCount
Set msg = OneMessage.Item(1)
msgstr = msg.getMsg //取出我想要的东西
OneMessage.Remove 1
Next
但我觉得没删除一个,onemessage.count 就变了 所以那该怎么写呢?而且collection也没有说全部晴空collection 象clear类似的操作把
...全文
给本帖投票
199 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
zyl910 2003-11-30
  • 打赏
  • 举报
回复
Dim mCount As Integer
mCount = OneMessage.Count
For i = mCount to 1 step -1
Set msg = OneMessage.Item(i)
msgstr = msg.getMsg //取出我想要的东西
OneMessage.Remove i
Next
itcoco 2003-11-30
  • 打赏
  • 举报
回复
可是我测试的结果却好像是没有删除collection里的结果,继续发送消息的时候,还有原先的消息在里边
Random 2003-11-30
  • 打赏
  • 举报
回复
楼上的跟楼主的没区别!
楼主的方法本来就满足你自己所希望的结果啊!
northwolves 2003-11-30
  • 打赏
  • 举报
回复
用DO循环:
Do While onemessage.Count >= 1
msgstr = onemessage(1) '取出我想要的东西
' Debug.Print msgstr
onemessage.Remove 1
Loop
sxj1976 2003-11-30
  • 打赏
  • 举报
回复

For i = 1 To OneMessage.Count
Set msg = OneMessage.Item(1)
msgstr = msg.getMsg
OneMessage.Remove 1
Next
rainstormmaster 2003-11-29
  • 打赏
  • 举报
回复
用词典(Dictionary),需要引用Microsoft Scripting Runtime,用法和集合类似

个人感觉vb提供的collection是鸡肋
itcoco 2003-11-29
  • 打赏
  • 举报
回复
up

7,784

社区成员

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

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

手机看
关注公众号

关注公众号

客服 返回
顶部