none
Como puedo sumar los items selecionados en un listbox para poner el total en un textbox. RRS feed

  • Pregunta

  •  Dim dblTotal As Double
            Dim dblPizza As Double
            Dim dblBurger As Double
            Dim dblSalad As Double
            Dim dblLarge As Double
            Dim dblMedium As Decimal
            Dim dblHotDog As Double
            Dim dblSmall As Decimal
            Dim dblCookies As Decimal

            If lstOrden.SelectedItem = "Pizza slide ($2.50)" Then
                dblPizza = 2.5 + dblTotal
            End If
            If lstOrden.SelectedItem = "Burger ($1.75)" Then
                dblBurger = 1.75 + dblTotal
            End If
            If lstOrden.SelectedItem = "Salad ($1.90)" Then
                dblSalad = 1.9
            End If
            If lstOrden.SelectedItem = "Large Soda ($1.20)" Then
                dblLarge = 1.2
            End If
            If lstOrden.SelectedItem = "Medium Soda ($0.90)" Then
                dblMedium = 0.9
            End If
            If lstOrden.SelectedItem = "Hot Dog ($1.50)" Then
                dblHotDog = 1.5
            End If
            If lstOrden.SelectedItem = "Small Soda ($0.85)" Then
                dblSmall = 0.85
            End If
            If lstOrden.SelectedItem = "Cookies ($0.99)" Then
                dblCookies = 0.99
            End If
    jueves, 12 de diciembre de 2019 20:39

Todas las respuestas

  • Hola Ruben Centeno Roman

     

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma,  te  recomiendo probar el siguiente código

     

     
    Dim dblTotal As Double
            Dim dblPizza As Double
            Dim dblBurger As Double
            Dim dblSalad As Double
            Dim dblLarge As Double
            Dim dblMedium As Decimal
            Dim dblHotDog As Double
            Dim dblSmall As Decimal
            Dim dblCookies As Decimal
    
            If lstOrden.SelectedItem = "Pizza slide ($2.50)" Then
                dblPizza = 2.5 + dblTotal
            End If
    'Dentro del if coloca el textbox para que este se pase al mismo
    
    por ejemplo: txtTOTAL = lstOrden
    

     

    Gracias por usar los foros de MSDN.

     

    Pablo Rubio

     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

     

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

     

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    • Propuesto como respuesta Pablo Rubio jueves, 19 de diciembre de 2019 18:43
    viernes, 13 de diciembre de 2019 18:14