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