DevExpress.XtraGrid的颜色功能

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)