InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / ThemeColor Object / BackgroundColor Property
Example
In This Topic
    BackgroundColor Property (ThemeColor)
    In This Topic
    Gets text screen background color when IsBackgroundSingleColor is true.
    Syntax
    expression.BackgroundColor As Color
    where expression is a variable that represents a ThemeColor Object
    Remarks
    The get throws an exception when IsBackgroundSingleColor is false. Setting the text screen background color also sets the IsBackgroundSingleColor property to true.
    Example
    This sample changes the screen background color and saves the color in a new theme.
    Public Sub ChangeThemeBackgroundColor()
     
      
        'Declare and set a Themecolor object
        Dim color As Attachmate_Reflection_Objects_Emulation_IbmHosts.ThemeColor
        Set color = ThisIbmTerminal.Theme.ThemeColor
     
        'Set the screen Background color
        color.BackgroundColor = RGB(200, 200, 50)
     
        'Save the changes in a new theme to prevent InfoConnect from requesting to save new theme
        ThisIbmTerminal.Theme.SaveAs (Environ$("USERPROFILE") & "\Documents\Micro Focus\InfoConnect\Themes\myTheme.themex")
        
    End Sub
    See Also