Listview seçili satırları toplama

[Halit TÜRK]

Merhaba arkadaşlar..

Çalışmamda kullandığım listviewde aşağıdaki kodlarla toplama işlemi gerçekleştiriyorum.
İkinci kodla ilgili seçili satırı değilde (multiselect = true) her seçili satırın toplamını nasıl hesaplatabilirim.

Genel toplam veya süzüldüğünde toplam almak içindir.

Function Topla() As Double
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
Topla = Topla + CDbl(ListView1.ListItems(i).SubItems(5))
Next
Label4.Caption = "Alttoplam: " & Format(Topla, "Currency")
End Function

Seçili satırda 5 sütundaki toplamı almak içindir.

Function Toplam() As Double
On Error Resume Next
'For i = 1 To ListView1.ListItems.Count
Toplam = CDbl(ListView1.SelectedItem.ListSubItems(5))
'Next
Label5.Caption = "Alttoplam: " & Format(Toplam, "Currency")
End Function

 

[Orion1]

If ListView1.ListItems(i).Selected = True Then

 

[Halit TÜRK]

Tam olaraak nasıl yazmam gerekiyor açıklamanız mümkünmü...
Teşekkürler...

 

[Halit TÜRK]

Sayın Evren bey
Çok teşekkür ederim. Aşağıdaki gibi yazarak sonuç aldım.

Function Toplam() As Double
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected = True Then
Toplam = Toplam + CDbl(ListView1.ListItems(i).SubItems(5))
End If
Next
Label5.Caption = "Alttoplam: " & Format(Toplam, "Currency")
End Function