GrapeCity.ActiveReports.v9 Assembly > GrapeCity.ActiveReports.SectionReportModel Namespace > StyleSheet Class : Count Property |
'Declaration Public ReadOnly Property Count As System.Integer
public System.int Count {get;}
private void SectionReport1_ReportStart(object sender, System.EventArgs eArgs) { this.StyleSheet.Add("MyStyle"); this.StyleSheet["MyStyle"].Alignment = TextAlignment.Center; this.StyleSheet["MyStyle"].BackColor = System.Drawing.Color.White; this.StyleSheet["MyStyle"].FontBold = true; this.StyleSheet["MyStyle"].FontItalic = false; this.StyleSheet["MyStyle"].FontName = "Arial"; this.StyleSheet["MyStyle"].FontSize = null; this.StyleSheet["MyStyle"].FontStrikeThrough = false; this.StyleSheet["MyStyle"].FontUnderline = false; this.StyleSheet["MyStyle"].ForeColor = System.Drawing.Color.YellowGreen; Console.WriteLine(this.StyleSheet["MyStyle"].Name.ToString()); Console.WriteLine(this.StyleSheet["MyStyle"].Value.ToString()); this.StyleSheet["MyStyle"].VerticalAlignment = VerticalTextAlignment.Middle; Label1.ClassName = "MyStyle"; if (this.StyleSheet.Count > 10) { this.StyleSheet.Remove("MyStyle"); } }
Private Sub SectionReport1_ReportStart(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.ReportStart Me.StyleSheet.Add("MyStyle") Me.StyleSheet("MyStyle").Alignment = TextAlignment.Center Me.StyleSheet("MyStyle").BackColor = System.Drawing.Color.White Me.StyleSheet("MyStyle").FontBold = True Me.StyleSheet("MyStyle").FontItalic = False Me.StyleSheet("MyStyle").FontName = "Arial" Me.StyleSheet("MyStyle").FontSize = Nothing Me.StyleSheet("MyStyle").FontStrikeThrough = False Me.StyleSheet("MyStyle").FontUnderline = False Me.StyleSheet("MyStyle").ForeColor = System.Drawing.Color.YellowGreen Console.WriteLine(Me.StyleSheet("MyStyle").Name.ToString()) Console.WriteLine(Me.StyleSheet("MyStyle").Value.ToString()) Console.WriteLine("contains " & Me.StyleSheet.Count.ToString & " stylesheets") Me.StyleSheet("MyStyle").VerticalAlignment = VerticalTextAlignment.Middle Label1.ClassName = "MyStyle" If Me.StyleSheet.Count > 10 Then Me.StyleSheet.Remove("MyStyle") End If End Sub
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2