一、关于起因
最近非常频繁的使用DataGridView控件，VS提供的Winform下DataGridView的默认样式非常难看。如果做美化处理的话，需要调整的地方非常多，且该控件的很多设置属性非常的晦涩，不是很人性化。每次进行设置都煞费脑筋，并且需要设置的DataGridView控件又比较多，如果手工一个一个调整非常麻烦。如果在每个窗体里逐个一行一行的用代码来设置，会造成代码很凌乱、琐碎，因此我对DataGridView格式设置的常用项封装到一个Helper类，通过这个帮助类可以一步到位完成设置。
对DataGridView控件，我需要完成的一些基本的格式控制,包括以下一些内容:
1、标题行背景色、前景色、字体设置、平面化样式、行高
2、标题列宽度，平面化样式
3、偶数行背景色、前景色
4、奇数行背景色、前景色
5、数据行高度、字体
6、列宽度，对齐方式
7、禁止编辑、添加、删除、调整行高、列宽、排序
8、去除控件外边框
最终处理过后的风格类似如下图所示
二、CGridHelper类模块的调用
最终我所希望的实现格式化DataGridView控件的形式是通过一行代码来实现,类似如下所示:
1 Dim mGridHelper As New CGridHelper(GridVersion, Color.FromArgb(250, 250, 250), 2 New Font("微软雅黑", 10), 30, Color.FromArgb(159, 210, 235), Color.FromArgb(0, 0, 0), 24, 3 New Font("微软雅黑", 9), 30, Color.FromArgb(250, 250, 250), Color.FromArgb(225, 225, 225), Color.FromArgb(0, 0, 0), 4 "0;80;70;595", "M;M;M;L")
其中列宽的控制通过一个字符串来设置,用分号来分隔数字,各数字依次设置对应列的宽度;列的对齐方式也类似,不过左、中、右分别用字母L/M/R表示。
三、CGridHelper类模块代码
接下来直接上CGridHelper类模块的代码了，代码还比较粗糙,但是满足我自己的需求就够了。
1 Public Class CGridHelper 2 Private mGrid As DataGridView 3 Public Property Grid() As DataGridView 4 Get 5 Return mGrid 6 End Get 7 Set(ByVal value As DataGridView) 8 mGrid = value 9 mGrid.BorderStyle = BorderStyle.None 10 mGrid.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single 11 mGrid.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False 12 mGrid.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing 13 mGrid.RowHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single 14 mGrid.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing 15 mGrid.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None 16 mGrid.DefaultCellStyle.WrapMode = DataGridViewTriState.True 17 mGrid.EnableHeadersVisualStyles = False 18 mGrid.AllowUserToResizeRows = False 19 mGrid.SelectionMode = DataGridViewSelectionMode.FullRowSelect 20 mGrid.ReadOnly = True 21 mGrid.AllowUserToAddRows = False 22 mGrid.AllowUserToDeleteRows = False 23 For i = 0 To mGrid.Columns.Count - 1 24 mGrid.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable 25 Next 26 End Set 27 End Property 28 29 Private mOddRowBackColor As Color 30 Public Property OddRowBackColor() As Color 31 Get 32 Return mOddRowBackColor 33 End Get 34 Set(ByVal value As Color) 35 mOddRowBackColor = value 36 If mGrid.Rows.Count = 0 Then Exit Property 37 For i = 0 To mGrid.Rows.Count - 1 Step 2 38 mGrid.Rows(i).DefaultCellStyle.BackColor = value 39 Next 40 End Set 41 End Property 42 43 Private mHeaderBackColor As Color 44 Public Property HeaderBackColor() As Color 45 Get 46 Return mHeaderBackColor 47 End Get 48 Set(ByVal value As Color) 49 mHeaderBackColor = value 50 mGrid.ColumnHeadersDefaultCellStyle.BackColor = value 51 End Set 52 End Property 53 54 Private mEvenRowBackColor As Color 55 Public Property EvenRowBackColor() As Color 56 Get 57 Return mEvenRowBackColor 58 End Get 59 Set(ByVal value As Color) 60 mEvenRowBackColor = value 61 If mGrid.Rows.Count = 0 Then Exit Property 62 For i = 1 To mGrid.Rows.Count - 1 Step 2 63 mGrid.Rows(i).DefaultCellStyle.BackColor = value 64 Next 65 End Set 66 End Property 67 68 Private mGridColor As Color 69 Public Property GridColor() As Color 70 Get 71 Return mGridColor 72 End Get 73 Set(ByVal value As Color) 74 mGridColor = value 75 mGrid.GridColor = value 76 End Set 77 End Property 78 79 Private mColumnWidth As String 80 Public Property ColumnWidth() As String 81 Get 82 Return mColumnWidth 83 End Get 84 Set(ByVal value As String) 85 mColumnWidth = value 86 Dim mColCount As Integer = mGrid.ColumnCount 87 Dim mWidths() As String = value.Split(";") 88 For i = 0 To mWidths.Length - 1 89 If i + 1 > mColCount Then Exit For 90 If mWidths(i) <= 0 Then 91 mGrid.Columns(i).Visible = False 92 Else 93 mGrid.Columns(i).Width = mWidths(i) 94 End If 95 Next 96 End Set 97 End Property 98 99 Private mColumnAlignment As String 100 Public Property ColumnAlignment() As String 101 Get 102 Return mColumnAlignment 103 End Get 104 Set(ByVal value As String) 105 mColumnAlignment = value 106 Dim mColCount As Integer = mGrid.ColumnCount 107 Dim mAlignments() As String = value.Split(";") 108 For i = 0 To mAlignments.Length - 1 109 If i + 1 > mColCount Then Exit For 110 Select Case mAlignments(i) 111 Case Is = "L" 112 mGrid.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft 113 Case Is = "R" 114 mGrid.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 115 Case Is = "M" 116 mGrid.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 117 Case Else 118 mGrid.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft 119 End Select 120 Next 121 End Set 122 End Property 123 124 Private mHeaderFont As Font 125 Public Property HeaderFont() As Font 126 Get 127 Return mHeaderFont 128 End Get 129 Set(ByVal value As Font) 130 mHeaderFont = value 131 mGrid.ColumnHeadersDefaultCellStyle.Font = value 132 End Set 133 End Property 134 135 Private mHeaderHeight As Integer 136 Public Property HeaderHeight() As Integer 137 Get 138 Return mHeaderHeight 139 End Get 140 Set(ByVal value As Integer) 141 mHeaderHeight = value 142 mGrid.ColumnHeadersHeight = value 143 End Set 144 End Property 145 146 Private mHeaderForeColor As Color 147 Public Property HeaderForeColor() As Color 148 Get 149 Return mHeaderForeColor 150 End Get 151 Set(ByVal value As Color) 152 mHeaderForeColor = value 153 mGrid.ColumnHeadersDefaultCellStyle.ForeColor = value 154 End Set 155 End Property 156 157 Private mRowHeaderWidth As Integer 158 Public Property RowHeaderWidth() As Integer 159 Get 160 Return mRowHeaderWidth 161 End Get 162 Set(ByVal value As Integer) 163 mRowHeaderWidth = value 164 mGrid.RowHeadersWidth = value 165 End Set 166 End Property 167 168 Private mRowHeight As Integer 169 Public Property RowHeight() As Integer 170 Get 171 Return mRowHeight 172 End Get 173 Set(ByVal value As Integer) 174 mRowHeight = value 175 For i = 0 To mGrid.Rows.Count - 1 176 mGrid.Rows(i).Height = value 177 Next 178 End Set 179 End Property 180 181 Private mRowFont As Font 182 Public Property RowFont() As Font 183 Get 184 Return mRowFont 185 End Get 186 Set(ByVal value As Font) 187 mRowFont = value 188 mGrid.RowsDefaultCellStyle.Font = value 189 End Set 190 End Property 191 192 Private mBackColor As Color 193 Public Property BackColor() As Color 194 Get 195 Return mBackColor 196 End Get 197 Set(ByVal value As Color) 198 mBackColor = value 199 mGrid.BackgroundColor = value 200 End Set 201 End Property 202 203 Public Sub New(TargetGrid As DataGridView, BackColor As Color, HeaderFont As Font, HeaderHeight As Integer, 204 HeaderBackColor As Color, HeaderForeColor As Color, RowHeaderWidth As Integer, 205 RowFont As Font, RowHeight As Integer, OddRowBackColor As Color, EvenRowBackColor As Color, 206 GridColor As Color, ColumnWidth As String, ColumnAlignment As String) 207 Me.Grid = TargetGrid 208 Me.BackColor = BackColor 209 210 Me.HeaderFont = HeaderFont 211 Me.HeaderHeight = HeaderHeight 212 Me.HeaderBackColor = HeaderBackColor 213 Me.HeaderForeColor = HeaderForeColor 214 Me.RowHeaderWidth = RowHeaderWidth 215 216 Me.RowFont = RowFont 217 Me.RowHeight = RowHeight 218 Me.OddRowBackColor = OddRowBackColor 219 Me.EvenRowBackColor = EvenRowBackColor 220 221 Me.GridColor = GridColor 222 Me.ColumnWidth = ColumnWidth 223 Me.ColumnAlignment = ColumnAlignment 224 End Sub 225 226 Public Sub ReSetStyle() 227 ReSetStyle(Me.BackColor, Me.HeaderFont, Me.HeaderHeight, Me.HeaderBackColor, Me.HeaderForeColor, Me.RowHeaderWidth, 228 Me.RowFont, Me.RowHeight, Me.OddRowBackColor, Me.EvenRowBackColor, Me.GridColor, Me.ColumnWidth, Me.ColumnAlignment) 229 End Sub 230 231 Private Sub ReSetStyle(BackColor As Color, HeaderFont As Font, HeaderHeight As Integer, 232 HeaderBackColor As Color, HeaderForeColor As Color, RowHeaderWidth As Integer, 233 RowFont As Font, RowHeight As Integer, OddRowBackColor As Color, EvenRowBackColor As Color, 234 GridColor As Color, ColumnWidth As String, ColumnAlignment As String) 235 Me.BackColor = BackColor 236 237 Me.HeaderFont = HeaderFont 238 Me.HeaderHeight = HeaderHeight 239 Me.HeaderBackColor = HeaderBackColor 240 Me.HeaderForeColor = HeaderForeColor 241 Me.RowHeaderWidth = RowHeaderWidth 242 243 Me.RowFont = RowFont 244 Me.RowHeight = RowHeight 245 Me.OddRowBackColor = OddRowBackColor 246 Me.EvenRowBackColor = EvenRowBackColor 247 248 Me.GridColor = GridColor 249 Me.ColumnWidth = ColumnWidth 250 Me.ColumnAlignment = ColumnAlignment 251 End Sub 252 End Class