FarPoint.Win.Spread.Model.ISheetSpanModel sp;
FarPoint.Win.Spread.Model.CellRange cr;
IEnumerator ie;
DialogResult dlg;
sp = (FarPoint.Win.Spread.Model.ISheetSpanModel)fpSpread1.ActiveSheet.Models.Span;
sp.Add(0, 0, 2, 2);
sp.Add(0, 3, 2, 2);
dlg = MessageBox.Show("Do you want to enumerate through the specified span??", "GetEnumerator", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
bool b;
ie = sp.GetEnumerator(0, 3, 2, 2);
b = ie.MoveNext();
if (b == true)
{
cr = (FarPoint.Win.Spread.Model.CellRange)ie.Current;
label1.Text = "The column is " + cr.Column.ToString() + " and the row is " + cr.Row;
}
}
Dim sp As FarPoint.Win.Spread.Model.ISheetSpanModel
Dim cr As FarPoint.Win.Spread.Model.CellRange
Dim ie As IEnumerator
Dim dlg As DialogResult
sp = FpSpread1.ActiveSheet.Models.Span
sp.Add(0, 0, 2, 2)
sp.Add(0, 3, 2, 2)
dlg = MessageBox.Show("Do you want to enumerate through the specified span??", "GetEnumerator", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
Dim b As Boolean
ie = sp.GetEnumerator(0, 3, 2, 2)
b = ie.MoveNext()
If b = True Then
cr = ie.Current()
Label1.Text = "The column is " & cr.Column.ToString() & " and the row is " & cr.Row
End If
End If