Spread Windows Forms 8.0 Product Documentation
Copy Method (IRangeSupport)
Example 


Row index from which to begin copying
Column index from which to begin copying
Row index at which to paste the cell range
Column index at which to paste the cell range
Number of rows to copy
Number of columns to copy
Copies a range of cells and pastes it into a range of cells at the specified location.
Syntax
'Declaration
 
Sub Copy( _
   ByVal fromRow As Integer, _
   ByVal fromColumn As Integer, _
   ByVal toRow As Integer, _
   ByVal toColumn As Integer, _
   ByVal rowCount As Integer, _
   ByVal columnCount As Integer _
) 
'Usage
 
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.Copy(fromRow, fromColumn, toRow, toColumn, rowCount, columnCount)
void Copy( 
   int fromRow,
   int fromColumn,
   int toRow,
   int toColumn,
   int rowCount,
   int columnCount
)

Parameters

fromRow
Row index from which to begin copying
fromColumn
Column index from which to begin copying
toRow
Row index at which to paste the cell range
toColumn
Column index at which to paste the cell range
rowCount
Number of rows to copy
columnCount
Number of columns to copy
Example
This example copies the data from the specified range to the specified location.
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 copy some data?", "Copy", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
irs.Copy(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 copy some data?", "Copy", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
irs.Copy(0, 0, 4, 0, 2, 2)
End If
Requirements

Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8

See Also

Reference

IRangeSupport Interface
IRangeSupport Members

 

 


Copyright © GrapeCity, inc. All rights reserved.