SftMask/OCX 7.0 - ActiveX Masked Edit Control

InputMode1 Sample (VB6)

This sample illustrates insert/overtype mode and the InputModeUpdate event.

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()
    SftMask1.Caption.Text = "Insert->"
    SftMask1.InputMode = inputSftMaskInsert
    SftMask2.Caption.Text = "Overtype->"
    SftMask2.InputMode = inputSftMaskOvertype
End Sub

Private Sub SftMask1_InputModeUpdate(ByVal InsertMode As Boolean)
    Label1.Caption = InsertMode
End Sub

Private Sub SftMask2_InputModeUpdate(ByVal InsertMode As Boolean)
    Label1.Caption = InsertMode
End Sub