DevExpress.XtraGrid的颜色功能Category: 在GridView事件中添加以下代码:
Imports DevExpress.XtraGrid.Views.Grid' ...Private Sub GridView1_RowStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles GridView1.RowStyle Dim view As GridView = sender If (e.RowHandle >= 0) Then Dim category As String = view.GetRowCellDisplayText(e.RowHandle, view.Columns("Category")) If category = "Beverages" Then e.Appearance.BackColor = Color.Salmon e.Appearance.BackColor2 = Color.SeaShell End If End If End Sub Private Sub GridView1_RowStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles GridView1.RowStyle Dim view As GridView = sender If (e.RowHandle >= 0) Then Dim category As String = view.GetRowCellDisplayText(e.RowHandle, view.Columns("Category")) If category = "Beverages" Then e.Appearance.BackColor = Color.Salmon e.Appearance.BackColor2 = Color.SeaShell End If End If End Sub
还可以具体选择某几列选择颜色:Imports DevExpress.XtraGrid.Views.Grid' ...
Private Sub GridView1_RowCellStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowCellStyleEventArgs) Handles GridView1.RowCellStyle Dim view As GridView = sender If e.Column.FieldName = "Count" Or e.Column.FieldName = "Unit Price" Then Dim category As String = view.GetRowCellDisplayText(e.RowHandle, view.Columns("Category")) If category = "Seafood" Then e.Appearance.BackColor = Color.DeepSkyBlue e.Appearance.BackColor2 = Color.LightCyan End If End If End Sub Private Sub GridView1_RowCellStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowCellStyleEventArgs) Handles GridView1.RowCellStyle Dim view As GridView = sender If e.Column.FieldName = "Count" Or e.Column.FieldName = "Unit Price" Then Dim category As String = view.GetRowCellDisplayText(e.RowHandle, view.Columns("Category")) If category = "Seafood" Then e.Appearance.BackColor = Color.DeepSkyBlue e.Appearance.BackColor2 = Color.LightCyan End If End If End Sub 对列名为Count和Unit Price的两列显示颜色,其它列不考虑.(具体详情请查看自带文档中的ms-help://DevExpress2005/DevExpress.XtraGrid/CustomDocument758.htm)
