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