带复选框的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改变我不知道有没有什么属性可以设置的。
我就这样了。