VB.NET中关于DataGrid颜色的自定义(三)

   
   Do While (i < numCols) 
   
   aColumnTextColumn = New DataGridColoredTextBoxColumn() 
   
   Dim rowindex As Integer = 0 
   
   For rowindex = 0 To dt.Rows.Count - 1
  
   Dim StrSel As String
  
   Dim MyForeCorol, MyBackCorol As Color
  
   aColumnTextColumn.rowcollection.Add(rowindex)
  
   If rowindex = CurrentRowindex Then
  
   MyForeCorol = Color.White
  
   MyBackCorol = Color.DarkSlateBlue
  
   else 
   
   MyForeCorol = Color.DarkSlateBlue
  
   MyBackCorol = Color.White
  
   End If 
   
   ReDim Preserve aColumnTextColumn.ForeColor(aColumnTextColumn.rowcollection.Count)
  
   ReDim Preserve aColumnTextColumn.BackColor(aColumnTextColumn.rowcollection.Count)
  
   aColumnTextColumn.ForeColor(rowindex) = MyForeCorol
  
   aColumnTextColumn.BackColor(rowindex) = MyBackCorol
  
   Next 
   
   '要更改列头名，请改下句的HeaderText值
  
   aColumnTextColumn.HeaderText = dt.Columns(i).ColumnName 
   
   aColumnTextColumn.MappingName = dt.Columns(i).ColumnName 
   
   ts.GridColumnStyles.Add(aColumnTextColumn)
  
   i = (i + 1)
  
   Loop
  
   DG.TableStyles.Add(ts) 
   
   End Sub
  
   End Class
  
   End Class
  
  End Namespace 
   
  以上是设定选中单行的颜色为反色，各位还可以借题发挥一下！例如设置颜色，等等。
  
  在此向《Henry手记:WinForm Datagrid结构剖析》的作者韩睿致谢！ 
   
  以后我会尽量完善这个DrawDG的类，为大家提供方便！  

查看本文来源