• Home
 · 
• Miscellaneous
 · 
• Allow your users the ability to toggle the state of the text, on all controls, on your screens betw

Allow your users the ability to toggle the state of the text, on all controls, on your screens betw

Allow your users the ability to toggle the state of the text, on all controls, on your screens between Bold and Normal, and save their choose.

Rate Allow your users the ability to toggle the state of the text, on all controls, on your screens betw

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

               On Error Resume Next
                Dim ctlControl As Variant
                   For Each ctlControl In fForm.Controls
                      ctlControl.FontBold = bFontBold
                        'some controls support the FontBold property
                        'others support the Font.Bold method (such as the Status
                        'Panel, ListView, TreeView, Tab Controls, etc)
                        If ctlControl.Tag = "Special" Then
                           ctlControl.Font.Bold = bFontBold
                        End If
                   Next ctlControl
    If bFontBold = True Then
        SaveSetting "YourAppName", "Screen Settings", "Display Bold Text", "Yes"
    Else
        SaveSetting "YourAppName", "Screen Settings", "Display Bold Text", "No"
    End If
End Sub

Public Sub GetAppSettings()

Dim AppSetting As String

  AppSetting = GetSetting("YourAppName", "Screen Settings", "Display Bold Text")
		 If AppSetting = "" Or AppSetting = "No" Then
                    bSetTextToBold = False
                 Else
                    bSetTextToBold = True
                 Endif
    AppSetting = ""

In the Form Load event of each form in your project, place
		If bSetTextToBold = True Then
                   MakeBold True, Me
                Endif