Máscara moeda.

30/05/2010

Boa noite. Gostaria de saber se alguém pode me ajudar a fazer uma função que no textbox de um form, que quando um usuário digitasse o valor (moeda) aparecesse a virgula e os pontos gradativamente. Utilizo o visual basic 2008.   Grato,   Cláudio

Cláudio Freitas

Respostas

30/05/2010

Marcio

Cláudio,

Para ficar mais claro a sua pergunta.É Windows Form ou Web Form?

Responder Citar

30/05/2010

Cláudio Freitas

Márcio boa noite. Esqueci de informar, mas é Windows Form. Pode me ajudar?   Grato,   Cláudio.
Responder Citar

31/05/2010

Marcio

Cara,

Achei isso aqui, que deve te ajudar:


http://www.codeproject.com/KB/edit/currency_textbox_c__form.aspx


Responder Citar

31/05/2010

Jardel Sobrinho

A devexpress tem 60 componentes gratuitos, são muito bons. Dentre eles, tem um textbox numérico. De uma olhada nesse link http://www.devexpress.com/Products/Free/WebRegistration60/. Eu instalei aqui e funcionou beleza.
Responder Citar

31/05/2010

Cláudio Freitas

Márcio não estou conseguindo acessar o endereço que me passou. Jardel acesso o site mas não estou conseguindo acessar o componente pra fazer download, inclusive fiz o cadastro no site. Tem alguma coisa faltando pra que eu possa acessa-lo? Muito obrigado aos dois pela ajuda até o momento.
Responder Citar

31/05/2010

Jardel Sobrinho

Ao fazer o registro, você deve receber um email com  o link para o download.
Responder Citar

31/05/2010

Jardel Sobrinho

Clique no link abaixo:https://www.devexpress.com/ClientCenter/ 
Depois digite seu usuário e senha e poder ter acesso aos componentes para download.
Responder Citar

31/05/2010

Cláudio Freitas

Jardel consegui fazer meu login e estou baixando o IDETools, o textbox está nesse pacote?   Grato.
Responder Citar

31/05/2010

Netasper

Usa o MaskedTextBox.Mask
Responder Citar

31/05/2010

Netasper

Para o usuário digitar só números, Copie este código Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case vbKeyDelete Case vbKeyBack Case 48 To 57 Case Else Beep KeyAscii = 0 End Select End Sub Uma máscara para estilo moeda em reias Dim valor1 as single Text1.Text = Format(valor1 , "R$ #.#0; $#.#0") Espero ter ajudado
Responder Citar

31/05/2010

Cláudio Freitas

Jardel, consegui. Excelente os componentes. Muito obrigado pela dica.   abraço.
Responder Citar

31/05/2010

Cláudio Freitas

NetAsper obrigado pela contribuição também. Vou utilizar. Grato.
Responder Citar

31/05/2010

Cláudio Freitas

Pessoal como sou novo no forum. Tenho que fechar essa solicitação? Se sim como devo proceder?   Grato a todos que contribuiram.
Responder Citar