|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Validações)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Formatação de números conforme digitação (semelhante a caixas automáticos de bancos)
|
![](images/box01dirsup.gif) |
|
|
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! :)
|
|
|
|
![](images/hosted.gif)
|