带复选框的LISTBOX的问题

我想使用带复选框的LISTBOX，可以通过点选复选框来选择LISTBOX的某些ITEM来实现一些操作。但我有些疑惑的地方是如果我想删除复选框未被点选的ITEM，应该怎么来实现。因为deleteitem只能对已被selected的item起作用，有复选框时只有复选框被点选的item才有selected的属性，而我想删除的复选框未被点选的item没有selected的属性。

Private Sub Command1_Click()
Dim i As Integer
With List1
For i = 0 To .ListCount
If .ListCount = .SelCount Then Exit For
If .Selected(i) = False Then
.RemoveItem i
i = i - 1
End If
Next
End With
End Sub

没有选中是FALSE的。至于我这样REMOVE可能还有更简单的方法吧……我不常用这个控件。REMOVE后INDEX改变我不知道有没有什么属性可以设置的。

我就这样了。

回复：（sedff）带复选框的LISTBOX的问题

谢谢！我希望能删除复选框未被点选的item中的其中某一项，不知怎样实现

严格的说 For i = 0 To .ListCount 这里要 - 1,不过我循环的第一个条件把这里隐含的错误解除了,我就不修改了。

[QUOTE]谢谢！我希望能删除复选框未被点选的item中的其中某一项，不知怎样实现[/QUOTE]

你这样表达我不知道改怎么写……某项如果没有条件的话是代码是写不出的(该不是随机吧)。

回复：（sedff）带复选框的LISTBOX的问题

帮忙看看附件中的图。它能实现这个功能，所以想和它一样。但不知道它的代码是怎么写的。

回复：（sedff）带复选框的LISTBOX的问题

图在这

看不出来你要表达什么意思

你的图那么大……你不能裁下=.=

你的未被选中的只有一项。。。。和你要的效果“删除复选框未被点选的item中的其中某一项”不匹配啊

例子能不能直接点，不要这么晦涩啊

回复：（sedff）带复选框的LISTBOX的问题

不好意思，图是有点大。该图是只有一个复选框没有被点选的例子。图中的这个复选框没有被点选的item可以通过按键盘的delete键来直接从表中删除。

哦，这样啊……我的代码直接删除了……


Private Sub Command1_Click()
Dim i As Integer
With List1
For i = 0 To .ListCount - 1
If .Selected(i) = False Then
.ListIndex = i
Exit For
End If
Next
End With
End Sub

选到第一个没有被选中的ITEM