Count Property (StyleSheet)
Returns the number of Style objects in the collection.
'Declaration
Public ReadOnly Property Count As Integer
Property Value
An integer value that represents the total number of styles in the collection.
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
