次のサンプルコードは、"AlternatingColumnsDefaultCellStyle"と"ColumnsDefaultCellStyle"を実装する方法を示します。フォームが読み込まれるとき、
GcMultiRowに
Templateを1つ追加します。この
Templateは、アプリケーションが起動された後、奇数番目の列に"ColumnsDefaultCellStyle"を設定し、偶数番目の列に"AlternatingColumnsDefaultCellStyle"を設定します。"AlternatingColumnsDefaultCellStyle"または"ColumnsDefaultCellStyle"を変更する場合は、
GcMultiRow.NamedCellStylesの対応する項目を変更するだけで済みます。そうすると、新しい
CellStyleが適用されます。このサンプルコードは、
NamedCellStyleクラスに示されている詳細なコード例の一部を抜粋したものです。
void setSecondNamedCellStyle_Click(object sender, EventArgs e)
{
CellStyle alternatingColumnsDefaultCellStyle = new CellStyle();
alternatingColumnsDefaultCellStyle.BackColor = Color.Orange;
alternatingColumnsDefaultCellStyle.ForeColor = Color.Black;
alternatingColumnsDefaultCellStyle.NullValue = "Text";
//Change the "AlternatingColumnsDefaultCellStyle"
this.gcMultiRow1.NamedCellStyles["AlternatingColumnsDefaultCellStyle"] = alternatingColumnsDefaultCellStyle;
CellStyle columnsDefaultCellStyle = new CellStyle();
columnsDefaultCellStyle.GradientColors = new Color[] { Color.Orange, Color.Lime };
columnsDefaultCellStyle.GradientDirection = GradientDirection.Center;
columnsDefaultCellStyle.GradientStyle = GradientStyle.Vertical;
//columnsDefaultCellStyle.BackColor = Color.FromArgb(230, 255, 230);
//columnsDefaultCellStyle.ForeColor = Color.Red ;
columnsDefaultCellStyle.NullValue = "Text";
this.gcMultiRow1.NamedCellStyles["ColumnsDefaultCellStyle"] = columnsDefaultCellStyle;
//You can load one predefined NamedCellStyleDictionary from one file.
//this.gcMultiRow1.NamedCellStyles.Load(@"C:\temp\NamedCellStyles.xml");
//You can save the NamedCellStyleDictionary to one file.
//this.gcMultiRow1.NamedCellStyles.Save(@"C:\temp\NamedCellStyles.xml");
}
Private Sub setSecondNamedCellStyle_Click(ByVal sender As Object, ByVal e As EventArgs) Handles setSecondStyle.Click
Dim alternatingColumnsDefaultCellStyle As New CellStyle()
alternatingColumnsDefaultCellStyle.BackColor = Color.Orange
alternatingColumnsDefaultCellStyle.ForeColor = Color.Black
alternatingColumnsDefaultCellStyle.NullValue = "Text"
'Change the "AlternatingColumnsDefaultCellStyle"
Me.gcMultiRow1.NamedCellStyles("AlternatingColumnsDefaultCellStyle") = alternatingColumnsDefaultCellStyle
Dim columnsDefaultCellStyle As New CellStyle()
columnsDefaultCellStyle.GradientColors = New Color() {Color.Orange, Color.Lime}
columnsDefaultCellStyle.GradientDirection = GradientDirection.Center
columnsDefaultCellStyle.GradientStyle = GradientStyle.Vertical
'columnsDefaultCellStyle.BackColor = Color.FromArgb(230, 255, 230);
'columnsDefaultCellStyle.ForeColor = Color.Red ;
columnsDefaultCellStyle.NullValue = "Text"
Me.gcMultiRow1.NamedCellStyles("ColumnsDefaultCellStyle") = columnsDefaultCellStyle
'You can load one predefined NamedCellStyleDictionary from one file.
'this.gcMultiRow1.NamedCellStyles.Load(@"C:\temp\NamedCellStyles.xml");
'You can save the NamedCellStyleDictionary to one file.
'this.gcMultiRow1.NamedCellStyles.Save(@"C:\temp\NamedCellStyles.xml");
End Sub