TEXTBOX COM FORMATO DINHEIRO

PABLOMOREIRAGV 16/07/2010 11:21:43
#347535
Alguém pode me ajudar, informando como faço para formatar um textbox que está incorporado em um planilha para o formato (R$ 00.000,00) dinheiro. Desde já agradeço.
CAIO.FR.SP 16/07/2010 11:33:24
#347538
coloque isso no evento lostfocus do text
text1.text = format(text1.text,[Ô]currency[Ô])
PABLOMOREIRAGV 16/07/2010 12:40:02
#347551
Ótimo deu certo! Muito obrigado! Mas não tem como deixá-lo no formato em que enquanto a pessoa digita ele vai tomando forma?
CAIO.FR.SP 19/07/2010 17:17:19
#347781
coloca isso no evento keyup do text entao

if trim(text1.text) <> [Ô][Ô] and not isnumeric(text1.text) then exit sub
text1.text = format(text1.text,[Ô]currency[Ô])
PABLOMOREIRAGV 20/07/2010 09:26:58
#347865
Está no formatado dinheiro, porém só consigo inserir um dígito e fica travado e não consigo digitar mais nada
JAMESBOND007 20/07/2010 09:36:50
#347867 Resposta escolhida 
Text1 = Format(CCur(Text1),[Ô]###,###,##0.00[Ô])
TECLA 20/07/2010 09:38:26
#347869
CAIO.FR.SP 20/07/2010 09:41:13
#347870
if trim(text1.text) = [Ô][Ô] then exit sub
if not isnumeric(text1.text) then
text1.text = format(ccur(text1.text),[Ô]currency[Ô])
else
text1.text = format(text1.text,[Ô]currency[Ô])
endif

tente assim
PABLOMOREIRAGV 20/07/2010 09:46:13
#347873
Não está aparecendo o R$, e tentei em vários eventos e não deu certo, a forma de quando você digitando o número ele vai tomando formato de dinheiro como em datas, horas, CPF...etc.
Obrigado
PABLOMOREIRAGV 20/07/2010 09:49:55
#347876
CAIO_FR_SP,

Está com o mesmo problema do outro código que vc me passou, só pega o formato de dinheiro mas só aceita um dígito e nada mais. Tentei no evento Keypress e nada também.Coloca ele para executar e veja

Obrigado
ROBIU 20/07/2010 13:05:26
#347919
Tópico encerrado , respostas não são mais permitidas
Voltar