CutAppend Method Example

This example:

1 Copies the entire session screen to the Clipboard.

2 Cuts and appends another copy of the entire screen to the Clipboard.

Sub Main()

 Dim Sys As Object, Sess As Object, MyScreen As Object

 

 ' Invoke the clipboard viewer

 Shell("clipbrd.exe")

 

 Set Sys = CreateObject("EXTRA.System")

 ' Assumes an open session and uses the ActiveSession

 Set Sess = Sys.ActiveSession

 Set MyScreen = Sess.Screen

 

 ' This example uses the Copy method first.

 MyScreen.SelectAll  'select the entire screen

 MyScreen.Copy 'copy the entire screen to the clipboard

 

 ' This example demonstrates the Cut method for Screen objects.

 MyScreen.SelectAll ‘select the entire screen

 MyScreen.CutAppend ‘cut the entire screen and append it to the clipboard

End Sub