FarPoint.Win.Spread Assembly > FarPoint.Win.Spread Namespace > SmartPrintRulesCollection Class : GetEnumerator Method |
'Declaration Public Function GetEnumerator() As IEnumerator
'Usage 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
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8