none
text y combo box

    Pregunta

  • en visual 6.0 tengo un problema, es cuando selecciono un elemento de una lista de un combobox quisiera que en un text se fueran  acomulando valores
    es decir son tres combobox los cuales entre tres opciones tienen que sumarse en un text box, y e logrado que me aparescan los valores en el text de cada uno de los elementos del combo solo que no he podido sumarlos, sera necesario poner un acumulador, contador a por cierto estoy usando case
    jueves, 10 de diciembre de 2009 14:18

Respuestas

  • hola

    pero estas programando en vb6 o vb.net ?

    lo pregunto porque esta lista es de vb.net, por ahi deberias preguntar en Lenguaje VB 5/6

    igualmente como consejo te diria que los valores que selecciones en los combos debes aplicarles un cast para poder sumarlos por ahi usando el CInt()
    y luego si aplicar la suma


    Dim valor As String = CStr(CInt(valcombo1) + CInt(valcombo1) + CInt(valcombo1))

    por ahi algo como esto podria servir, por supuesto hay que adaptarlo


    saludos
    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    jueves, 10 de diciembre de 2009 15:37

Todas las respuestas

  • hola

    pero estas programando en vb6 o vb.net ?

    lo pregunto porque esta lista es de vb.net, por ahi deberias preguntar en Lenguaje VB 5/6

    igualmente como consejo te diria que los valores que selecciones en los combos debes aplicarles un cast para poder sumarlos por ahi usando el CInt()
    y luego si aplicar la suma


    Dim valor As String = CStr(CInt(valcombo1) + CInt(valcombo1) + CInt(valcombo1))

    por ahi algo como esto podria servir, por supuesto hay que adaptarlo


    saludos
    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    jueves, 10 de diciembre de 2009 15:37
  • si sumando te refieres a cantidades pues has una suma concatenada de los valores en una variable, y luego mandalo a textbox

    declara la variable como double en caso que tengas o uses decimales, sino simplemente integer ( dim suma as integer)

    luego en tu en tu combobox dale doble clicl y pega este codigo (nota para los tres combobox as lo mismo)

    suma= suma + val (combobox1.text)
    textbox1.text=suma

    para el otro combobox

    suma= suma + val (combobox2.text)
    textbox1.text=suma


    y para el otro

    suma= suma + val (combobox3.text)
    textbox1.text=suma



    y si no kieres hacer tanto puedes manejar como funcion y mandarla a llamar

    si te fue de utilidad  no olvides marcar como respuesta, saludos
    jueves, 10 de diciembre de 2009 16:22
  • Hola  como estas bueno quisas te ayude esto pero en todo caso Leandro te puede ayudar es muy buena persona 
    hasta pronto amigos 

    Public Class Form1
        Dim Rosa As Integer = 2300
        Dim Tulipan As Integer = 200
        Dim Rayito_de_sol As Integer = 800
        Dim Menta As Integer = 500
        Dim Clavel As Integer = 700
        Dim Tierra_de_hoja As Integer = 300
        Dim Guano As Integer = 250

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ComboBox1.Items.Add("Rosa")
            ComboBox1.Items.Add("Tulipan")
            ComboBox1.Items.Add("Rayito_de_sol")
            ComboBox1.Items.Add("Menta")
            ComboBox1.Items.Add("Clavel")
            ComboBox1.Items.Add("Tierra_de_hoja")
            ComboBox1.Items.Add("Guano")

            ComboBox2.Items.Add("Rosa")
            ComboBox2.Items.Add("Tulipan")
            ComboBox2.Items.Add("Rayito_de_sol")
            ComboBox2.Items.Add("Menta")
            ComboBox2.Items.Add("Clavel")
            ComboBox2.Items.Add("Tierra_de_hoja")
            ComboBox2.Items.Add("Guano")


            ComboBox3.Items.Add("Rosa")
            ComboBox3.Items.Add("Tulipan")
            ComboBox3.Items.Add("Rayito_de_sol")
            ComboBox3.Items.Add("Menta")
            ComboBox3.Items.Add("Clavel")
            ComboBox3.Items.Add("Tierra_de_hoja")
            ComboBox3.Items.Add("Guano")


        End Sub

        Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
            On Error Resume Next
            Select Case ComboBox1.SelectedIndex
                Case 0
                    TextBox1.Text = Rosa
                Case 1
                    TextBox1.Text = Tulipan
                Case 2
                    TextBox1.Text = Rayito_de_sol
                Case 3
                    TextBox1.Text = Menta
                Case 4
                    TextBox1.Text = Clavel
                Case 5
                    TextBox1.Text = Tierra_de_hoja
                Case 6
                    TextBox1.Text = Guano

     

     

            End Select
        End Sub

        Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
            On Error Resume Next
            Select Case ComboBox2.SelectedIndex
                Case 0
                    TextBox2.Text = Rosa
                Case 1
                    TextBox2.Text = Tulipan
                Case 2
                    TextBox2.Text = Rayito_de_sol
                Case 3
                    TextBox2.Text = Menta
                Case 4
                    TextBox2.Text = Clavel
                Case 5
                    TextBox2.Text = Tierra_de_hoja
                Case 6
                    TextBox2.Text = Guano
            End Select
        End Sub

        Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
            On Error Resume Next
            Select Case ComboBox3.SelectedIndex
                Case 0
                    TextBox3.Text = Rosa
                Case 1
                    TextBox3.Text = Tulipan
                Case 2
                    TextBox3.Text = Rayito_de_sol
                Case 3
                    TextBox3.Text = Menta
                Case 4
                    TextBox3.Text = Clavel
                Case 5
                    TextBox3.Text = Tierra_de_hoja
                Case 6
                    TextBox3.Text = Guano
            End Select

        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)

        End Sub
    End Class
     

    jueves, 10 de diciembre de 2009 16:36