Listview1 nesnesine tıkladığımda verilerin textboxlara aktarılması hakkında

[udentr2002]

İyi geceler arkadaşlar.
Listview1 nesnem 17 stündan oluşmakta Listview1 nesnesine tıkladığımda; textbox1 den textbox17'ye kadar verileri sırası ile aktarması için nasıl bir kod yazabilirim.
Ne yaptıysam olmadı hata verdi.

Saygılarımla

 

[udentr2002]

Merhaba Tekrar;
Aşağıdaki Kodu deniyorum. Ancak şöyle bir sorun veriyor.
Listview1 nesnesinin son sütunu olan 17. sütunu textbox17 ye gelmiyor. textbox17 boş olarak görünüyor. Döngüyü ne kadar deneme yanılma yaparak denediysemde olmadı. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

[/code]
Private Sub ListView1_Click()
If Not ListView1.selectedItem Is Nothing Then
For i = 1 To ListView1.ListItems(1).ListSubItems.Count
If i = 1 Then
Controls("TextBox" & i).Value = ListView1.selectedItem.Text
Else
If ListView1.selectedItem.ListSubItems.Count >= i - 1 Then
Controls("TextBox" & i).Value = ListView1.selectedItem.ListSubItems(i - 1).Text
Else
Controls("TextBox" & i).Value = ""
End If
End If
Next i
End If
End Sub [/endcode]

 

[udentr2002]

Konu hakkında yardımcı olacak Hocalarım rica etsem bakabilir misiniz

Saygılarımla

 

[udentr2002]

Çözüldü Çok basit bir hata yüzünden tam bir gün nerdeyse uğraştım.

[/Code]

Private Sub ListView1_Click()

X = ListView1.selectedItem.Index
If Not ListView1.selectedItem Is Nothing Then
For i = 1 To ListView1.ListItems(1).ListSubItems.Count + 1
If i = 1 Then
Controls("TextBox" & i).Value = ListView1.selectedItem.Text
Else
If ListView1.selectedItem.ListSubItems.Count >= i - 1 Then
Controls("TextBox" & i).Value = ListView1.selectedItem.ListSubItems(i - 1).Text
Else
Controls("TextBox" & i).Value = ""
End If
End If
Next i
End If

End Sub [end code]