ActiveReports3 Request technical support
FontUnderline Property
See Also  Example


Gets or sets the Font.Underline property of the control.

Syntax

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

Return Value

A Boolean value. True if the control font should be set to underline; False otherwise.  Null if the property is inherited from the Style parent or not to be set on the control.

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