where expression is a variable that represents a IbmScreen Object
Parameters
- row
- The row in which the selection begins.
- column
- The column in which the selection begins.
Exception | Description |
---|---|
ArgumentOutOfRangeException | This exception is thrown if the row or column parameters are outside the range of valid values: (1 to Rows) or (1 to Columns). |
Private Sub SelectScreenArea() Dim screenRegionIbm As ScreenRegion 'Select the text area ThisIbmScreen.SetSelectionStartPos 5, 5 ThisIbmScreen.ExtendSelection 21, 21 'Get the selected screen region Set screenRegionIbm = ThisIbmScreen.selection MsgBox ("Start Row = " & screenRegionIbm.StartRow & ", End Column = " & screenRegionIbm.EndColumn) End Sub