PowerTools SPREAD for Windows Forms 8.0J
CopyTo メソッド (ExcelSparklineGroup)


ICollectionの要素のコピー先となる1次元のSystem.ArraySystem.Arrayには0ベースインデックスが必要です。
コピーを開始する、arrayの0から始まるインデックス。
ICollectionの要素を、System.Arrayの特定のSystem.Arrayインデックスからコピーします。
構文
'Declaration
 
Public Sub CopyTo( _
   ByVal array() As ISparkline, _
   ByVal arrayIndex As Integer _
) 
'使用法
 
Dim instance As ExcelSparklineGroup
Dim array() As ISparkline
Dim arrayIndex As Integer
 
instance.CopyTo(array, arrayIndex)
public void CopyTo( 
   ISparkline[] array,
   int arrayIndex
)

パラメータ

array
ICollectionの要素のコピー先となる1次元のSystem.ArraySystem.Arrayには0ベースインデックスが必要です。
arrayIndex
コピーを開始する、arrayの0から始まるインデックス。
例外
例外説明
System.ArgumentNullExceptionarrayがNullです。
System.ArgumentOutOfRangeExceptionarrayIndexは0以下です。
System.ArgumentExceptionarrayが多次元であるか、arrayIndexarrayの長さ以上の値であるか、ソース ICollection内の要素の数が、arrayIndexからコピー先のarrayの終点の間に収まる数を超えています。または、ISparkline の型を、コピー先のarrayの型に自動的にキャストできません。
次のサンプルコードは、スパークラインの作成とコピーを行います。
fpSpread1.Sheets[0].SetClip(0, 0, 1, 5, "1\t2\t3\t4\t5");
fpSpread1.Sheets[0].SetClip(1, 0, 1, 5, "5\t4\t3\t2\t1");
fpSpread1.Sheets[0].SetClip(2, 0, 1, 5, "1\t2\t3\t2\t1");

FarPoint.Win.Spread.ExcelSparkline es = new FarPoint.Win.Spread.ExcelSparkline(0, 6, fpSpread1.Sheets[0], new FarPoint.Win.Spread.Model.CellRange(0, 0, 1, 5));
FarPoint.Win.Spread.ExcelSparkline es1 = new FarPoint.Win.Spread.ExcelSparkline(1, 6, fpSpread1.Sheets[0], new FarPoint.Win.Spread.Model.CellRange(1, 0, 1, 5));
FarPoint.Win.Spread.ExcelSparkline es2 = new FarPoint.Win.Spread.ExcelSparkline(2, 6, fpSpread1.Sheets[0], new FarPoint.Win.Spread.Model.CellRange(2, 0, 1, 5));

FarPoint.Win.Spread.ExcelSparklineGroup esg = new FarPoint.Win.Spread.ExcelSparklineGroup(new FarPoint.Win.Spread.ExcelSparklineSetting(), FarPoint.Win.Spread.SparklineType.Column);

esg.Add(es);
esg.Add(es1);
esg.Add(es2);
esg.Clear();
fpSpread1.Sheets[0].SparklineContainer.Add(esg);

FarPoint.Win.Spread.ISparkline[] dest = new FarPoint.Win.Spread.ISparkline[3];
int startIndex = 0;
esg.CopyTo(dest, startIndex);

FarPoint.Win.Spread.ExcelSparkline esl;
FarPoint.Win.Spread.ExcelSparkline esl1;
for (int i = 0; i < 3; i++)
{
    esl = (FarPoint.Win.Spread.ExcelSparkline)esg[i];
    esl1 = (FarPoint.Win.Spread.ExcelSparkline)dest[i];
    listBox1.Items.Add(esl.Row.ToString());
    listBox1.Items.Add(esl1.Row.ToString());
    listBox1.Items.Add(esl.Column.ToString());
    listBox1.Items.Add(esl1.Column.ToString());
    listBox1.Items.Add(esl.Formula.ToString());
    listBox1.Items.Add(esl1.Formula.ToString());
}
FpSpread1.Sheets(0).SetClip(0, 0, 1, 5, "1" + Chr(9) + "2" + Chr(9) + "3" + Chr(9) + "4" + Chr(9) + "5")
FpSpread1.Sheets(0).SetClip(1, 0, 1, 5, "5" + Chr(9) + "4" + Chr(9) + "3" + Chr(9) + "2" + Chr(9) + "1")
FpSpread1.Sheets(0).SetClip(2, 0, 1, 5, "1" + Chr(9) + "2" + Chr(9) + "3" + Chr(9) + "2" + Chr(9) + "1")

Dim es As New FarPoint.Win.Spread.ExcelSparkline(0, 6, FpSpread1.Sheets(0), New FarPoint.Win.Spread.Model.CellRange(0, 0, 1, 5))
Dim es1 As New FarPoint.Win.Spread.ExcelSparkline(1, 6, FpSpread1.Sheets(0), New FarPoint.Win.Spread.Model.CellRange(1, 0, 1, 5))
Dim es2 As New FarPoint.Win.Spread.ExcelSparkline(2, 6, FpSpread1.Sheets(0), New FarPoint.Win.Spread.Model.CellRange(2, 0, 1, 5))

Dim esg As New FarPoint.Win.Spread.ExcelSparklineGroup(New FarPoint.Win.Spread.ExcelSparklineSetting(), FarPoint.Win.Spread.SparklineType.Column)

esg.Add(es)
esg.Add(es1)
esg.Add(es2)
esg.Clear()
FpSpread1.Sheets(0).SparklineContainer.Add(esg)

Dim dest As FarPoint.Win.Spread.ISparkline() = New FarPoint.Win.Spread.ISparkline(2) {}
Dim startIndex As Integer = 0
esg.CopyTo(dest, startIndex)

Dim esl As FarPoint.Win.Spread.ExcelSparkline
Dim esl1 As FarPoint.Win.Spread.ExcelSparkline
For i As Integer = 0 To 2
    esl = DirectCast(esg(i), FarPoint.Win.Spread.ExcelSparkline)
    esl1 = DirectCast(dest(i), FarPoint.Win.Spread.ExcelSparkline)
    listBox1.Items.Add(esl.Row.ToString())
    listBox1.Items.Add(esl1.Row.ToString())
    listBox1.Items.Add(esl.Column.ToString())
    listBox1.Items.Add(esl1.Column.ToString())
    listBox1.Items.Add(esl.Formula.ToString())
    listBox1.Items.Add(esl1.Formula.ToString())
Next
参照

ExcelSparklineGroup クラス
ExcelSparklineGroup メンバ

 

 


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