FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > SmartPrintRulesCollection クラス : GetEnumerator メソッド |
'Declaration Public Function GetEnumerator() As IEnumerator
'使用法 Dim instance As SmartPrintRulesCollection Dim value As IEnumerator value = instance.GetEnumerator()
public IEnumerator GetEnumerator()
FarPoint.Win.Spread.SmartPrintRulesCollection rules = new FarPoint.Win.Spread.SmartPrintRulesCollection(); FarPoint.Win.Spread.SmartPrintRule spr; spr = new FarPoint.Win.Spread.BestFitColumnRule(FarPoint.Win.Spread.ResetOption.None); rules.Add(new FarPoint.Win.Spread.LandscapeRule(FarPoint.Win.Spread.ResetOption.None)); rules.Add(new FarPoint.Win.Spread.ScaleRule(FarPoint.Win.Spread.ResetOption.None, 1, 2, 0.5f)); rules.Add(spr); IEnumerator re; re = rules.GetEnumerator(); bool b; b = re.MoveNext(); if (b == true) { label1.Text = re.Current.ToString(); } }
Dim rules As New FarPoint.Win.Spread.SmartPrintRulesCollection Dim spr As FarPoint.Win.Spread.SmartPrintRule spr = New FarPoint.Win.Spread.BestFitColumnRule(FarPoint.Win.Spread.ResetOption.None) rules.Add(New FarPoint.Win.Spread.LandscapeRule(FarPoint.Win.Spread.ResetOption.None)) rules.Add(New FarPoint.Win.Spread.ScaleRule(FarPoint.Win.Spread.ResetOption.None, 1, 2, 0.5)) rules.Add(spr) Dim re As IEnumerator re = rules.GetEnumerator() Dim b As Boolean b = re.MoveNext() If b = True Then Label1.Text = Convert.ToString(re.Current) End If End Sub