Calculating a listbox? Help..

[jamestuck]

Hi i have a list box that gets items added to it, the items that are added are numbers. Once i have finished adding the numbers i need a function to total the listbox numbers up.

Please note i need this to work in any number of items within the list box.

Thanks for all you help.

James

[Vlatko]

Private Function listsum(list As ListBox)
Dim i As Integer
Dim sum As Long
For i = 0 To list.ListCount
sum = sum + Val(list.list(i))
Next i
listsum = sum
End Function

Usage

dim sum as long
sum = listsum(list1)

[jamestuck]

Hi sorry could you write it in a command button for me im not sure what usage etc is?

Thanks

Private Sub cmd1_Click()
what goes in here?
End Sub

[Vlatko]

Total newbie, a. No problem. Put this into the general section of the code.

Private Function listsum(list As ListBox)
Dim i As Integer
Dim sum As Long
For i = 0 To list.ListCount
sum = sum + Val(list.list(i))
Next i
listsum = sum
End Function

Under button click event

Private Sub cmd1_Click() 
dim sum as long
sum = listsum(nameofyourlistbox)
End Sub

[Vlatko]

Or if you don't want to use a function:

Private Sub cmd1_Click() 
Dim i As Integer
Dim sum As Long
For i = 0 To list.ListCount
sum = sum + Val(list.list(i))
Next i
'sum contains sum
End Sub

[jamestuck]

Thats great i was totalling the list every time something was added to not not all in one go. Your a star!!! I love VB and i have only been learning it at university a week!!!

James