Sumar columnas de un listview

[principefreddy]

hola bueno la pregnta o inquietud que tengo es.

como hago para que en vez de sumarme todas las columnas solo me sume las filas que esten seleccionadas con los check ..

yo hice algo para que me sumara las filas de la columna que en este cs se lama (PRECIO). alguie me ayudar. con un ejemplo hecho porfavor .

Código:

Private Sub Suma_Click()
Dim Total As Double, i As Integer
  
    'Suma los valores de la columna de los Subitems(1)
    For i = 1 To Lv.ListItems.Count - 3
        Total = Total + CDbl(Lv.ListItems(i).SubItems(1))
    Next
       
    'Asigna el valor total
    Lv.ListItems("Total").SubItems(1) = FormatCurrency(Total, 2)
End Sub

[David]

Sólo tienes que hacer una comparación:

Código vb:

If Lv.ListItems(i).Checked Then
    ' Sumar
End If
 

[principefreddy]

listo... gracias por la acotacion. para los que estan interesados es asi..

Private Sub SumaSeleccionados_Click()
Dim Total As Double, i As Integer

For i = 1 To ListView1.ListItems.Count - 3
If ListView1.ListItems(i).Checked = True Then
Total = Total + CDbl(ListView1.ListItems(i).SubItems(1))
End If
Next

ListView1.ListItems("Total").SubItems(1) = FormatCurrency(Total, 2)
End Sub