|
|
|

|

|
Dicas
|

|
Visual Basic (Validações)
|
|
 |
Título da Dica: Formatação de números conforme digitação (semelhante a caixas automáticos de bancos)
|
 |
|
|
Postada em 8/5/2007 por ghost_jlp
Bom, o que vou colocar aqui é semelhante ao modo em que você digita valores em caixas automáticos de bancos (ao menos do itaú é assim) em que apenas digita-se os números e automaticamente vai formatando. Cole o seguinte código no evento keypress da textbox: If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 Else If Len(Text1) > 1 Then Text1 = Replace(Text1, ",", "") Text1 = Left(Text1, Len(Text1) - 1) & "," & Right(Text1, 1) Text1 = Format(Text1, "#0.0") Text1.SelStart = Len(Text1) End If End If
até a próxima! :)
|
|
|
|

|