InfoConnect VBA Guide
Attachmate.Reflection.Objects.Productivity Library / ScreenHistory Object / OpenScreenHistoryFile Method
The name of the file to load screen history from.
If true, clears current contents first before loading from the file. If false, file contents are appended to the screen list.
Example
In This Topic
    OpenScreenHistoryFile Method
    In This Topic
    Loads a screen history file into the session document.
    Syntax
    expression.OpenScreenHistoryFile( _
   ByVal path As String, _
   ByVal overwrite As Boolean _
) As ReturnCode
    where expression is a variable that represents a ScreenHistory Object

    Parameters

    path
    The name of the file to load screen history from.
    overwrite
    If true, clears current contents first before loading from the file. If false, file contents are appended to the screen list.

    Return Value

    One of the following ReturnCode values:
    Member Description
    Cancelled Cancelled.
    Error Error.
    PermissionRequired Permission is required.
    Success Success.
    Timeout Timeout condition.
    Truncated The text is truncated.
    Example
    This example opens a screen history file and shows the last screen in the screen history.
    Sub OpenScreenHistoryAndShowLastScreen()
    Dim rcode As ReturnCode
    Dim lastScreen As Integer
    
    Dim path As String
    path = Environ("USERPROFILE") & "\Documents\Micro Focus\InfoConnect\test.rshx"
    
    Dim history As ScreenHistory
    Set history = ThisIbmTerminal.Productivity.ScreenHistory
 
    'Clear the screen history and wait for the screens to clear
    history.ClearAllScreens
    ThisIbmScreen.Wait (2000)
    
    'Open the screen history panel
    history.ScreenHistoryPanelVisible = True
    
    'Open a screen history file
    history.OpenScreenHistoryFile path, True
        
    'Show the last screen in the list
    lastScreen = history.Index
    history.ShowScreen lastScreen
    
End Sub
    See Also

    Reference

    ScreenHistory Object
    ScreenHistory Members

    Send Feedback