Sample3 Sample (VB.NET)

This sample illustrates captions.

All properties are defined at design-time using the Property Dialogs, except the dark mode and high contrast settings.

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

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

    SftMaskDate.Contents.DateTime = Now
End Sub

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