Input mask

  • Thread starter Thread starter Stephen
  • Start date Start date
S

Stephen

Seasons Greetings to All!

I want to create a input mask for a textbox containing a field in a access
database. The field would be xxx-xx-xxxx . I cant figure out where to
start...
Help?
 
Stephen,

Check out the Masked Edit control,

MSMASK32.OCX

------------------------------------------------Sub InitMedDate()
With Me.medDate
'This box will hold date information.
.Mask = "##/##/##"
.Text = "12/01/99"
'The user likes bold Arial font at double the default.
'Double the size of the control to fit.
.FontName = "Arial"
.FontBold = True
.FontSize *= 2
.Height *= 2
.Width *= 2
End With
End Sub

Public Sub medDate_Enter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles medDate.Enter
'The user prefers yellow on purple for entering text.
Me.medDate.BackColor = Color.Purple
Me.medDate.ForeColor = Color.Yellow
End Sub

Public Sub medDate_Leave(ByVal sender As Object, ByVal e As
System.EventArgs) Handles medDate.Leave
'Set the colors back to the default after leaving the edit box.
Me.medDate.BackColor = Me.medDate.DefaultBackColor
Me.medDate.ForeColor = Me.medDate.DefaultForeColor
End Sub------------------------------------------------Gary
 
Back
Top