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 autocomplete.
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() Dim AutoCompleteObj As SftMaskLib70.SftMaskAutoComplete Dim CaptionObj As SftMaskLib70.SftMaskCaption Set CaptionObj = SftMask1.Caption Set AutoCompleteObj = SftMask1.AutoComplete CaptionObj.SizePercent = 33 CaptionObj.Text = "&ZIP Code:" SftMask1.Mask = "#####" SftMask1.EntrySelect = entrySftMaskSelectEndHome AutoCompleteObj.File = "-\Softelvdm\AutoComplete\SampleFile2.Suggest" AutoCompleteObj.Encrypt = False AutoCompleteObj.IgnoreCase = True AutoCompleteObj.MaxEntries = 50 AutoCompleteObj.Mode = autocompleteSftMaskSuggest End Sub Private Sub SftMask1_MatchAddCustomItems(ByVal Count As Long) ' Ready to add custom items SftMask1.AutoComplete.AddTop "ZIP-Code Lookup ...", 1 SftMask1.AutoComplete.AddTop "State Lookup ...", 2 If Count > 6 Then SftMask1.AutoComplete.AddBottom "ZIP-Code Lookup ...", 2 SftMask1.AutoComplete.AddBottom "State Lookup ...", 2 End If End Sub Private Sub SftMask1_MatchCustom(ByVal Text As String, ByVal EntryText As String, ByVal EntryType As Integer) If EntryType = 1 Then SftMask1.Rollup MsgBox ("We could be looking up ZIP codes in another application...") SftMask1.Text = "12345" End If If EntryType = 2 Then SftMask1.Rollup MsgBox ("We could be looking up states in another application...") SftMask1.AutoComplete.Refresh End If End Sub Private Sub SftMask1_Matching(ByVal Text As String, EntryText As String, Accept As Boolean) If Mid(EntryText, 1, 1) = "0" Then ' don't show any ZIP code starting with a "0" Accept = False End If End Sub