Reflection Desktop VBA Guide
Attachmate.Reflection.Objects Library / Attachmate.Reflection.Objects.Productivity Library / ScreenHistory Object / ScreenHistoryPanelVisible Property
Example
In This Topic
    ScreenHistoryPanelVisible Property
    In This Topic
    Gets or sets a value indicating whether the visible state of the dockable Screen History panel is visible.
    Syntax
    expression.ScreenHistoryPanelVisible As Boolean
    where expression is a variable that represents a ScreenHistory Object
    Example
    This example opens a screen history file and shows the last screen in the screen history. It also displays the Screen History Panel. 
    Sub OpenScreenHistoryAndShowLastScreen()
    Dim rcode As ReturnCode
    Dim lastScreen As Integer
    
    Dim path As String
    path = Environ("USERPROFILE") & "\Documents\Micro Focus\Reflection\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