void setBlackStyle_Click(object sender, EventArgs e)
{
Template template1 = this.gcMultiRow1.Template;
//Set ScrollBar to Office 2007 style.
this.gcMultiRow1.ScrollBarOffice2007Style = Office2007Style.Black;
//Set Split line to Office 2007 style.
this.gcMultiRow1.SplitOffice2007Style = Office2007Style.Black;
//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, 181, 182, 181));
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.Black;
}
}
HeaderCell rowHeaderCell1 = template1.Row.Cells[template1.Row.Cells.Count - 1] as HeaderCell;
if (rowHeaderCell1 != null)
{
rowHeaderCell1.Office2007Style = Office2007Style.Black;
}
this.gcMultiRow1.Template = template1;
}
Private Sub setBlackStyle_Click(ByVal sender As Object, ByVal e As EventArgs) Handles setBlackStyle.Click
Dim template1 As Template = Me.gcMultiRow1.Template
'Set ScrollBar to Office 2007 style.
Me.gcMultiRow1.ScrollBarOffice2007Style = Office2007Style.Black
'Set Split line to Office 2007 style.
Me.gcMultiRow1.SplitOffice2007Style = Office2007Style.Black
'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, 181, 182, 181))
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.Black
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.Black
End If
Me.gcMultiRow1.Template = template1
End Sub