FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > SheetView クラス : GetSelection メソッド |
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.GetSelection(1); label1.Text = "The selection covers cells " + cr.Row + ", " + cr.Column + ", " + cr.RowCount + ", " + cr.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.GetSelection(1) Label1.Text = "The selection covers cells " & cr.Row & ", " & cr.Column & ", " & cr.RowCount & ", " & cr.ColumnCount End If