DataGridView背景色

1.     Private Sub DataGridView1_CellPainting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
2.         'Try
3.         '    Dim x = e.CellBounds.X + 2
4.         '    Dim y = e.CellBounds.Y + 2
5.         '    'DataGridView1.Rows(0).Cells(0).Value = "如果你"
6.         '    DataGridView1.Columns(0).HeaderText = "如果你"
7.         '    e.Graphics.DrawString("如果你", e.CellStyle.Font, Brushes.Red, x, y, StringFormat.GenericDefault)
8.         'Catch ex As Exception
9.         '    MsgBox(ex.Message)
10.         'End Try
12.         'If Me.DataGridView1.Columns("ContactName").Index = _
13.         'e.ColumnIndex AndAlso e.RowIndex >= 0 Then
14.         '判断是Contactname  列， 并且不是第一行（标题） 
16.         Dim newRect As New Rectangle(e.CellBounds.X + 1, e.CellBounds.Y + 1, _
17.             e.CellBounds.Width - 4, e.CellBounds.Height - 4)    '定义绘制区域
18.         Dim backColorBrush As New SolidBrush(e.CellStyle.BackColor) '定义背景色，这里是从DataGridView中提取的默认样式
19.         Dim gridBrush As New SolidBrush(Me.DataGridView1.GridColor) ' 定义表格（线框） 色刷
20.         Dim gridLinePen As New Pen(gridBrush)                 '定义表格（线框） 笔      
22.         Try
25.             e.Graphics.FillRectangle(backColorBrush, e.CellBounds)  '填充背景色
27.             e.Graphics.DrawLine(gridLinePen, e.CellBounds.Left, _
28.                 e.CellBounds.Bottom - 1, e.CellBounds.Right - 1, _
29.                 e.CellBounds.Bottom - 1)
30.             e.Graphics.DrawLine(gridLinePen, e.CellBounds.Right - 1, _
31.                 e.CellBounds.Top, e.CellBounds.Right - 1, _
32.                 e.CellBounds.Bottom)
33.             '绘制边缘线框
34.             e.Graphics.DrawRectangle(Pens.Blue, newRect)
35.             '绘制线框，  这个应该是那种双线的样式，可以屏蔽一个代码然后试试看
37.             If (e.Value IsNot Nothing) Then
38.                 '如果有值， 则绘制值内容
40.                 e.Graphics.DrawString(CStr(e.Value), e.CellStyle.Font, _
41.                 Brushes.Crimson, e.CellBounds.X + 2, e.CellBounds.Y + 2, _
42.                 StringFormat.GenericDefault)
43.                 '绘制字符串，如果不能转换成字符串，会报异常的，
44.                 '如果你要绘制多颜色文本，有必要依次处理，或者使用渐变色刷，绘制
45.             End If
46.             e.Handled = True '告诉系统，已经手动绘制，不需要再次绘制
48.         Finally
49.             gridLinePen.Dispose()
50.             gridBrush.Dispose()
51.             backColorBrush.Dispose()
52.         End Try
54.         ' End If
56.     End Sub