If rowNum = Val(rowcollection.Item(i)) Then

                        If Not BackColor(i - 1).IsEmpty Then

                            backBrush = New SolidBrush(BackColor(i - 1))

                        End If

                        If Not ForeColor(i - 1).IsEmpty Then

                            foreBrush = New SolidBrush(ForeColor(i - 1))

                        End If

                    End If

                    i += 1

                Loop

                MyBase.PaintText(g, bounds, text, backBrush, foreBrush, alignToRight)

            End Sub

        End Class

2.关于行颜色定义的类：

Imports System.Windows.Forms

Namespace Truck_WEB

    Public Class DrawDGClass

        Public Class ReDrawDataDridControls : Inherits DataGridColoredTextBoxColumn

            Public Sub DrawCorol(ByRef DG As DataGrid, Optional ByVal CurrentRowindex As Integer = 0)

               ''''设置选中的行的颜色，默认是第一行选中。

                 Dim dt As DataTable

                Dim ts As New DataGridTableStyle()

                ts.AllowSorting = False

                Dim aColumnTextColumn As DataGridColoredTextBoxColumn

                dt = CType(DG.DataSource, DataTable)

                ts.MappingName = CType(DG.DataSource, DataTable).TableName

                DG.TableStyles.Clear()

                Dim numCols As Integer

                numCols = dt.Columns.Count

                Dim i, j As Integer

                i = 0

                j = 0

上一页  [1] [2] [3] [4]  下一页