Textbox no formato moeda

Question

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

Answer 1

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.

Answer 2

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.

Answer 3

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