InfoConnect VBA Guide
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\InfoConnect\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