[RESOLVED] Sum of checked list item!

[Mahmood Khaleel Pira]

Hi Dears

I need your help
I want to collect (Sum) the amount of selected items from the list view to TextBox (or label). my code does not work.
This is my code:
**********************
Dim i, A
A = 0
For i = 1 To ListView1.SelectedItem.Checked = True
A = A + ListView1.ListItems(i).SubItems(2)
Next
Text5.Text = A
***********************
Please Help!

[SamOscarBrown]

loop through the entire listview, and IF an item is checked, then do your summation.

[SamOscarBrown]

Maybe something like this:

Dim I as Integer, A as Integer
 A = 0
 For i = 1 To ListView1.listitems.count
     if listview1.SelectedItem.Checked = True then                         
           A = A + ListView1.ListItems(i).SubItems(2)
     end if
 Next
 Text5.Text = A

[SamOscarBrown]

oops

do this:

   Dim lvwItem As ListItem, A As Integer
   For Each lvwItem In ListView1.ListItems
        If lvwItem.Checked = True Then
            A = A + ListView1.ListItems(1).SubItems(2)
        End If
   Next lvwItem
Text5.Text = A

[Mahmood Khaleel Pira]

Dear SamOscarBrown Thank you for this code but it does not work. when i check any item, only the first item will show in text5




I changed the code to

Dim lvwItem As ListItem, A As Integer
For Each lvwItem In ListView1.ListItems()
If lvwItem.Checked = True Then
A = A + ListView1.ListItems(lvwItem).SubItems(2)
End If
Next lvwItem
Text5.Text = A

<<< But still this not work. >>>>

[SamOscarBrown]

Mea Culpa---

here:

   Dim i As Integer, A As Integer
        
            For i = 1 To ListView1.ListItems.Count
                 If ListView1.ListItems(i).Checked = True Then
                      A = A + ListView1.ListItems(i).SubItems(2)
                 End If
            Next I
Text5.text = A

[Mahmood Khaleel Pira]

Thank you Dear SamOscarBrown it work perfectly