個人記事

  Private Sub ListView_單選(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
    '讀取 checkbox 的位置
    '單選checkbox 不能複選
    If CheckBox1.Checked = True Then
      If e.Item.Checked = True Then
        For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
          If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
            ListView1.CheckedItems.Item(i).Checked = False
          End If
        Next
      End If

End Sub