vb.net 打勾ListView後加入到另一個ListView [Check ListView Add to another ListView]

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

Private Sub lvwColumns_ItemChecked(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles lvwColumns.ItemChecked If e.Item.Checked = True Then lvwSort.Items.Add(e.Item.Text) Else For Each lvwi As ListViewItem In lvwSort.Items lvwi.Remove() Exit Sub Next End If End Sub