InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Theme Object
In This Topic
    Theme Object
    In This Topic
    Theme object represents a visual theme in the application.
    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