listview

[prodigy]

iyi akşamlar
Değerli arkadaşlar aşağıdaki kodu kısa bir yol ile yazabilirmiyiz.


Private Sub ListView1_Click()
If ListView1.ListItems.Count = 0 Then Exit Sub
x = ListView1.SelectedItem.Index
txtsira = ListView1.ListItems(x)
ComboBox1 = ListView1.ListItems(x).ListSubItems(1).Text
ComboBox2 = ListView1.ListItems(x).ListSubItems(2).Text
ComboBox3 = ListView1.ListItems(x).ListSubItems(3).Text
TextBox1 = ListView1.ListItems(x).ListSubItems(4).Text
TextBox2 = ListView1.ListItems(x).ListSubItems(5).Text
TextBox3 = ListView1.ListItems(x).ListSubItems(6).Text
TextBox4 = ListView1.ListItems(x).ListSubItems(7).Text
TextBox5 = ListView1.ListItems(x).ListSubItems(8).Text
TextBox6 = ListView1.ListItems(x).ListSubItems(9).Text
TextBox7 = ListView1.ListItems(x).ListSubItems(10).Text
TextBox8 = ListView1.ListItems(x).ListSubItems(11).Text
TextBox9 = ListView1.ListItems(x).ListSubItems(12).Text
TextBox10 = ListView1.ListItems(x).ListSubItems(13).Text
TextBox11 = ListView1.ListItems(x).ListSubItems(14).Text
TextBox12 = ListView1.ListItems(x).ListSubItems(15).Text
TextBox13 = ListView1.ListItems(x).ListSubItems(16).Text

End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi kısaltabilirsiniz.

Private Sub ListView1_Click()
If ListView1.ListItems.Count = 0 Then Exit Sub
x = ListView1.SelectedItem.Index
txtsira = ListView1.ListItems(x)
for a=1 to 16
if a<3 then 
controls("ComboBox" & a) = ListView1.ListItems(x).ListSubItems(a).Text
else
controls("TextBox" & a) = ListView1.ListItems(x).ListSubItems(a).Text
end if
End Sub

 

[prodigy]

teşekkür ederim
Private Sub ListView1_Click()
If ListView1.ListItems.Count = 0 Then Exit Sub
x = ListView1.SelectedItem.Index
txtsira = ListView1.ListItems(x)
For a = 1 To 16
If a < 4 Then
Controls("ComboBox" & a) = ListView1.ListItems(x).ListSubItems(a).Text
Else
Controls("TextBox" & a - 3) = ListView1.ListItems(x).ListSubItems(a).Text
End If
Next
End Sub
şeklinde düzeltim oldu.