InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / ThemeCursor Object
In This Topic
    ThemeCursor Object
    In This Topic
    Cursor configuration properties for the current Theme.
    Remarks
    For more about setting Theme cursor, see Change Themes to Control Look and Feel
    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