Listview checkbox kullanımı hakkında!

[tigiy]

Herkese merhaba

listview1 de 100den fazla item geliyor. Listview1de click olayını kullandığımda sadece o tıkladığım satırın checkbox'ının checked olmasını istiyorum. Diğerleri hepsi unchecked olsun.

Listview1_click kodlarım aşağıdaki gibidir.

Private Sub ListView1_Click()

If ListView1.ListItems.Count = 0 Then Exit Sub

X = ListView1.SelectedItem.Index

textbox1.Text = ListView1.ListItems(X).ListSubItems(1).Text
textbox2.Text = ListView1.ListItems(X).ListSubItems(2).Text
textbox3.Text = ListView1.ListItems(X).ListSubItems(3).Text
textbox4.Text = ListView1.ListItems(X).ListSubItems(4).Text
textbox5.Text = ListView1.ListItems(X).ListSubItems(5).Text
textbox6.Text = ListView1.ListItems(X).ListSubItems(6).Text
textbox7.Text = ListView1.ListItems(X).ListSubItems(7).Text
textbox8.Text = ListView1.ListItems(X).ListSubItems(8).Text
textbox9.Text = ListView1.ListItems(X).ListSubItems(9).Text
textbox10.Text = ListView1.ListItems(X).ListSubItems(10).Text
textbox11.Text = ListView1.ListItems(X).ListSubItems(11).Text
textbox12.Text = ListView1.ListItems(X).ListSubItems(12).Text
textbox13.Text = ListView1.ListItems(X).ListSubItems(13).Text
textbox14.Text = ListView1.ListItems(X).ListSubItems(14).Text
textbox15.Text = ListView1.ListItems(X).ListSubItems(15).Text
End Sub

konu hakkında yardımlarınızı rica ediyorum.

saygılarımla

 

[Orion1]

Örnek dosya ekleyiniz.

 

[tigiy]

Hocam teşekkürler aşağıdaki kod ile çözdüm sorunumu

For i = 1 To ListView1.ListItems.Count
ListView1.ListItems.Item(i).Checked = False
Next i
ListView1.SelectedItem.Checked = True