|
Do While (i <= rowcollection.Count)
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] 下一页
[VB.NET程序]vb.net读写xml(2)--实现datagrid与xml的沟通（原创… [VB.NET程序]根据表格内容，自动调整VB.NET中Datagrid控件单元…
[VB.NET程序][原创]VB.net技巧之六------DataGrid模板列中的超… [VB.NET程序][原创]VB.net技巧之五------在DataGrid中显示图片
[VB.NET程序]vb.net2003中，利用datagrid更新数据(原创) [Delphi程序]Delphi中关于TApplication类的详解
[Web开发]用Javascript模仿DataGrid [Web开发]Binding a DataGrid to an ADO Recordset
[Web开发]动态的管理ASP.NET DataGrid数据列 [Web开发]ADO在vb.net中的使用（与datagrid结合）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
