Vb.net listview全選與反選 [Listview All Select / Un Select]

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub lblSelectAll_Click(sender As Object, e As EventArgs) Handles lblSelectAll.Click For Each lvwi As ListViewItem In lvwColumnSet.Items lvwi.Checked = True Next End Sub Private Sub lblReverse_Click(sender As Object, e As EventArgs) Handles lblReverse.Click For Each lvwi As ListViewItem In lvwColumnSet.Items lvwi.Checked = Not lvwi.Checked Next End Sub