listbox中的删除问题

[linhq]

在listbox中设置了checkbox，如何做到删除已经选择多项？

[junglerover]

？？？不是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

随手写的，不一定全对，不过应该差不多了。

[linhq]

是listbox
不过谢谢你的思路