FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 > ISheetSpanModel インタフェース : GetEnumerator メソッド |
'Declaration Function GetEnumerator( _ ByVal row As Integer, _ ByVal column As Integer, _ ByVal rowCount As Integer, _ ByVal columnCount As Integer _ ) As IEnumerator
'使用法 Dim instance As ISheetSpanModel 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)
IEnumerator GetEnumerator( int row, int column, int rowCount, int columnCount )
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