Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Attachmate.Reflection.Objects.Emulation.OpenSystems 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 creates and saves a theme. The theme is applied to the session.
Public Sub CreateAndSaveTheme()
 
    'Declare and set a font object.
    Dim font As ThemeFont
    Set font = ThisTerminal.Theme.font
   
    'Declare and set a cursor object.
    Dim cursor As ThemeCursor
    Set cursor = ThisTerminal.Theme.cursor
    
    'Set AutofontSize to false to allow resizing of font.
    font.AutoFontSize = False
    font.FONTSIZE = 12
  
    'Change to a colored cursor with a faster blink rate and a vertical bar shape.
    cursor.Parent.DisplayEnhancements.ColorCursor = True
    cursor.CursorBlink = True
    cursor.CursorShape = CursorShapeOption_VerticalBar
   
    'Save the changes in a new theme to prevent Reflection from requesting to save the new theme.
    ThisTerminal.Theme.SaveAs (Environ$("USERPROFILE") & "\Documents\Micro Focus\Reflection\Themes\myNewTheme.themex")
       
End Sub
See Also

Reference

Theme Object
Theme Members

Send Feedback