SftMask/OCX 7.0 - ActiveX Masked Edit Control

Calc1 Sample (VB6)

This sample illustrates using a popup calculator.

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.Font.Name = "Times New Roman"
    SftMask1.Font.Bold = True
    SftMask1.Font.Size = 12

    SftMask1.Caption.Font.Name = "Times New Roman"
    SftMask1.Caption.Font.Bold = False
    SftMask1.Caption.Font.Size = 12

    Dim CalcObj As SftMaskLib70.SftMaskCalculator
    SftMask1.Caption.SizePercent = 33
    SftMask1.Caption.Text = "&Amount:"
    SftMask1.Mask = "| $C-,8.2"
    SftMask1.Alignment = alignSftMaskRight
    SftMask1.EntrySelect = entrySftMaskSelectEnd
    SftMask1.Text = 10
    Set CalcObj = SftMask1.Calculator
    CalcObj.Lines = 12
    CalcObj.FracDigits = 2
    CalcObj.BackColor = vbInfoBackground
    CalcObj.ForeColor = vbInfoText
    CalcObj.TotalBackColor = vbHighlight
    CalcObj.TotalForeColor = vbHighlightText

    SftMask1.SelStart = 0 ' intentionally "bad" position
    SftMask1.OptimalPosition True
End Sub