ActiveReports3 Request technical support
FontName Property
See Also  Example


Gets or sets the Font.Name property of the control.  Null if the property is inherited from the Style parent or not to be set on the control.

Syntax

Visual Basic (Declaration) 
Public Property FontName As Object
Visual Basic (Usage)Copy Code
Dim instance As Style
Dim value As Object
 
instance.FontName = value
 
value = instance.FontName
C# 
public object FontName {get; set;}

Return Value

The name of the font that should be used to render the control text.

Example

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");
   }
}
Visual BasicCopy 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

See Also