SftMask/OCX 7.0 - ActiveX Masked Edit Control

Phone1 Sample (VB6)

This sample illustrates phone number entry.

This is not an executable sample, so a complete project is not provided. These statements are intended to show basic concepts and the syntax used.

Private Sub Form_Load()
    With SftMask1.Direct
        .Caption.SizePercent = 33
        .Caption.Text = "&Text:"
        .Mask = "\(###\) ###\-####"
        .Alignment = alignSftMaskLeft
        .BackColorInvalid = vbRed
        .ForeColorInvalid = vbWhite
        SftMask1.FormattedText = "Please enter a telephone number"
    End With
End Sub

Private Sub SftMask1_Change()
    If SftMask1.Contents.Valid Then
        MsgBox ("This is a valid phone number.")
    Else
        If SftMask1.Contents.Empty Then
            SftMask1.FormattedText = "Please enter a telephone number"
        Else
            SftMask1.FormattedText = ""
        End If
    End If
End Sub