Question

vb中listbox中列表为多行内容时如果全选？

listbox的style属性是1-checkbox，listbox中列表为多行内容时如果全选（就是每行前面的复选框全部选上）？
同时，如何取消全选？

Answer 1

全选：
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
Next

取消全选：
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.Selected(i) = False
Next

追问

如果在listbox旁边加个check复选框，怎样通过这个复选框控制呢？

追答

Private Sub Check1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.Selected(i) = Check1.Value
Next
End Sub

追问

这个代码可以实现，但取消全选时，为什么最后一个还高亮显示呢？

追答

Private Sub Check1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.Selected(i) = Check1.Value
Next
List1.ListIndex = -1
End Sub

Answer 2

只要设置ListIndex的中的序号就行了 ，序号代表选项。