Adds a new Style object with the specified name to the collection.

Syntax

Visual Basic (Declaration)
Overloads Public Sub Add( _ ByVal name As String _ )

Visual Basic (Usage)	Copy Code
`Dim instance As StyleSheet Dim name As String instance.Add(name)`

C#
public void Add( string name )

Parameters

name: Specifies the name of the new style. Used as a key to access the style.

Example

C# Copy Code

C#	Copy Code
private void rptDataDynamics_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 void rptDataDynamics_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");

   }

}

Visual Basic Copy Code

Visual Basic	Copy Code
Private Sub rptDD_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

Private Sub rptDD_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

ActiveReports3	Request technical support
Add(String) Method
See Also Example

Syntax

Parameters

Example

See Also

Reference