全选:在行与列的左上角空白处点一下,全选上了。
取消:任意点别处一下,就不再是全选了。
Private Sub CombutAllSeltion_Click()'全选
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = True
Next
End Sub
Private Sub ComButNotAllSeltion_Click()'全不选
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = False
Next
End Sub