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


入り変えを開始する行インデックス
交換を開始するための列インデックス
交換先の範囲の行インデックス
交換先の範囲の列インデックス
交換する行数
交換する列数
指定した2つのセル範囲の位置を交換します。
構文
'Declaration
 
Sub Swap( _
   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.Swap(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<=4; i++)
{
for (j = 0; j<=4; 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 swap some data?", "Swap", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
irs.Swap(0, 0, 2, 2, 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 4
For j = 0 To 4
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 swap some data?", "Swap", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
irs.Swap(0, 0, 2, 2, 2, 2)
End If
参照

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

 

 


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