DIAdem Help

Object: SelectionItem

  • Updated2024-09-12
  • 2 minute(s) read

Object: SelectionItem

The SelectedItem object corresponds to a selection in an extended table in a user dialog box. A selection consists of several adjacent, selected table cells.

The following example displays for each selection block the number of cells, rows, or columns that are selected in the extended table XTable1 or displays whether the whole table is selected:

Dim i, lNumCol, lNumRow
If XTable1.SelectedElements.Count > 0 Then
  If XTable1.SelectedElements(1).IsTable Then
    Call MsgBoxDisp ("Entire table selected")
  End If
  For i = 1 To XTable1.SelectedElements.Count 
    If XTable1.SelectedElements(i).IsRows Then
      lNumRow = XTable1.SelectedElements(i).LastRow - XTable1.SelectedElements(i).FirstRow + 1 
      Call MsgBoxDisp (i & ", NumRow:"& lNumRow)
    ElseIf XTable1.SelectedElements(i).IsCols Then
      lNumCol = XTable1.SelectedElements(i).LastCol - XTable1.SelectedElements(i).FirstCol + 1 
      Call MsgBoxDisp (i & ", NumCol:"& lNumCol) 
    ElseIf XTable1.SelectedElements(i).IsCells Then
      lNumCol = XTable1.SelectedElements(i).LastCol - XTable1.SelectedElements(i).FirstCol + 1 
      Call MsgBoxDisp (i & ", NumCol:"& lNumCol)
      lNumRow = XTable1.SelectedElements(i).LastRow - XTable1.SelectedElements(i).FirstRow + 1 
      Call MsgBoxDisp (i & ", NumRow:"& lNumRow)
    End If
  Next          
End If

Properties

FirstCol | FirstRow | LastCol | LastRow

Methods

IsCells | IsCols | IsRows | IsTable

Returned From

Selection.Item