Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores

Hola, soy nuevo en esto de la programación y tengo un problema con un programa que estoy creando.
El programa es para un restaurante y me falta un codigo para que:
Los números que esten dentro de un listbox se sumen y aparezcan dentro de un textbox. o sea:
[Dentro del listbox van estos numeros: 1 - 2 - 3.] y quiero que esos números se sumen y aparezcan en el textbox. A ver si me pueden ayudar y si no se puede con que otra cosa parecida se podría?.

Hola Smoke, probá si podes con esto:

Dim lineas As Long: Dim suma As Long
For lineas = 0 To List1.ListCount - 1
suma = suma + Val(List1.List(lineas))
Next
Text1 = suma

Salu2 d Dessa

Gracias, eso me sirvió, pero si el resultado tiene que ser con decimales? . Probé con la Variable "as currency y as single" perono funcionan.
Perdon por la molestia

Hola,con el codigo que te dijo dessa para tener decimales podes usar el FormatNumber,y indicarle los decimales que queres,en este caso 2,algo asi:

y le cambie la variable a Double,si pones en el listbox por ejemplo 50.30 y 50.40 te tira resultado = 100,70

saludos.

__________________
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein

Gracias, intente con eso, pero lo unico que hace es poner los decimales en el resultado, no sumarlos desde el list. A lo que voy es que se sumen los numeros dentro del list pero numeros con decimales, por ej: (1,50 + 2,50). En este caso el código que vos me diste redondea el resultado...
Gracias.

Listo ya solucioné el problema, muchas gracias por su ayuda

bueno ps si te sirve de algo usa CDBL

Dim lineas As Long: Dim suma As double
For lineas = 0 To List1.ListCount - 1
suma = suma + CDbl(List1.List(lineas))
Next
Text1 = suma

__________________
"Yo solo se que entre mas creo saber mas dudas tengo" Pero eso es lo hermoso del conocimiento "El Aprehender"

Y si kiero ke un boton ejecute esa operacion(suma de elementos) y lo mande a un text box como demonios se hace soy novaton gracias

No se si te has percatado, pero has reactivado un post con mas de dos años de antigüedad, creo que si tienes mas dudas sería mejor que abrieras uno nuevo.

De todos modos y ya que estamos aquí, lo único que debes hacer es copiar el código expuesto en el evento Click del Boton y cambiar los nombres de los objetos por los que a ti te convengan.

Mas fácil, imposible.

__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...