Dim bolSel As Boolean // 定义一个布尔型变量bolsel作为行选中的标志
bolSel = True //把标志设为真
Do While bolSel And lstBjkc.ListCount > 0 //当标志为真而且列表框lstBjkc里的项目数大于0时
For i = lstBjkc.ListCount - 1 To 0 Step -1 //对列表框中的每一项都进行下面的操作
If lstBjkc.Selected(i) Then //如果列表框的某一行已经被选中
lstBjkc.RemoveItem lstBjkc.ListIndex 则删除选中的行
bolSel = True 把标志设为真
Else 如果该行未选中
bolSel = False 则 标志为假
End If
Next i 取下一行继续上面的操作
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024