SUBTRA?ÃO AUTOMATICO
Pessoa, peço até desculpa pela dúvida, mais me deu em branco, como faço para subtrair valores automático nos textbox. Exemplo Tenho 3 caixa de texto txtvaloriginal, txtdevolvido e txtpendente.
txtvaloriginal = 100
txtdevolvido = 90
txtpendente = 10 [Ô]esse texto teria que ficar atualizando automático, caso colocasse 80 em txtdevolviso já mostrasse o valor 20[Ô]
Desde já agradeço
txtvaloriginal = 100
txtdevolvido = 90
txtpendente = 10 [Ô]esse texto teria que ficar atualizando automático, caso colocasse 80 em txtdevolviso já mostrasse o valor 20[Ô]
Desde já agradeço
jogue na propiedade Validate dos txts a conta exemplo:
Private Sub txtvaloriginal _Validate()
txtpendente = txtvaloriginal - txtdevolvido
End Sub
Private Sub txtpendente _Validate()
txtpendente = txtvaloriginal - txtdevolvido
End Sub
Private Sub txtdevolvido _Validate()
txtpendente = txtvaloriginal - txtdevolvido
End Sub
Private Sub txtvaloriginal _Validate()
txtpendente = txtvaloriginal - txtdevolvido
End Sub
Private Sub txtpendente _Validate()
txtpendente = txtvaloriginal - txtdevolvido
End Sub
Private Sub txtdevolvido _Validate()
txtpendente = txtvaloriginal - txtdevolvido
End Sub
Olá Luiz obrigado, mais fiz o teste mais só funciona quando clico dentro da caixa de texto, ele não está pegando o valor automático.
Este é um exemplo de com se faz.
Usar aquilo que é apropriado para tal subtração.
O que adianta conhecer a verdade.
[Ô]E conhecereis a verdade, e a verdade vos libertará. João 8:32[Ô].
Se não aceita ela.
Conhecereis a verdade,eeeee aceite.
[txt-color=#e80000]II CorÃntios CapÃtulo : 3[/txt-color]
Usar aquilo que é apropriado para tal subtração.
O que adianta conhecer a verdade.
[Ô]E conhecereis a verdade, e a verdade vos libertará. João 8:32[Ô].
Se não aceita ela.
Conhecereis a verdade,eeeee aceite.
[txt-color=#e80000]II CorÃntios CapÃtulo : 3[/txt-color]
Falhou
Private Sub Text2_Change()
Dim i As Integer, y As Integer
If Trim(Text1.Text) = [Ô][Ô] Then
Exit Sub
ElseIf Trim(Text2.Text = [Ô][Ô]) Then
Exit Sub
Else
i = Text1.Text
y = Text2.Text
Text3.Text = i - y
End If
Private Sub Text2_Change()
Dim i As Integer, y As Integer
If Trim(Text1.Text) = [Ô][Ô] Then
Exit Sub
ElseIf Trim(Text2.Text = [Ô][Ô]) Then
Exit Sub
Else
i = Text1.Text
y = Text2.Text
Text3.Text = i - y
End If
Obrigado pessoal pelos exemplos postado, todos os exemplos funcionam, mais só atualizar o valor quando a caixa de texto ganha o recebe focus, precisaria que ela atualizasse sem receber focus, porque em txtvaloriginal já vem com um valor que será puxado da base de dados e txtpendente vou informar que será igual a txtvaloriginal na inicialização do formulário e quando digitar na txtDevolvida automática mente já diminuir em txtPendente.
Este exemplo não é quando ganha o focus e sim no change.
Quanto a ser preenchido o valor do [txt-color=#e80000]txtvaloriginal[/txt-color],
isto se faz através de um Select na tabela.
De onde vem o valor de[txt-color=#e80000] txtdevolvido. [/txt-color]
Quanto a ser preenchido o valor do [txt-color=#e80000]txtvaloriginal[/txt-color],
isto se faz através de um Select na tabela.
De onde vem o valor de[txt-color=#e80000] txtdevolvido. [/txt-color]
Olá OMAR, o valor do txtDevolvido vai ser manual. Esse exemplo e para o sistema para Lavanderia, exemplo o cliente leva 100 peças de roupas para lavar, é lançado a entrada de peças no sistema, quando o cliente volta para recolher as roupas lavado, pode ser que a lavanderia não conseguiu lavar todas as peças no mesmo dia, é gerada uma nota de saÃda de peças onde o cliente das 100 peças só vai levar 80 e 20 ficou pendente na lavanderia, o cliente assina esse nota com as 80 e no dia seguinte ele volta novamente para recolher as 20 que faltou. Segue tela de exemplo.
eu faço usando o leave do textbox
jogo o resultado da operação em uma variavel e atribuo o valor da variavel ao textbox que quero dar o display
assim quando eu der leave do segundo textbox o terceiro exibirá o resultado
jogo o resultado da operação em uma variavel e atribuo o valor da variavel ao textbox que quero dar o display
assim quando eu der leave do segundo textbox o terceiro exibirá o resultado
Foi o que entendi.
Vai ter que preencher [txt-color=#e80000]txtdevolvido,[/txt-color]
com uma consulta sql.E é esta a forma de como faz.
Esta com dificuldade para fazer este preenchimento?
XLEGENDARY
como fazer isto.
leave do textbox
Vai ter que tomar muito café e chá de camomila.
Vai ter que preencher [txt-color=#e80000]txtdevolvido,[/txt-color]
com uma consulta sql.E é esta a forma de como faz.
Esta com dificuldade para fazer este preenchimento?
XLEGENDARY
como fazer isto.
leave do textbox
Vai ter que tomar muito café e chá de camomila.
usando a propriedade leave
se colocar nela que ocorra algum evento ao você sair do textbox seja por {tab} ou por click do mouse com o leave irá fazer a função
exemplo
int a,b;
int soma;
a = 10;
b = 10;
soma = a + b;
private void txtdevolvido_Leave(object sender, EventArgs e)
{
txtpendente.text = soma;
}
// edit
claro que no caso acima é só uma base, teria que converter o textbox pra inteiro no exemplo acima pois o string não receberá o valor do inteiro
mas a conversão todos ja sabem..
se colocar nela que ocorra algum evento ao você sair do textbox seja por {tab} ou por click do mouse com o leave irá fazer a função
exemplo
int a,b;
int soma;
a = 10;
b = 10;
soma = a + b;
private void txtdevolvido_Leave(object sender, EventArgs e)
{
txtpendente.text = soma;
}
// edit
claro que no caso acima é só uma base, teria que converter o textbox pra inteiro no exemplo acima pois o string não receberá o valor do inteiro
mas a conversão todos ja sabem..
Tópico encerrado , respostas não são mais permitidas