Getting the sum of the items in a lstBox

Question

Hello all, I have an annoying issue I can't figure out. I have several numbers in a lstBox that I want to return on a lblTotal. I am using a For...Next type statement. For intCount = 0 To lstCost.Items.Count - 1 Next I've made some attemp by using : 'lblTotal.Text = (+lstCost.Items(intCount).ToString()) ' lblTotal.Text = +declstCost.ToString(intCount).ToString But I cant figure it out.

Answer 1

This should work:

lblTotal.Text = "0"
For intCount = 0 To lstCost.Items.Count - 1
    lblTotal.Text += +lstCost.Items(intCount)
Next

But if you add the ‘Option Strict On’ line to the beginning of your file to make more reliable programs, then consider this alternative too:

Dim sum As Integer = 0
For Each item In lstCost.Items
    Dim n As Integer
    If Integer.TryParse(item.ToString, n) Then sum += n
Next
lblTotal.Text = sum.ToString

or something like this:

lblTotal.Text = lstCost.Items.Cast(Of Object) _
    .Sum(Function(item)
                Dim n As Integer
                Integer.TryParse(item.ToString, n)
                Return n
            End Function).ToString

Answer 2

the first one worked perfectly, would you be so kind to explain how I can show that total as a currency w/ decimal?

Answer 3

sum is not declared error

Answer 4

How can I follow you, you've been very helpful. Are you able to explain certain information when I need help? I am taking my first programming class that revolves around Visual Studio/basics

Answer 5

    decTotalCost = intNumDays * decLocationFee + decRegistrationFee
    lstCost.Items.Add(decTotalCost).ToString("c")

mt lstCost is not displaying the numbers as ("c") or decimal, any thoughts?