FORMATAR MOEDA AO DIGITAR NO KEYPRESS

DIONISIO 18/05/2015 09:35:49
#446717
Bom dia a todos, por favor alguem pode me ajudar?
Tenho um Form no Desktop no Visual Studio 2008 tenho varios textbox com valores eu queria quando fosse digitando ja ir editando como moeda, tem como fazer com codigo dentro do Keypress? alguem pode me ajudar|?
TUNUSAT 18/05/2015 13:37:38
#446727
DIONISIO,


Basicamente é isto:
txtExemplo.Text = Format(txtExemplo.Text, [Ô]#,##0.00;(#,##0.00)[Ô])

ou
txtExemplo.Text = Format(txtExemplo.Text, [Ô]Currency[Ô])

Mas precisa tratar no caso de ser vazio ou não ser número
If InStr([Ô]0123456789[Ô], Chr(KeyAscii)) = 0 nd KeyAscii <> 8 Then KeyAscii = 0


Por favor, veja:

-------------------------------------------------------------------
(Resolvido) formato moeda e casas decimais
http://www.scriptbrasil.com.br/forum/topic/143181-resolvido-formato-moeda-e-casas-decimais/
-------------------------------------------------------------------
CRIANDO UM FORMAT MASCARA PARA O ASP
http://www.vbmania.com.br/index.php?modulo=detalhe&id=9142
-------------------------------------------------------------------
Formatar número com duas casas decimais no VB6
https://social.msdn.microsoft.com/Forums/pt-BR/93436bf3-724d-47a2-a3ba-3a66e0f57e29/formatar-nmero-com-duas-casas-decimais-no-vb6?forum=vsvbasicpt
-------------------------------------------------------------------
FORMATAR NUMERARIO
http://www.vbmania.com.br/index.php?modulo=detalhe&id=8967
-------------------------------------------------------------------
Formatar dados dos campos em moeda
http://comunidade.itlab.com.br/eve/forums/a/tpc/f/331603531/m/518605631
-------------------------------------------------------------------

[][ô]s,
Tunusat.
FILMAN 18/05/2015 23:13:02
#446751
Tente isso:

http://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=445949&pagina=1
OMAR2011 19/05/2015 09:02:59
#446757
Filman,o mais indicado é este.
http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=397393
Visto que é Vb6.
FILMAN 02/06/2015 19:20:36
#447331
Obrigado OMAR
FILMAN 10/08/2015 16:32:04
#449789
Se o problema foi resolvido, por favor encerre o tópico!
Caso o mesmo ainda persista interaja com os usuários do fórum para que possamos ver se conseguimos lhe ajudar com o problema.
Faça seu login para responder
Voltar