listbox中的删除问题

linhq 2001-12-19 08:13:59
在listbox中设置了checkbox,如何做到删除已经选择多项?
...全文
74 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
linhq 2001-12-19
  • 打赏
  • 举报
回复
是listbox
不过谢谢你的思路
junglerover 2001-12-19
  • 打赏
  • 举报
回复
???不是LISTBOX,是LISTVIEW吧?

逆序遍历LISTITEMS集合,遇到已被选择项则删除之。
dim i as long
dim tItem as listitem

for i=listview1.listitems.count to 1 step -1
set titem=listview1.listitems(i)
if titem.checked=true then
listview1.listitems.remove i
end if
next i

随手写的,不一定全对,不过应该差不多了。
相关推荐
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-12-19 08:13
社区公告
暂无公告