Public Overloads Overrides Function GetEnumerator( _
   ByVal row As Integer, _
   ByVal column As Integer, _
   ByVal rowCount As Integer, _
   ByVal columnCount As Integer _
) As IEnumerator

Dim instance As DefaultSheetSpanModel
Dim row As Integer
Dim column As Integer
Dim rowCount As Integer
Dim columnCount As Integer
Dim value As IEnumerator
 
value = instance.GetEnumerator(row, column, rowCount, columnCount)

public override IEnumerator GetEnumerator( 
   int row,
   int column,
   int rowCount,
   int columnCount
)

privatevoidPage_Load(objectsender,System.EventArgse)
{
if(this.IsPostBack)return;

FpSpread1.ActiveSheetView.ColumnCount=10;
FpSpread1.ActiveSheetView.RowCount=10;
FarPoint.Web.Spread.Model.DefaultSheetSpanModelmodel=(FarPoint.Web.Spread.Model.DefaultSheetSpanModel)FpSpread1.ActiveSheetView.SpanModel;
model.Add(0,0,2,1);
model.Add(0,2,3,2);
System.Collections.IEnumeratorien=model.GetEnumerator(0,0,10,10);
boolb1=ien.MoveNext();
while(b1)
{
FarPoint.Web.Spread.Model.CellRangecr=(FarPoint.Web.Spread.Model.CellRange)ien.Current;
ListBox1.Items.Add(cr.ToString());
b1=ien.MoveNext();
}
}

PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load

If(IsPostBack)ThenReturn

DimcrAsFarPoint.Web.Spread.Model.CellRange
Dimb1AsBoolean
DimienAsSystem.Collections.IEnumerator
FpSpread1.ActiveSheetView.ColumnCount=10
FpSpread1.ActiveSheetView.RowCount=10
DimmodelAsFarPoint.Web.Spread.Model.DefaultSheetSpanModel=FpSpread1.ActiveSheetView.SpanModel
model.Add(0,0,2,1)
model.Add(0,2,3,2)
ien=model.GetEnumerator(0,0,10,10)
b1=ien.MoveNext()
While(b1)
cr=CType(ien.Current,FarPoint.Web.Spread.Model.CellRange)
ListBox1.Items.Add(cr.ToString())
b1=ien.MoveNext
EndWhile

EndSub