[RESOLVED] Sum of checked list item!

Hi Dears :wave:

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!
Attachment 143801

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

Maybe something like this:

Code:

---

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

---

oops

do this:

Code:

---

  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

---

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

Attachment 143833


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. >>>>

Mea Culpa---

here:

Code:

---

  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

---

Thank you Dear SamOscarBrown :) it work perfectly :wave: