DialogResult dlg;
fpSpread1.ActiveSheet.SelectionPolicy = FarPoint.Win.Spread.Model.SelectionPolicy.MultiRange;
fpSpread1.ActiveSheet.AddSelection(0, 0, 2, 2);
fpSpread1.ActiveSheet.AddSelection(0, 3, 2, 2);
dlg = MessageBox.Show("Do you want to get one of the selections?", "GetSelection", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
FarPoint.Win.Spread.Model.CellRange[] cr;
cr = fpSpread1.ActiveSheet.GetSelections();
label1.Text = "The selection covers cells " + cr[0].Row + ", " + cr[0].Column + ", " + cr[0].RowCount + ", " + cr[0].ColumnCount;
}
Dim dlg As DialogResult
FpSpread1.ActiveSheet.SelectionPolicy = FarPoint.Win.Spread.Model.SelectionPolicy.MultiRange
FpSpread1.ActiveSheet.AddSelection(0, 0, 2, 2)
FpSpread1.ActiveSheet.AddSelection(0, 3, 2, 2)
dlg = MessageBox.Show("Do you want to get one of the selections?", "GetSelection", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
Dim cr() As FarPoint.Win.Spread.Model.CellRange
cr = FpSpread1.ActiveSheet.GetSelections()
Label1.Text = "The first selection covers cells " & cr(0).Row & ", " & cr(0).Column & ", " & cr(0).RowCount & ", " &
cr(0).ColumnCount
End If