Programación
VB6
Máscaras en Vb6
Control MaskedBox
Este control permite el ingreso de datos personalizado, por ejemplo al escribir fechas, horas o algún otro dato que requiera un formato específico.
- Para añadir el MaskEdBox a un proyecto se debe hacerlo desde el menú Proyecto > Componentes y seleccionar el control Microsoft Masked Edit Control 6.0 de la lista de Activex
- indicar en la propiedad Format el valor: “dd/mm/yyyy”En la propiedad Mask el valor “##/##/####”
parte del código fuente para lograr este resultado es:
Private Sub Form_Load()
With MaskEdBox1
'Indicamos al MaskEdBox la máscara a utilizar y el formato
.Format = "dd/mm/yyyy"
.Mask = "##/##/####"
End With
End Sub
Private Sub MaskEdBox1_Validate(Cancel As Boolean)
If IsDate(MaskEdBox1.FormattedText) = False Then
'Opcional: podemos mostrar un mensaje
MsgBox " La Fecha no es válida ", vbCritical, " Error al ingresar la fecha "
Cancel = True
End If
End Sub
Espero les haya sido de utilidad.

No hay comentarios