Asignar a textbox un formato especial
Buenos días
Agradezco su valiosa ayuda con lo siguiente: sobre excel hice un formulario que contiene distintos controles.
Tengo unos textbox que requiero al digitar la información me formatee de la forma: (####)####-##########
Es decir, los 4 primeros números los encierra en los paréntesis (son el código de área), los siguientes 4 dígitos se separan por medio de un "-" de los últimos 10.
Si se digitaran menos números, en los últimos 10 dígitos autocompletaria con ceros a la izquierda.
Por ejemplo: (0506)2291-0000009487
Agradezco la ayuda
Saludos
Agradezco su valiosa ayuda con lo siguiente: sobre excel hice un formulario que contiene distintos controles.
Tengo unos textbox que requiero al digitar la información me formatee de la forma: (####)####-##########
Es decir, los 4 primeros números los encierra en los paréntesis (son el código de área), los siguientes 4 dígitos se separan por medio de un "-" de los últimos 10.
Si se digitaran menos números, en los últimos 10 dígitos autocompletaria con ceros a la izquierda.
Por ejemplo: (0506)2291-0000009487
Agradezco la ayuda
Saludos
1 respuesta
Respuesta de Carlo Navarro Rojas
1
Prueba con esto:
Dim a As String, b As String, c As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
a = Mid(Text1.Text, 1, 4)
a = "(" & a & ")"
b = Mid(Text1.Text, 6, 4)
b = b & "-"
c = Mid(Text1.Text, 11, Len(Text1.Text))
Text1.Text = a & "" & b & "" & c
End If
End Sub
Al presionar enter te da el formato, cualquier cosa me cuentas suerte
Necesitas un textbox unicamente saludos
Dim a As String, b As String, c As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
a = Mid(Text1.Text, 1, 4)
a = "(" & a & ")"
b = Mid(Text1.Text, 6, 4)
b = b & "-"
c = Mid(Text1.Text, 11, Len(Text1.Text))
Text1.Text = a & "" & b & "" & c
End If
End Sub
Al presionar enter te da el formato, cualquier cosa me cuentas suerte
Necesitas un textbox unicamente saludos
