ActiveReports3 Request technical support
ForeColor Property
See Also  Example


Gets or sets the text color of the control.   

Syntax

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

Return Value

A System.Drawing.Color value that represents the color used to render the control text. 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