Question

vb listbox风格属性选择了checkbox后,如何从list删除打勾的?

比如说，我想把打勾的123都删除。

Answer 1

Private Sub Command1_Click()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then List1.RemoveItem (i)
Next
End Sub

Answer 2

首先批判一下

网友 然后去远足 给出的答案 逻辑错误

把 它的 for 改成
for i = list1.listcount-1 to 0 step -1

Answer 3

Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) = True Then
            List1.RemoveItem (i)    '删除勾选项
        End If
    Next i 
End Sub