[SOLUCIONADO] Sumar valores de ListBox

[bbrian]

Hola a todos, arranque hace poco con la programacion y estoy creando un programa para registrar productos con su precio.

El tema es asi yo agrego los valores a un listbox(List2), se van agregando uno abajo del otro logicamente, ej:

2
3
5
1

Quiero que aparezca en un label o textbox o lo que sea el total de los numeros osea la suma de ellos, en este caso seria 11.

Por ahora estoy usando un textbox (text3) y quiero que al presionar command2 se genere la suma de los numeros del listbox. Encontre este codigo que supuestamente funciona:

Código vb:

Private Sub Command2_Click()
Dim i As Integer
Dim total As Long
total = 0
For i = 0 To List2.ListCount - 1
total = total + Val(List2.List(i))
Next i
Text3.Text = total
End Sub
 

pero cuando le doy al command solo aparece un 0 en el text3
en que me estoy equivocando ?? necesito una solucion. GRACIAS !!!

[erbuson]

Hola:

El código funciona, quizas el error lo tienes en otro punto del programa, a lo mejor donde asignas los datos al List2. Seguro que es un error muy simple que lo tienes delante y no lo ves (como nos ocurre a veces)

Pon por ejemplo la parte del codigo donde asignas datos al List y veamos.

Saludos

[bbrian]

No me funcionaba porque yo le agregaba "$" asi aparecia antes de los numeros, al sacarle eso funciono! gracias !!