PowerTools SPREAD for Windows Forms 10.0J
Move メソッド (IRangeSupport)


切り取りを開始する行インデックス
切り取りを開始する列インデックス
セル範囲を貼り付ける行インデックス
セル範囲を貼り付ける列インデックス
移動する行の数
移動する列の数
セル範囲を切り取って、指定した位置のセル範囲に貼り付けます。
構文
'Declaration
 
Sub Move( _
   ByVal fromRow As Integer, _
   ByVal fromColumn As Integer, _
   ByVal toRow As Integer, _
   ByVal toColumn As Integer, _
   ByVal rowCount As Integer, _
   ByVal columnCount As Integer _
) 
'使用法
 
Dim instance As IRangeSupport
Dim fromRow As Integer
Dim fromColumn As Integer
Dim toRow As Integer
Dim toColumn As Integer
Dim rowCount As Integer
Dim columnCount As Integer
 
instance.Move(fromRow, fromColumn, toRow, toColumn, rowCount, columnCount)

パラメータ

fromRow
切り取りを開始する行インデックス
fromColumn
切り取りを開始する列インデックス
toRow
セル範囲を貼り付ける行インデックス
toColumn
セル範囲を貼り付ける列インデックス
rowCount
移動する行の数
columnCount
移動する列の数
次のサンプルコードは、指定した範囲から指定した位置にデータを移動します。
FarPoint.Win.Spread.Model.IRangeSupport irs;
DialogResult dlg;
Random r = new Random();
int i, j;
for (i = 0; i<=2; i++)
{
for (j = 0; j<=2; j++)
fpSpread1.ActiveSheet.SetValue(i, j, r.Next(1, 200).ToString());
}
irs = (FarPoint.Win.Spread.Model.IRangeSupport)fpSpread1.ActiveSheet.Models.Data;
dlg = MessageBox.Show("Do you want to move some data?", "Move", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
irs.Move(0, 0, 4, 0, 2, 2);
}
Dim irs As FarPoint.Win.Spread.Model.IRangeSupport
Dim dlg As DialogResult
Dim r As New Random()
Dim i, j As Integer
For i = 0 To 2
For j = 0 To 2
FpSpread1.ActiveSheet.SetValue(i, j, r.Next(1, 200).ToString())
Next j
Next i
irs = FpSpread1.ActiveSheet.Models.Data
dlg = MessageBox.Show("Do you want to move some data?", "Move", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
irs.Move(0, 0, 4, 0, 2, 2)
End If
参照

IRangeSupport インタフェース
IRangeSupport メンバ

 

 


© 2004-2017, GrapeCity inc. All rights reserved.