|
|
|
|
|
|
|
|
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! :)
|
|
|
|
|
