Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/04/2014, 22:21
bbrian
 
Fecha de Ingreso: enero-2010
Mensajes: 400
Antigüedad: 14 años, 3 meses
Puntos: 6
Sumar valores de ListBox

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:
Ver original
  1. Private Sub Command2_Click()
  2. Dim i As Integer
  3. Dim total As Long
  4. total = 0
  5. For i = 0 To List2.ListCount - 1
  6. total = total + Val(List2.List(i))
  7. Next i
  8. Text3.Text = total
  9. End Sub

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