SOMAR E FORMATAR

ROGERIOAZEVEDO 15/03/2012 17:03:58
#397233
Boa tarde.

Desculpe se coloquei o post no lugar errado. Sou novo no forum e novo no VB tb .

Eu tenho uma planilha no excel que faz alguns calculos de gratificação. Decidi fazer uma aplicação para fazer esses calculos, Estou usando o VS2010. A minha dúvida é a seguinte:

Textbox1 - Campo Digitável
Textbox2 - Campo Digitável
Textbox3 - Campo Digitável

Textbox4 - Soma dos campos acima.

Gostaria que enquanto o número estivesse sendo digitado ele fosse colocado no formado moeda, mas sem o simbolo de R$, formatei da seguinte forma: Textbox4.Text = Double.Parse(Textbox4.Text).ToString([Ô]C[Ô]).

Tendo preenchido o Textbox1 com o valor 90.000,00 e precionar TAB, para mudar para o proximo field o valor to Textbox1 deveria ser lançado no total Textbox4.

Ao digitar a segunda informação no valor de 90.000,00 no Textbox2 o valor de 180.000,00 deveria aparecer no Texbox4. Que seria a soma dos Texbox 1, 2 e 3. Mesmo o 3 estando ainda zerado.

Do modo que eu fiz, não está funfanfo a formatação enquanto digito, e somente está fazendo a soma quando os 3 Texbox estão preenchidos. Alguem pode me dar uma luz? Abraços.
ROGERIOAZEVEDO 16/03/2012 09:58:49
#397283
Alguem???
LUCASVAZ 16/03/2012 10:06:08
#397284
Se possível, poste seu códio para analisarmos!
LUCASVAZ 16/03/2012 10:42:56
#397288
Fiz algo bem básico, veja se é está a idéia que você esta querendo nos passar.

Att

Lucas
ROBIU 16/03/2012 11:00:18
#397292 Resposta escolhida
Faz a sub assim e deixa no formulário mesmo (Class NomeForm)

 Sub Somar()
        If TextBox1.Text = [Ô][Ô] Then TextBox1.Text = 0
        If TextBox2.Text = [Ô][Ô] Then TextBox2.Text = 0
        If TextBox3.Text = [Ô][Ô] Then TextBox3.Text = 0
        TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
        TextBox4.Text = Double.Parse(TextBox4.Text).ToString([Ô]C[Ô])
    End Sub


nos TextBoxs:

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        Somar()
    End Sub

       Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
        Somar()
    End Sub

    Private Sub TextBox3_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.LostFocus
        Somar()
    End Sub
ROGERIOAZEVEDO 16/03/2012 11:59:53
#397305
Muito obrigado mesmo ao Lucas e ao Roberto.

Era exatamente isso que eu precisava. Com as informações que vocês me passaram consegui montar em cima do meu código. Faltou apenas um detalhe, que ainda não descobri como fazer, os valores que estou trabalhando não são reais (R$) mas sim Dolares (U$) existe algum tipo de formatação que mostre apenas os valores na formatação de moda? tipo 98.000,00 sem o simbolo. Abraços
LUCASVAZ 16/03/2012 12:02:47
#397307
no meu projeto, o valor no campo de resultado não mostra o simbolo...
Se não for isso, acho que não entendi sua ultima questão, poderia explicar um pouco melhor por favor?
ROGERIOAZEVEDO 16/03/2012 12:03:27
#397308
Acho que descobri, coloquei assim e aparentemente funcionou.

Textbox1.Text = Format(Textbox1.Text, [Ô]Standard[Ô])
Tópico encerrado , respostas não são mais permitidas
Voltar