SftTree/DLL 7.5 - Tree Control
SftBox/OCX 5.0 - Combo Box Control
SftButton/OCX 3.0 - Button Control
SftMask/OCX 7.0 - Masked Edit Control
SftTabs/OCX 6.5 - Tab Control (VB6 only)
SftTree/OCX 7.5 - Tree Control
SftPrintPreview/DLL 2.0 - Print Preview Control (discontinued)
SftTree/DLL 7.5 - Tree Control
SftBox/OCX 5.0 - Combo Box Control
SftButton/OCX 3.0 - Button Control
SftDirectory 3.5 - File/Folder Control (discontinued)
SftMask/OCX 7.0 - Masked Edit Control
SftOptions 1.0 - Registry/INI Control (discontinued)
SftPrintPreview/OCX 1.0 - Print Preview Control (discontinued)
SftTabs/OCX 6.5 - Tab Control (VB6 only)
SftTree/OCX 7.5 - Tree Control
SftTabs/NET 6.0 - Tab Control (discontinued)
SftTree/NET 2.0 - Tree Control
This sample illustrates a popup calendar with validation.
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.Mask = "$D" SftMask1.Alignment = alignSftMaskLeft ' edit control SftMask1.EditStyle = editSftMaskCalendarDropDown SftMask1.AutoAdvance = True SftMask1.TabAdvance = True SftMask1.AllowEmpty = False SftMask1.MessageTitle = "Sample" SftMask1.MessageEmpty = "Please enter a date" SftMask1.MessageInvalid = "Please enter a valid date" SftMask1.AutoSize = True SftMask1.Calendar.CircleToday = True SftMask1.Calendar.WeekNumbers = True SftMask1.Calendar.FirstDate = #1/1/2000# SftMask1.Calendar.LastDate = #12/31/2020# SftMask1.Calendar.ShowToday = True SftMask1.Caption.Text = "&Ship Date" SftMask1.Caption.Alignment = alignSftMaskCenter SftMask1.Caption.Position = positionSftMaskTop SftMask1.Caption.BackColor = vbHighlight SftMask1.Caption.ForeColor = vbHighlightText SftMask1.Contents.DateTime = #1/1/2007# End Sub Private Sub SftMask1_UpdateMonth(ByVal Dt As Date) SftMask1.Calendar.BoldDate = #1/2/2007# SftMask1.Calendar.BoldDate = #1/9/2007# SftMask1.Calendar.BoldDate = #1/16/2007# SftMask1.Calendar.BoldDate = #1/23/2007# SftMask1.Calendar.BoldDate = #1/30/2007# End Sub ' Button Click Event Private Sub Command1_Click() Dim test As Boolean test = SftMask1.Contents.ValidMsg End Sub