Auto Text

autotext.zip (3 KB)

This class extends standard Textbox capabilities.

Features:

• Input constrains (letters, numbers, numbers and letters)
• Automatic capitals on first letter or whole text
• Usuwanie poprzedzających i kończących spacji
• Leading and trailing spaces removal
• Double spaces removal
• Full select on focus
• Select next control on return
• Select next control on maxlength limit

Usage:

Dim atName As New clsAutoText
Dim atNumber As New clsAutoText

Private Sub Form_Load()
   With atName
        Set .txt = Text1
        .AlfaConstrain = amAlfa
        .AllCapital = True
        .TrimSpace = True
        .NoDSpace = True
        .SelectOnFocus = True
        .TabOnEnter = True
    End With

    With atNumber
        Set .txt = Text2
        .AlfaConstrain = amNumeric
        .SelectOnFocus = True
        .TabOnEnter = True
    End With
End Sub