SftMask/OCX 7.0 - ActiveX Masked Edit Control

Phone2 Sample (VB.NET)

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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    AxSftMask1.Mask = "(!0###!!) !1###!!\-!2####!!"
    AxSftMask1.Caption.Text = "&Phone Number: "
    AxSftMask1.Caption.SizePercent = 40
    AxSftMask1.Caption.Alignment = SftMaskAlignConstants.alignSftMaskRight
    AxSftMask1.Caption.Position = SftMaskPositionConstants.positionSftMaskLeft
    AxSftMask1.Caption.VerticalAlignment = SftMaskVerticalAlignConstants.valignSftMaskBaseline
    AxSftMask1.AutoSize = True
    AxSftMask1.Text = "9415058600"
    MsgBox("The area code is " & AxSftMask1.Contents.Value(0))
    MsgBox("The exchange is " & AxSftMask1.Contents.Value(1))
    MsgBox("The last 4 digits are " & AxSftMask1.Contents.Value(2))
    AxSftMask1.Contents.Value(2) = "8555"
End Sub