Henry手记：WinForm Datagrid结构剖析（二） 1
点击次数：10 次 发布日期：2008-11-26 11:13:56 作者：源代码网
|
源代码网推荐 源代码网推荐 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--------------------------------- 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
