Simbolos de valores

[Danleonhart]

Tem como mostrar automaticamente o simbolo da moeda (no final ou inicio, tanto faz)...

EX: Quando digitar 20, ao sair da TextBox ela automaticamente inseri ",00 e R$" no valor digitado, ficando R$ 20,00.

Imagens:

Obrigado !

[Anderson Fernandes]

Tem como mostrar automaticamente o simbolo da moeda (no final ou inicio, tanto faz)...

EX: Quando digitar 20, ao sair da TextBox ela automaticamente inseri ",00 e R$" no valor digitado, ficando R$ 20,00.

Imagens:

Obrigado !

Olá!

segue o código:

Private Sub Text1_LostFocus()
    Me.Text1 = Format(Me.Text1, "currency")
End Sub

Text1 ao perder o foco (LostFocus), formatara o valor para Moeda (currency)

t+

[Danleonhart]

Obrigado !

Deu perfeitamente certo. :D