根据字段间比较获得指定单元的颜色的类（vb.net）

前几日,搜了好久有关vb.net中DataGrid指定行颜色设置的相关信息,拜读了很多力作。稍微修改了以下,用了以下还不错。

 

 

            Dim arrList As New ArrayList

            For i As Integer = 0 To mytable.Rows.Count - 1
                If CInt(mytable.Rows(i)("Bladder_Max")) > CInt(mytable.Rows(i)("Bladder_Count")) Then
                    arrList.Add(0)
                Else
                    arrList.Add(1)
                End If
            Next
            Dim TextCol As DataGridColoredTextBoxColumn

            TextCol = New DataGridColoredTextBoxColumn(arrList, mytable.Rows.Count, Color.White, Color.Red)
            TextCol.MappingName = "Bladder_Name"
            TextCol.HeaderText = "Bladder名称"
            TextCol.Alignment = System.Windows.Forms.HorizontalAlignment.Center
            TextCol.Width = Me.DataGrid1.Width / 6 - 10
            TextCol.TextBox.Enabled = False
            ts1.GridColumnStyles.Add(TextCol)

           '........

            Me.DataGrid1.TableStyles.Clear()
            Me.DataGrid1.TableStyles.Add(ts1)

 

Public Class DataGridColoredTextBoxColumntBoxColumnClass DataGridColoredTextBoxColumntBoxColumn

    Private m_Row As Integer = -1
    Private m_BackColor As Color = Color.White
    Private m_ForeColor As Color = Color.Black

    Private defalutBack As Brush = New SolidBrush(Color.White)
    Private defalutFore As Brush = New SolidBrush(Color.Black)

    Private m_Smt As Integer
    Private m_Array As ArrayList
    Sub New()Sub New(ByVal Row As Integer, ByVal [ForeColor] As Color)
        m_Row = Row
        m_ForeColor = ForeColor
    End Sub

    Sub New()Sub New(ByVal row As Integer, ByVal [ForeColor] As Color, ByVal [BackColor] As Color)
        m_Row = row
        m_ForeColor = ForeColor
        m_BackColor = BackColor
    End Sub
    Sub New()Sub New(ByVal row As Integer, ByVal cnt As Integer, ByVal [ForeColor] As Color, ByVal [BackColor] As Color)
        m_Row = row
        m_Smt = cnt
        m_ForeColor = ForeColor
        m_BackColor = BackColor
    End Sub
    Sub New()Sub New(ByVal arrList As ArrayList, ByVal cnt As Integer, ByVal [ForeColor] As Color, ByVal [BackColor] As Color)
        m_Row = -1
        m_Array = arrList
        m_Smt = cnt
        m_ForeColor = ForeColor
        m_BackColor = BackColor
    End Sub

    Protected Overloads Overrides Sub Paint()Sub Paint(ByVal g As System.Drawing.Graphics, ByVal bounds As System.Drawing.Rectangle, ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal backBrush As Brush, ByVal foreBrush As Brush, ByVal alignToRight As Boolean)
        Try
            If rowNum < m_Smt Then
                If m_Array(rowNum) = 0 Then
                Else
                    backBrush = New SolidBrush(m_BackColor)
                    foreBrush = New SolidBrush(m_ForeColor)
                End If
            End If
        Catch ex As Exception
            ' empty catch 
        Finally
            MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, alignToRight)
        End Try
    End Sub
End Class