Este código lo uso para simular una mascara de entrada para fechas a medida que voy ingresando los números me agrega la barra (/) la propiedad MaxLength debería ser = 10, se puede mejorar validando los datos para días, meses y años.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1) = 2 Then
Text1 = Text1 & "/"
Text1.SelStart = Len(Text1)
ElseIf Len(Text1) = 5 Then
Text1 = Text1 & "/"
Text1.SelStart = Len(Text1)
End If
End Sub
Posted
sáb, sep 18 1999 20:27
by
Maverick