none
Textbox no formato moeda RRS feed

  • Pergunta

  • alguem pode me ajudar com o seguinte

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    
            Dim resultadoa As Double
            Dim x As Integer
    
            For x = 0 To ListBox1.Items.Count - 1
                resultadoa = resultadoa + CDbl(ListBox1.Items(x))
            Next
            TextBox2.Text = Format(resultadoa, "C")
    
            Dim resultadob As Double
            Dim y As Integer
            For y = 0 To ListBox2.Items.Count - 1
                resultadob = resultadob + CDbl(ListBox2.Items(y))
            Next
            TextBox3.Text = Format(resultadob, "C")
    
            Dim soma As Integer
            soma = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text)
            TextBox5.Text = Format(soma, "C")
            Dim subtracao As Integer
            subtracao = Val(TextBox5.Text) - Val(TextBox1.Text)
            TextBox6.Text = Format(subtracao, "C")
    
        End Sub

    nao consigo com que apareca os valores na textbox5 e textbox6

    o que tem de errado

    segunda-feira, 26 de dezembro de 2016 21:42

Respostas

  • Bom dia Maiconph, altere essa parte do código e veja se funciona:

    Dim soma As Integer
    soma = Val(cdbl(TextBox1.Text)) + Val(cdbl(TextBox2.Text)) + Val(cdbl(TextBox3.Text)) + Val(cdbl(TextBox4.Text))
    TextBox5.Text = Format(soma, "C")
    Dim subtracao As Integer
    subtracao = Val(cdbl(TextBox5.Text)) - Val(cdbl(TextBox1.Text))
    TextBox6.Text = Format(subtracao, "C")
    ps.: só coloquei uma conversão nos 'textbox' para double.

    terça-feira, 27 de dezembro de 2016 12:55

Todas as Respostas

  • Bom dia Maiconph,

    Obrigado pela participação no Fórum MSDN.

    Por gentileza, tente executar fazendo o debug para verificar o que está ocorrendo.


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 27 de dezembro de 2016 11:32
    Moderador
  • Bom dia Maiconph, altere essa parte do código e veja se funciona:

    Dim soma As Integer
    soma = Val(cdbl(TextBox1.Text)) + Val(cdbl(TextBox2.Text)) + Val(cdbl(TextBox3.Text)) + Val(cdbl(TextBox4.Text))
    TextBox5.Text = Format(soma, "C")
    Dim subtracao As Integer
    subtracao = Val(cdbl(TextBox5.Text)) - Val(cdbl(TextBox1.Text))
    TextBox6.Text = Format(subtracao, "C")
    ps.: só coloquei uma conversão nos 'textbox' para double.

    terça-feira, 27 de dezembro de 2016 12:55
  • Bom dia Maiconph, altere essa parte do código e veja se funciona:

    Dim soma As Integer
    soma = Val(cdbl(TextBox1.Text)) + Val(cdbl(TextBox2.Text)) + Val(cdbl(TextBox3.Text)) + Val(cdbl(TextBox4.Text))
    TextBox5.Text = Format(soma, "C")
    Dim subtracao As Integer
    subtracao = Val(cdbl(TextBox5.Text)) - Val(cdbl(TextBox1.Text))
    TextBox6.Text = Format(subtracao, "C")
    ps.: só coloquei uma conversão nos 'textbox' para double.

    nossa me ajudou emto estou a dias quebrando a kbc com isso era extamente o que eu precisava "cdbl"

    Muito Obrigado

    quarta-feira, 28 de dezembro de 2016 22:59