ListViewで唯一のチェックボックスをチェックする方法

Question

リストビューにn個の項目があります。チェックボックスをオンにすると、他のチェックボックスはすべて自動的に削除されます。

コード

Dim count, idx As Integer 
    count = 0 
    For idx = 1 To lvwMedia.ListItems.count 
     If lvwMedia.ListItems(idx).Checked Then 
      lvwMedia.ListItems(idx).Checked = False 
     End If 
    Next 

上記のコードは動作していますが、その場合には、私は上記のコードを記述する必要があります。

Answer 1

ItemCheckイベントはあなたが探しているイベントです。ここに適切なコードがあります。

Private Sub lvwMedia_ItemCheck(ByVal Item As MSComctlLib.ListItem) 
    Dim count, idx As Integer 
    Dim bln As Boolean 

    bln = lvwMedia.ListItems(Item.Index).Checked 

    count = 0 
    For idx = 1 To lvwMedia.ListItems.count 
     If lvwMedia.ListItems(idx).Checked Then 
      lvwMedia.ListItems(idx).Checked = False 
     End If 
    Next 

    lvwMedia.ListItems(Item.Index).Checked = bln 
End Sub 

Answer 2

私はVB6を使ってきたのでしばらく経ちましたが、多分ItemCheckイベントを試してみてください。

編集 - また、アルゴリズムに関しては、ループを使用してすべてのチェックを解除することをお勧めします。代わりに、ItemCheckイベントがトリガされると、選択された現在のアイテムが記録され、最後に選択されたアイテムのチェックが解除されます。そうすることで、何かをループする必要がないたびにすべてをループするのではなく、速くなります。