ActiveReports 18 .NET Edition
MESCIUS.ActiveReports Assembly / GrapeCity.ActiveReports.SectionReportModel Namespace / StyleSheet Class / Add Method / Add(String) Method
Specifies the name of the new style.  Used as a key to access the style.
Example

In This Topic
    Add(String) Method
    In This Topic
    Adds a new Style object with the specified name to the collection.
    Syntax
    'Declaration
     
    Public Overloads Sub Add( _
       ByVal name As String _
    ) 
    public void Add( 
       string name
    )

    Parameters

    name
    Specifies the name of the new style.  Used as a key to access the style.
    Example
    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())
       Me.StyleSheet("MyStyle").VerticalAlignment = VerticalTextAlignment.Middle
    
       Label1.ClassName = "MyStyle"
    
       If Me.StyleSheet.Count > 10 Then
           Me.StyleSheet.Remove("MyStyle")
       End If
    
    End Sub
    See Also