GrapeCity.Win.MultiRow.v80 アセンブリ > GrapeCity.Win.MultiRow 名前空間 > GcMultiRow クラス : Template プロパティ |
例外 | 解説 |
---|---|
System.ArgumentException | 指定されたTemplateをクローンできません。 または 指定されたテンプレートにSummaryCellがあり、そのSummaryCellの計算対象となるセルがRowセクションに存在しません。 |
void setBlueStyle_Click(object sender, EventArgs e) { Template template1 = this.gcMultiRow1.Template; //Set ScrollBar to Office 2007 style. this.gcMultiRow1.ScrollBarOffice2007Style = Office2007Style.Blue; //Set Split line to Office 2007 style. this.gcMultiRow1.SplitOffice2007Style = Office2007Style.Blue; //Set All HeaderCell's border to Office 2007 Style. you can chang the border to any style. CellStyle borderStyle = new CellStyle(); borderStyle.Border = new Border(LineStyle.Thin, Color.FromArgb(255, 156, 182, 206)); this.gcMultiRow1.ColumnHeadersDefaultHeaderCellStyle = borderStyle; this.gcMultiRow1.RowsDefaultHeaderCellStyle = borderStyle; //Set all HeaderCell to Office2007Style. foreach (Cell cell1 in template1.ColumnHeaders[0].Cells) { HeaderCell headerCell1 = cell1 as HeaderCell; if (headerCell1 != null) { headerCell1.Office2007Style = Office2007Style.Blue; } } HeaderCell rowHeaderCell1 = template1.Row.Cells[template1.Row.Cells.Count - 1] as HeaderCell; if (rowHeaderCell1 != null) { rowHeaderCell1.Office2007Style = Office2007Style.Blue; } this.gcMultiRow1.Template = template1; }
Private Sub setBlueStyle_Click(ByVal sender As Object, ByVal e As EventArgs) Handles setBlueStyle.Click Dim template1 As Template = Me.gcMultiRow1.Template 'Set ScrollBar to Office 2007 style. Me.gcMultiRow1.ScrollBarOffice2007Style = Office2007Style.Blue 'Set Split line to Office 2007 style. Me.gcMultiRow1.SplitOffice2007Style = Office2007Style.Blue 'Set All HeaderCell's border to Office 2007 Style. you can chang the border to any style. Dim borderStyle As New CellStyle() borderStyle.Border = New Border(LineStyle.Thin, Color.FromArgb(255, 156, 182, 206)) Me.gcMultiRow1.ColumnHeadersDefaultHeaderCellStyle = borderStyle Me.gcMultiRow1.RowsDefaultHeaderCellStyle = borderStyle 'Set all HeaderCell to Office2007Style. For Each cell1 As Cell In template1.ColumnHeaders(0).Cells Dim headerCell1 As HeaderCell = TryCast(cell1, HeaderCell) If Not headerCell1 Is Nothing Then headerCell1.Office2007Style = Office2007Style.Blue End If Next Dim rowHeaderCell1 As HeaderCell = TryCast(template1.Row.Cells(template1.Row.Cells.Count - 1), HeaderCell) If Not rowHeaderCell1 Is Nothing Then rowHeaderCell1.Office2007Style = Office2007Style.Blue End If Me.gcMultiRow1.Template = template1 End Sub