InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Theme Object / ThemeColor Property
Example
In This Topic
    ThemeColor Property (Theme)
    In This Topic
    Gets the color map object associated with the theme.
    Syntax
    expression.ThemeColor As ThemeColor object 
    where expression is a variable that represents a Theme Object

    Property Value

    ThemeColor Object.
    Example
    This example changes the existing theme and saves it as a new theme.
    Public Sub ChangeTheme()
     
        'Declare and set a Themecursor object
        Dim cursor As Attachmate_Reflection_Objects_Emulation_IbmHosts.ThemeCursor
        Set cursor = ThisIbmTerminal.Theme.cursor
        'Make the ruler line visible and set the type to crosshair
        cursor.RulerCursorVisible = True
        cursor.RulerCursorType = RulerCursorTypeOption_Crosshair
      
        '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(0, 0, 0)
     
        '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\myCustomTheme.themex")
        
    End Sub
    See Also