Left Property Example

This example first resets the horizontal position of the active session, then resets the column where the area begins.

Sub Main()

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

 

 Set Sys = CreateObject("EXTRA.System")

 Set Sess = Sys.ActiveSession

 Set MyScreen = Sess.Screen

 

 ' This moves the session to the left of the screen.

 Sess.Left = 1

 

 Set MyArea = MyScreen.Area(1,1,MyScreen.Rows,1,,3)

 MsgBox "The text in column 1 is: " + MyArea.Value

 

 MyArea.Left = 2

 MyArea.Right = 2

 

 MsgBox "The test in column 2 is: " + MyArea.Value

End Sub