Ubicar Cifras
Hola estoy haciendo un programa de ventas y necesito hacer que al ingresar cantidades de dinero en un TexBox se les agregue la puntuación de millar, es decir si escribo 1000 aparezca 1.000
Te agradecería mucho si me puedes enviar el código de como se hace o la forma en que se hace.
Saludos
Te agradecería mucho si me puedes enviar el código de como se hace o la forma en que se hace.
Saludos
1 Respuesta
Respuesta de rogersr
1
La manera más sencilla es aplicar un formato en el momento en que el TextBox pierde el Foco (Evento LostFocus). El código es:
Private Sub Text1_LostFocus()
Text1.Text = Format(Val(Text1.Text), "#,##0.0")
End Sub
Private Sub Text1_LostFocus()
Text1.Text = Format(Val(Text1.Text), "#,##0.0")
End Sub
