Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Attachmate.Reflection.Objects.Emulation.IbmHosts Library / IbmScreen Object / CopyAppend Method
Example
In This Topic
CopyAppend Method (IbmScreen)
In This Topic
Appends selected text to the end of the Clipboard.
Syntax
expression.CopyAppend()
where expression is a variable that represents a IbmScreen Object
Example
This sample selects an area on the screen and copies it to the clipboard. Then it selects another area and appends it to the copied area. You can test this sample by pasting the contents into a text editor. 
Sub CopyAndAppendScreenTextToClipboard()
 
    'Select the area to copy
    ThisIbmScreen.SetSelectionStartPos 8, 9
    
    ThisIbmScreen.ExtendSelectionRect 9, 71
    
    ThisIbmScreen.Copy
    
    'Select another area to append to the copied area
    
    ThisIbmScreen.SetSelectionStartPos 13, 9
    
    ThisIbmScreen.ExtendSelectionRect 14, 71
    
    ThisIbmScreen.CopyAppend
            
 
End Sub
See Also

Reference

IbmScreen Object
IbmScreen Members

Send Feedback