InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Screen Object / SetSelectionStartPos Method
The row in which the selection begins.
The column in which the selection begins.
Example
In This Topic
    SetSelectionStartPos Method (Screen)
    In This Topic
    Sets the starting coordinates for selecting text.
    Syntax
    expression.SetSelectionStartPos( _
       ByVal row As Integer, _
       ByVal column As Integer _
    ) 
    where expression is a variable that represents a Screen Object

    Parameters

    row
    The row in which the selection begins.
    column
    The column in which the selection begins.
    Exceptions
    ExceptionDescription
    This exception is thrown if the row or column parameters are outside the range of valid values: (1 to Rows) or (1 to Columns).
    Example
    This example sets a selection point, extends it, and copies the selected area to the clipboard.
    Sub SetAndExtendSelection()
     
        Dim rcode As ReturnCode
        
        Dim StartSel As ScreenPoint
        
        Dim EndColPoint As ScreenPoint
        Dim EndCol As Integer
        
        Dim EndRowPoint As ScreenPoint
        Dim EndRow As Integer
        
        
        Dim EndSel As ScreenPoint
        
       'Get the last column in the table
        Set EndColPoint = ThisScreen.SearchText3("Profit", 1, 1, ThisScreen.DisplayRows, ThisScreen.DisplayColumns, FindOptions_Forward)
        EndCol = EndColPoint.column + Len("Point")
     
        'Get the last row in the table
        Set EndRowPoint = ThisScreen.SearchText3("Dec", 1, 1, ThisScreen.DisplayRows, ThisScreen.DisplayColumns, FindOptions_Forward)
        EndRow = EndRowPoint.row
     
        'Get the location for the start of the selection
        Set StartSel = ThisScreen.SearchText3("Jan", 1, 1, ThisScreen.DisplayRows, ThisScreen.DisplayColumns, FindOptions_Forward)
        
     
        'Set the start of the selection
        ThisScreen.SetSelectionStartPos StartSel.row, StartSel.column
        
        'Extend the selection to the last row and column in the table
        ThisScreen.ExtendSelectionRect EndRow, EndCol
        
        'Copy the selected area to the clipboard
        rcode = ThisScreen.Copy2(CopySourceOption_Selection)
       
     
    End Sub
    See Also