Question

vb listbox控件（含复选框），多选操作代码怎么写

选取多个文件进行删除操作的代码怎么写？

帮帮忙，我在自学vb，先谢谢了

Answer 1

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

Answer 2

你可以用楼上的代码移除LIST的选项，要删除文件需要知道目录的位置，用KILL语句删除，修改上面的代码即可

Answer 3

ListBox .MultiSelect = fmMultiSelectExtended这句话是让你的listbox可以多选（按住ctrl或者shift）
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List1.RemoveItem (i) '删除选中项
End If
Next
循环遍历选中