Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Theme Object / SaveAs Method
The path to the new theme.
Example
In This Topic
    SaveAs Method (Theme)
    In This Topic
    Saves the current theme contents to a file.
    Syntax
    expression.SaveAs( _
   ByVal pathName As String _
)
    where expression is a variable that represents a Theme Object

    Parameters

    pathName
    The path to the new theme.
    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 Reflection from requesting to save new theme
    ThisIbmTerminal.Theme.SaveAs (Environ$("USERPROFILE") & "\Documents\Micro Focus\Reflection\Themes\myCustomTheme.themex")
    
End Sub
    See Also

    Reference

    Theme Object
    Theme Members

    Send Feedback