Reflection Desktop VBA Guide
Attachmate.Reflection.Objects Library / Attachmate.Reflection.Objects.Productivity Library / ScreenHistory Object / CaptureScreen Method
Example
In This Topic
CaptureScreen Method
In This Topic
Captures the current host screen, including any data in non-hidden fields, and adds it to the Screen History list.
Syntax
expression.CaptureScreen()
where expression is a variable that represents a ScreenHistory Object
Remarks
If data in an unprotected field matches one or more currently enforced privacy filters, the first matching filter will replace the data in the screen capture image.

For more about the CaptureScreen method, see:

Using the Reflection Object Model

Example

This sample captures a specific screen in screen history when the screen opens. Other screens are not captured.

To run this sample, create an Ibm3270 session with the host IP address set to demo:ibm3270.sim and then paste the code into the ThisIbmScreen code window. From the VBA editor View menu, choose Immediate Window. Then enter any credentials to log in and then enter kayak. On the Session ribbon, click Screen history to see the results.

Private Sub IbmScreen_NewScreenReady(ByVal sender As Variant)
 
    Dim ScreenID As String
    Dim ScreenText As String
    
    ScreenID = "KAYAK"
    
    ScreenText = ThisIbmScreen.GetText(1, 39, 5)
    
    ThisIbmTerminal.Productivity.screenhistory.ManualCaptureOnly = True
    
    'If the screenID is on the screen, capture it
    
    If ScreenText = ScreenID Then
        Debug.Print "on the screen"
        
        ThisIbmTerminal.Productivity.screenhistory.CaptureScreen
        
    End If
 
 
End Sub
See Also

Reference

ScreenHistory Object
ScreenHistory Members

Send Feedback