FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > GroupInfoCollection クラス : GetEnumerator メソッド |
'Declaration Public Overridable Function GetEnumerator() As IEnumerator
'使用法 Dim instance As GroupInfoCollection Dim value As IEnumerator value = instance.GetEnumerator()
public virtual IEnumerator GetEnumerator()
fpSpread1.AllowColumnMove = true; fpSpread1.ActiveSheet.GroupBarInfo.Visible = true; fpSpread1.ActiveSheet.AllowGroup = true; FarPoint.Win.Spread.GroupInfo gi = new FarPoint.Win.Spread.GroupInfo(); gi.BackColor = Color.Yellow; FarPoint.Win.Spread.GroupInfo gi2 = new FarPoint.Win.Spread.GroupInfo(); gi2.BackColor = Color.Green; FarPoint.Win.Spread.GroupInfoCollection gic = new FarPoint.Win.Spread.GroupInfoCollection(); gic.AddRange(new FarPoint.Win.Spread.GroupInfo[] { gi, gi2 }); IEnumerator se; bool b; se = gic.GetEnumerator(); b = se.MoveNext(); if (b == true) { fpSpread1.ActiveSheet.GroupInfos.Add((FarPoint.Win.Spread.GroupInfo)se.Current); }
FpSpread1.BorderCollapse = FarPoint.Win.Spread.BorderCollapse.Separate FpSpread1.AllowColumnMove = True FpSpread1.ActiveSheet.GroupBarInfo.Visible = True FpSpread1.ActiveSheet.AllowGroup = True Dim gi As New FarPoint.Win.Spread.GroupInfo gi.BackColor = Color.Yellow Dim gi2 As New FarPoint.Win.Spread.GroupInfo gi2.BackColor = Color.Green Dim gic As New FarPoint.Win.Spread.GroupInfoCollection() Dim coll As New System.Collections.ArrayList(3) coll.AddRange(New Object() {gi, gi2}) gic.AddRange(coll) Dim gic As New FarPoint.Win.Spread.GroupInfoCollection() gic.AddRange(New FarPoint.Win.Spread.GroupInfo() {gi, gi2}) Dim se As IEnumerator Dim b As Boolean se = gic.GetEnumerator() b = se.MoveNext If b Then FpSpread1.ActiveSheet.GroupInfos.Add(se.Current) End If