Reflection Desktop VBA Guide
Attachmate.Reflection.Objects Library / Attachmate.Reflection.Objects.Productivity Library / ScreenHistory Object
In This Topic
ScreenHistory Object
In This Topic
Implementation of the Screen History, a Productivity feature.
Remarks
Screen History stores read-only images of previously viewed host screens, which you can navigate to or select from a list. You can also set and retrieve configuration items for this feature.
Example
This example captures a screen and saves it in a screen history file.
Sub CaptureAScreenAndSave()
    
    Dim shistory As ScreenHistory
    Dim rcode As ReturnCode
    Dim filename As String
    
    'Check or set the file name for the screen
    filename = InputBox("Save current screen image to:", , Environ("USERPROFILE") & "\Documents\Micro Focus\Reflection\Screen.rshx")
    
    'Get the history object and capture a screen
    Set shistory = ThisIbmTerminal.Productivity.ScreenHistory
    shistory.CaptureScreen
    
    'Save the screen to a screen history file
    rcode = shistory.SaveScreenHistoryFile(filename, True)
    
    'Clear the screen history and close the screen history panel
    shistory.ClearAllScreens
 
End Sub
See Also