Henry手记：WinForm Datagrid结构剖析（二）
点击次数：17 次 发布日期：2008-11-26 11:13:44 作者：源代码网
|
源代码网推荐 源代码网推荐 WinForm Datagrid结构剖析（二）一文中说了这么多，最后还是要落于实践。解决方法何在？简而言之，就是创建一个能完成DataGridTextBoxColumn类的大部分功能，但扩展了cell色彩控制功能的新类，怎么创建，当然是继承喽： 源代码网推荐 源代码网推荐 该类的主要作用除了上文所说的重载Paint 外，最主要的目标在于如何将用户的要求（cell的位置，cell的背景色、前景色）保存下来，在绘制textbox的时候传递进Paint函数中去。实现的方法是用三个集合：一个用于记录行号（不记录列号的原因是由于绘制是按列的ColumnStyle保存的，自动保存了列号），一个用于记录背景色，一个用于记录前景色。请读者自行阅读代码，如果有什么问题，可以写在下方的意见中，或直接发信给我。 源代码网推荐 源代码网推荐 文件名：CdatagridColor.vb 源代码网推荐 源代码网推荐 类名：DataGridColoredTextBoxColumn 源代码网推荐 源代码网推荐 ------------X从此开始X---------------------------- 源代码网推荐 源代码网推荐 Imports System.Windows.Forms 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Public Class DataGridColoredTextBoxColumn 源代码网推荐 源代码网推荐 Inherits DataGridTextBoxColumn ‘继承接口 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Public rowcollection As New Collection() "用于存放行号的集合 源代码网推荐 源代码网推荐 Public BackColor() As Color "用于存放背景色的集合，索引与行号集号一致(集合索引减１） 源代码网推荐 源代码网推荐 Public ForeColor() As Color "用于存放前景色的集合，索引与行号集号一致 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Private Function GetText(ByVal Value As Object) As String 源代码网推荐 源代码网推荐 "为进行重绘读出textbox中的内容，这个函数是增加容错能力的，与实现机制无关 源代码网推荐 源代码网推荐 If TypeOf (Value) Is System.DBNull Then 源代码网推荐 源代码网推荐 Return NullText 源代码网推荐 源代码网推荐 ElseIf Value Is Nothing Then 源代码网推荐 源代码网推荐 Return "" 源代码网推荐 源代码网推荐 Else 源代码网推荐 源代码网推荐 Return Value.ToString 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 End Function 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Protected Overloads Overrides Sub Paint( _ 源代码网推荐 源代码网推荐 ByVal g As System.Drawing.Graphics, _ 源代码网推荐 源代码网推荐 ByVal bounds As System.Drawing.Rectangle, _ 源代码网推荐 源代码网推荐 ByVal source As System.Windows.Forms.CurrencyManager, _ 源代码网推荐 源代码网推荐 ByVal rowNum As Integer, _ 源代码网推荐 源代码网推荐 ByVal backBrush As System.Drawing.Brush, _ 源代码网推荐 源代码网推荐 ByVal foreBrush As System.Drawing.Brush, _ 源代码网推荐 源代码网推荐 ByVal alignToRight As Boolean) 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Dim text As String 源代码网推荐 源代码网推荐 "按默认模式重绘 源代码网推荐 源代码网推荐 text = GetText(GetColumnValueAtRow(source, rowNum)) ‘这句就是上文提及的取数据 源代码网推荐 源代码网推荐 backBrush = New SolidBrush(TextBox.BackColor) ‘背景色 源代码网推荐 源代码网推荐 foreBrush = New SolidBrush(TextBox.ForeColor) ‘前景色 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 "防止用户没有定义集合大小 源代码网推荐 源代码网推荐 ReDim Preserve BackColor(rowcollection.Count) 源代码网推荐 源代码网推荐 ReDim Preserve ForeColor(rowcollection.Count) 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Dim i As Integer = 1 "集合索引从１开始 源代码网推荐 源代码网推荐 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 源代码网推荐 源代码网推荐 --------------------X类到此结束X--------------------------------- 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 下面是我的例子中“变色”按键（ID:button2）的代码。实现了两种变色方式：指定位置变色，根据数据源条件判断结果来动态变色： 源代码网推荐 源代码网推荐 -------------------X代码X----------------------------------------- 源代码网推荐 源代码网推荐 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 源代码网推荐 源代码网推荐 Handles Button2.Click 源代码网推荐 源代码网推荐 Dim dt As DataTable 源代码网推荐 源代码网推荐 Dim ts As New DataGridTableStyle() 源代码网推荐 源代码网推荐 Dim aColumnTextColumn As DataGridColoredTextBoxColumn "上面自定义的类 源代码网推荐 源代码网推荐 dt = DataSet11.Tables("table") ‘Dataset11请自已去定义，或者看一下我的前一篇文章 源代码网推荐 源代码网推荐 DataGrid1.DataSource = dt ‘数据源绑定 源代码网推荐 源代码网推荐 ts.MappingName = dt.TableName 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Dim numCols As Integer 源代码网推荐 源代码网推荐 numCols = DataSet11.Tables("table").Columns.Count ‘统计列数 源代码网推荐 源代码网推荐 Dim i, j As Integer 源代码网推荐 源代码网推荐 i = 0 源代码网推荐 源代码网推荐 j = 0 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Do While (i < numCols) "重绘所有的列 源代码网推荐 源代码网推荐 aColumnTextColumn = New DataGridColoredTextBoxColumn() 源代码网推荐 源代码网推荐 If i = 0 Then 源代码网推荐 源代码网推荐 aColumnTextColumn.rowcollection.Add(0) ‘指定行数 源代码网推荐 源代码网推荐 aColumnTextColumn.rowcollection.Add(2) 源代码网推荐 源代码网推荐 ReDim aColumnTextColumn.ForeColor(aColumnTextColumn.rowcollection.Count) 源代码网推荐 源代码网推荐 ReDim aColumnTextColumn.BackColor(aColumnTextColumn.rowcollection.Count) 源代码网推荐 源代码网推荐 "不赋值就是默认色，背景为白，前景为黑 源代码网推荐 源代码网推荐 aColumnTextColumn.ForeColor(0) = Color.Red 源代码网推荐 源代码网推荐 aColumnTextColumn.ForeColor(1) = Color.Blue 源代码网推荐 源代码网推荐 aColumnTextColumn.BackColor(0) = Color.Pink 源代码网推荐 源代码网推荐 aColumnTextColumn.BackColor(1) = Color.Aqua 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 If i = 1 Then 源代码网推荐 源代码网推荐 For j = 0 To DataSet11.Tables("table").Rows.Count - 1 源代码网推荐 源代码网推荐 If DataSet11.Tables("table").Rows(j)(i) > 2 Then ‘判断列中哪一个cell会大于2 源代码网推荐 源代码网推荐 aColumnTextColumn.rowcollection.Add(j) 源代码网推荐 源代码网推荐 ReDim ColumnTextColumn.ForeColor(aColumnTextColumn.rowcollection.Count) 源代码网推荐 源代码网推荐 ReDim aColumnTextColumn.BackColor(aColumnTextColumn.rowcollection.Count) 源代码网推荐 源代码网推荐 aColumnTextColumn.ForeColor(0) = Color.White 源代码网推荐 源代码网推荐 aColumnTextColumn.BackColor(0) = Color.Black 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 Next 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 "要更改列头名，请改下句的HeaderText值 源代码网推荐 源代码网推荐 aColumnTextColumn.HeaderText = DataSet11.Tables("table").Columns(i).ColumnName 源代码网推荐 源代码网推荐 aColumnTextColumn.MappingName = DataSet11.Tables("table").Columns(i).ColumnName 源代码网推荐 源代码网推荐 ts.GridColumnStyles.Add(aColumnTextColumn) 源代码网推荐 源代码网推荐 i = (i + 1) 源代码网推荐 源代码网推荐 Loop 源代码网推荐 源代码网推荐 DataGrid1.TableStyles.Add(ts) 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 这里说明一点，判断时要注意类型的一致，在本例中，第二列的类型是数字型的，所以直接与数字2进行比对大小。 源代码网推荐 源代码网推荐 祝福您，下次见！ 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 ---- 源代码网推荐 源代码网推荐 声明：本文版权与解释权归韩睿所有，如需转载，请保留完整的内容及此声明。 源代码网推荐 源代码网推荐 QQ: 18349592 源代码网推荐 源代码网推荐 E-Mail: henry7685@hotmail.com 源代码网推荐 源代码网推荐 请访问本人专栏：http://www.csdn.net/develop/author/netauthor/Latitude/ 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
