Function GetEnumerator() As IEnumerator

Dim instance As ISheetSelectionModel
Dim value As IEnumerator
 
value = instance.GetEnumerator()

IEnumerator GetEnumerator()

FarPoint.Web.Spread.Model.ISheetSelectionModel iss;
iss = (FarPoint.Web.Spread.Model.ISheetSelectionModel)FpSpread1.ActiveSheetView.SelectionModel;
iss.SetSelection(0, 0, 2, 2)
iss.AddSelection(3, 0, 1, 2);
IEnumerator se; 
bool b; 
FarPoint.Web.Spread.Model.CellRange cr; 
se = sel.GetEnumerator(); 
b = se.MoveNext(); 
if (b == true) 
{ 
cr = (FarPoint.Web.Spread.Model.CellRange)se.Current; 
}
string msg = "The first column in the selection is " + cr.Column.ToString();
Response.Write("<script language='javascript'>alert('" + msg + "')</script>");

Dim iss As FarPoint.Web.Spread.Model.ISheetSelectionModel
iss = FpSpread1.ActiveSheetView.SelectionModel
iss.SetSelection(0, 0, 1, 4)
iss.AddSelection(2, 0, 1, 4)
Dim se As IEnumerator
Dim b As Boolean
Dim cr As FarPoint.Web.Spread.Model.CellRange
se = iss.GetEnumerator()
b = se.MoveNext
If b = True Then
cr = se.Current
End If
Dim msg As String = "The first column in the selection is " + cr.Column.ToString()
Response.Write("<script language='javascript'>alert('" & msg & "')</script>")