Formato textbox

Quería sabar como hacer para dar formato a lo que se digita en los texbox
Por ejemplo si es un un numero 323325 se vea como 325.325.00 y que si es fecha me de la posibilidad de que las divisiones por / estén determinadas así:
/ /

1 Respuesta

Respuesta
1
La manera más sencilla sería controlar el Evento LostFocus del TextBox, es decir cuando el Usuario ha terminado de escribir y se desplaza a otro control dentro del Form, por ejemplo con la tecla Tab.
El código es:
Private Sub Text1_LostFocus()
If IsDate(Text1.Text) Then
Text1.Text = Format(Text1.Text, "dd//mm//yyyy")
ElseIf Val(Text1.Text) > 0 Then
Text1.Text = Format(Val(Text1.Text), "#,##0.00")
End If
End Sub
Valida el contenido del TextBox, si es una fecha cambia el formato, si es un valor aplica el formato determinado. Debes tener en cuenta el cuál es el separador de miles y decimales para el formato de número.
Si tienes dudas me avisas sin finalizar la pregunta. Si todo está bien pues listo.
Suerte !
Rogers R.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas