Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / 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 Reflection from requesting to save new theme
    ThisIbmTerminal.Theme.SaveAs (Environ$("USERPROFILE") & "\Documents\Micro Focus\Reflection\Themes\myTheme.themex")
    
End Sub
See Also

Reference

ThemeColor Object
ThemeColor Members

Send Feedback