Sample2 Sample (VB.NET)

This sample illustrates autocomplete.

The source code is located at C:\Program Files (x86)\Softelvdm\SftMask OCX 8.0\Samples\Visual Studio - VB.NET\Sample2\Form1.vb.

Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
  End
End Sub

Private Sub AxSftMaskFiles1_EllipseClicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxSftMaskFiles1.EllipseClicked
    If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
        AxSftMaskFiles1.Text = OpenFileDialog1.FileName
    End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    For Each c As Control In Controls
        Dim mask As AxSftMaskLib80.AxSftMask = TryCast(c, AxSftMaskLib80.AxSftMask)
        If mask IsNot Nothing Then
            mask.DarkMode = SftMaskLib80.SftMaskDarkModeConstants.darkSftMaskAuto ' follow the Windows dark mode setting
            mask.HighContrastMode = SftMaskLib80.SftMaskHighContrastConstants.highContrastSftMaskAuto ' follow the Windows High Contrast setting
        End If
    Next

    ' Offer city names the first time the sample runs. The "-" prefix stores the file in the user's application data folder.
    Dim cities() As String = {
        "Albuquerque", "Atlanta", "Austin", "Baltimore", "Boston", "Charlotte", "Chicago", "Dallas", "Denver", "Detroit",
        "Houston", "Las Vegas", "Los Angeles", "Miami", "Nashville", "New Orleans", "New York", "Oakland", "Ocala",
        "Oklahoma City", "Omaha", "Orange Park", "Oregon City", "Orlando", "Oxford", "Philadelphia", "Phoenix", "Portland",
        "San Diego", "San Francisco", "Seattle", "Tampa"
    }
    SeedCities(SftMask1, "-\Softelvdm\SftMask OCX 8.0\Sample2\Cities1.autocomplete", cities)
    SeedCities(SftMask2, "-\Softelvdm\SftMask OCX 8.0\Sample2\Cities2.autocomplete", cities)
    SeedCities(SftMask3, "-\Softelvdm\SftMask OCX 8.0\Sample2\Cities3.autocomplete", cities)
End Sub

Private Sub SeedCities(ByVal mask As AxSftMaskLib80.AxSftMask, ByVal file As String, ByVal cities() As String)
    mask.AutoComplete.File = file
    mask.AutoComplete.Seed(cities) ' entries already saved are left unchanged
End Sub
End Class