Marche
19 de Enero del 2004

Se pueden sumar los items de un listbox?. Como?

sdemingo
19 de Enero del 2004

Hola,

Te mando un ejemplo
Create un proyecto con un botón y con un list

Private Sub Command1_Click()

Dim suma As Double
Dim i As Integer

For i = 0 To Me.List1.ListCount - 1
suma = suma + CDbl(Me.List1.List(i))
Next i

MsgBox "La Suma de todos los elementos del List es: " & suma

End Sub

Private Sub Form_Load()

Me.List1.AddItem "6787"
Me.List1.AddItem "234"
Me.List1.AddItem "45"
Me.List1.AddItem "23"
Me.List1.AddItem "4567"

End Sub

Saludos
sdemingo