FarPoint.Win.Spread Assembly > FarPoint.Win.Spread.Model Namespace > IRangeSupport Interface : Copy Method |
'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 _ )
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
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8