Style クラスは、コントロールの外観を制御するプロパティをカプセル化したものです。複数のコントロールに適用して、外観を統一させることができます。Styleプロパティは継承を使用して、カスケードすることができます。つまり、新しいスタイルを作成するときに、未設定のプロパティに親スタイルの値を継承させることができます。たとえば、"Normal" という名前のスタイルがあったとします。"NormalBold" という名前の新しいスタイルを作成し、Parentプロパティ("Normal"に設定)とFontBoldプロパティ(Trueに設定)の2つのプロパティのみを設定すると、残りのプロパティには親スタイルと同じ値が設定されます。ActiveReportsには、一連の組み込みスタイルが含まれています。これらのスタイルは StyleSheet で定義されています。
private void rptGrapeCity_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 = 10.5; 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 = 10.5 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
System.Object
GrapeCity.ActiveReports.SectionReportModel.Style