'Declaration Public Function GetEnumerator() As IEnumerator
'Usage Dim instance As SmartPrintRulesCollection Dim value As IEnumerator value = instance.GetEnumerator()
public IEnumerator GetEnumerator()
'Declaration Public Function GetEnumerator() As IEnumerator
'Usage Dim instance As SmartPrintRulesCollection Dim value As IEnumerator value = instance.GetEnumerator()
public IEnumerator GetEnumerator()
FarPoint.Web.Spread.SmartPrintRulesCollection rules = new FarPoint.Web.Spread.SmartPrintRulesCollection(); FarPoint.Web.Spread.SmartPrintRule spr; spr = new FarPoint.Web.Spread.BestFitColumnRule(FarPoint.Web.Spread.ResetOption.None); rules.Add(new FarPoint.Web.Spread.LandscapeRule(FarPoint.Web.Spread.ResetOption.None)); rules.Add(new FarPoint.Web.Spread.ScaleRule(FarPoint.Web.Spread.ResetOption.None, 1, 2, 0.5f)); rules.Add(spr); IEnumerator re; re = rules.GetEnumerator(); bool b; b = re.MoveNext(); if ((b == true)) { string msg = re.Current.ToString(); Response.Write(("<script language=\'javascript\'>alert(\'" + (msg + "\')</script>"))); }
Dim rules As New FarPoint.Web.Spread.SmartPrintRulesCollection Dim spr As FarPoint.Web.Spread.SmartPrintRule spr = New FarPoint.Web.Spread.BestFitColumnRule(FarPoint.Web.Spread.ResetOption.None) rules.Add(New FarPoint.Web.Spread.LandscapeRule(FarPoint.Web.Spread.ResetOption.None)) rules.Add(New FarPoint.Web.Spread.ScaleRule(FarPoint.Web.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 Dim msg As String = re.Current.ToString() Response.Write("<script language='javascript'>alert('" & msg & "')</script>") End If