Maskara No Textbox

[Alexandre_Ribeiro]

Galera,

tem como colocar um mascara num TextBox para ele só aceitar numeros do tipo currency???

Grato,

Alexandre.

[Luiz Humberto]

O que você pode fazer é uma verificação, no evento Keypress do seu objeto Text, utlize a própria função do Visual Basic que é a IsNumeric() , função esta que retorna Boolean então caso for false(não é número) faz KeyAscii=0.

[Alexandre_Ribeiro]

OK! Funcionou legal... mas não consigo limitar o numero de decimais para no máximo dois números!!

Grato,

Alexandre.

[Luiz Humberto]

Tem como fazer isso utilizando a função Instr(), para saber qual a posição da "," e depois fazer utlize a função Len() para ver quantos numeros tem apos a "," caso for maior que dois faz KeyAscii=0.

Outra opção seria, usar a função FormatNumber() sendo o segundo paramentro da função a quantidade de casas decimais, então faz isso quando o usario terminar de digitar, ou seja faz esse tratamento no evento LostFocus(), ou onde achar melhor.

Agora fica a seu critério utilizar qual opção fica mais viável para você.

[Graymalkin]

Um ótimo controle para isso é o Input32X, que você pode baixar a partir do endereço: http://www.eoliv.com/

Abraços,

Graymalkin

[Alexandre_Ribeiro]

Muito Obrigado, Graymalkin !!!!

Era justamente isso que estava precisando!!! O Input32x é excelente e FREE !!!

Ats,

Alexandre.

[leonidov]

ola segue o codigo 

de um duplo clik na txt que quer colocar a mascara,mude o objeto testei os 2 funcionam corretamente

Private Sub txt_moeda_AfterUpdate()

txt_moeda.Text = Format(txt_moeda.Text, "Currency")

End Sub

 

Private Sub txt_moeda2_AfterUpdate()

txt_moeda2 = Format(txt_moeda2, "R$ #,##0.00")

End Sub