FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 > DefaultSheetSelectionModel クラス : SetSelection メソッド |
'Declaration Public Overrides Sub SetSelection( _ ByVal row As Integer, _ ByVal column As Integer, _ ByVal rowCount As Integer, _ ByVal columnCount As Integer _ )
'使用法 Dim instance As DefaultSheetSelectionModel Dim row As Integer Dim column As Integer Dim rowCount As Integer Dim columnCount As Integer instance.SetSelection(row, column, rowCount, columnCount)
このメソッドは、アンカー(選択範囲の最初のセル)と、選択範囲に含める行数と列数を指定する場合に使用します。別の方法として、アンカー(最初のセル)とエクステント(最も遠いセル)の2つの数値を指定して選択範囲を設定することもできます。アンカーを指定するには、SetAnchorメソッド(またはAnchorRowプロパティとAnchorColumnプロパティ)を使用します。エクステントを指定するには、ExtendSelectionメソッド(またはLeadRowプロパティとLeadColumnプロパティ)を使用します。アンカーからエクステントまでの間(両者を含む)が選択範囲(セルの選択された範囲)になります。
FarPoint.Win.Spread.Model.DefaultSheetSelectionModel ds = new FarPoint.Win.Spread.Model.DefaultSheetSelectionModel();
ds.SelectionPolicy = FarPoint.Win.Spread.Model.SelectionPolicy.MultiRange;
ds.SelectionUnit = FarPoint.Win.Spread.Model.SelectionUnit.Cell;
fpSpread1.ActiveSheet.Models.Selection = ds;
ds.SetSelection(0, 0, 2, 2);
ds.AddSelection(3, 0, 2, 2);
FarPoint.Win.Spread.Model.CellRange[] cr;
cr = ds.GetSelections(10, 5);
MessageBox.Show(cr[0].ColumnCount.ToString());
Dim ds As New FarPoint.Win.Spread.Model.DefaultSheetSelectionModel ds.SelectionPolicy = FarPoint.Win.Spread.Model.SelectionPolicy.MultiRange ds.SelectionUnit = FarPoint.Win.Spread.Model.SelectionUnit.Cell FpSpread1.ActiveSheet.Models.Selection = ds ds.SetSelection(0, 0, 2, 2) ds.AddSelection(3, 0, 2, 2) Dim cr As FarPoint.Win.Spread.Model.CellRange() cr = ds.GetSelections(10, 5) MessageBox.Show(cr(0).ColumnCount.ToString())