|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Evitando nºs e formatando no LostFocus
|
 |
|
|
|
Postada em 7/3/2007 por Vilmar Brazão
'----Evitando nºs e formatando no LostFocus----'
'Para testar crie 2 textboxes: txtValor e txtTeste. Após digitar um nº qualquer
'no txtValor, aperte <TAB>
Private Sub txtValor_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Private Sub txtValor_LostFocus()
txtValor.Text = Format$(txtValor.Text, "#,##0.00")
End Sub
|
|
|
|
|
