Spread ASP.NET 17
FarPoint.Web.Spread Assembly / FarPoint.Web.Spread.Model Namespace / DefaultSheetSpanModel Class / GetEnumerator Method / GetEnumerator() Method
Example


In This Topic
    GetEnumerator() Method
    In This Topic
    Gets an enumerator for iterating to the next cell span in the collection.
    Syntax
    'Declaration
     
    
    Public Overloads Overridable Function GetEnumerator() As IEnumerator
    'Usage
     
    
    Dim instance As DefaultSheetSpanModel
    Dim value As IEnumerator
     
    value = instance.GetEnumerator()
    public virtual IEnumerator GetEnumerator()

    Return Value

    IEnumerator object for enumerating through the spans
    Example
    This example adds two spans to the DataModel of the active sheet. The GetEnumerator method returns those spans to a list box.
    private void Page_Load(object sender,System.EventArgs e)
    {
    if(this.IsPostBack)return;
    
    FpSpread1.ActiveSheetView.ColumnCount=10;
    FpSpread1.ActiveSheetView.RowCount=10;
    FarPoint.Web.Spread.Model.DefaultSheetSpanModel model=(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();
    bool b1=ien.MoveNext();
    while(b1)
    {
    FarPoint.Web.Spread.Model.CellRange cr=(FarPoint.Web.Spread.Model.CellRange)ien.Current;
    ListBox1.Items.Add(cr.ToString());
    b1=ien.MoveNext();
    }
    }
    Private Sub Page_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load
    
    If(IsPostBack)Then Return
    
    Dim cr As FarPoint.Web.Spread.Model.CellRange
    Dim b1 As Boolean
    Dim ien As System.Collections.IEnumerator
    FpSpread1.ActiveSheetView.ColumnCount=10
    FpSpread1.ActiveSheetView.RowCount=10
    Dim model As FarPoint.Web.Spread.Model.DefaultSheetSpanModel=FpSpread1.ActiveSheetView.SpanModel
    model.Add(0,0,2,1)
    model.Add(0,2,3,2)
    ien=model.GetEnumerator()
    b1=ien.MoveNext()
    While(b1)
    cr=CType(ien.Current,FarPoint.Web.Spread.Model.CellRange)
    ListBox1.Items.Add(cr.ToString())
    b1=ien.MoveNext
    End While
    End Sub
    See Also