最近谈论较多的就是Datagrid，非凡新手最是郁闷为何没有更好的控件，来满足自已的需求。
其实通过重写可以达到很多不同的功能体验，在这里我们仅仅讨论关于datagridcolumnstyle重写的问题
==========================================
Power by: landlordh
Datatime: 2005-08-04
转载请注明出处,谢谢
==========================================
1。重写TextBox：
Public Class XP_TextBox
Inherits System.Windows.Forms.TextBox
#Region " Windows "
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows
Private components As System.ComponentModel.IContainer
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
'
'TextBox
'
Me.EnableContextMenu = True
Me.EnablePaste = True
Me.Name = "TextBox"
End Sub
#End Region
#Region " Variables "
Private m_EnPaste As Boolean = True
Private m_EnContextMenu As Boolean = True
#End Region
#Region " Property "
Property EnablePaste() As Boolean
Get
Return m_EnPaste
End Get
Set(ByVal Value As Boolean)
m_EnPaste = Value
Me.Invalidate()
End Set
End Property
Property EnableContextMenu() As Boolean
Get
Return m_EnContextMenu
End Get
Set(ByVal Value As Boolean)
m_EnContextMenu = Value
Me.Invalidate()
End Set
End Property
#End Region
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Select Case m.Msg
Case &H302 'paste
RaiseEvent PasteEvent()
If Not m_EnPaste Then Return
Case &H7B 'contextmenu
If Not m_EnContextMenu Then Return
End Select
MyBase.WndProc(m)
End Sub
Public Event PasteEvent()
End Class
2。重写datagridcolumnstyle(重点介绍内容)：
Imports System.Drawing
Imports System.Windows.Forms
Public NotInheritable Class DataGridTextBoxColumnStyle
Inherits System.Windows.Forms.DataGridColumnStyle
#Region "Declare Property"
Private WithEvents m_TextBox As New Landlord.Component.XP_TextBox
Private IsEditing As Boolean
Private EditingRow As Integer = -1
Private m_oldvalue As String
#End Region
#Region " windows "
Sub New()
Me.m_TextBox.Visible = False
End Sub
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
Container.Add(Me)
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ComponentModel.IContainer
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub
#End Region
#Region "Get Function"
Protected Overrides Function GetMinimumHeight() As Integer
Return m_TextBox.PreferredHeight + 2
End Function
Protected Overrides Function GetPreferredHeight(ByVal g As System.Drawing.Graphics, ByVal value As Object) As Integer
Return m_TextBox.PreferredHeight + 2
End Function
Protected Overrides Function GetPreferredSize(ByVal g As System.Drawing.Graphics, ByVal value As Object) As System.Drawing.Size
Return New Size(50, m_TextBox.PreferredHeight + 2)
End Function
#End Region
#Region "Paint"
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)
Paint(g, bounds, [source], rowNum, False)
End Sub
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 alignToRight As Boolean)
Dim brush_for As Brush = New SolidBrush(Me.DataGridTableStyle.ForeColor)
Dim brush_bak As Brush = New SolidBrush(Me.DataGridTableStyle.BackColor)
Paint(g, bounds, [source], rowNum, brush_bak, brush_for, alignToRight)
brush_for.Dispose()
brush_bak.Dispose()
End Sub
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 Brush, ByVal foreBrush As Brush, ByVal alignToRight As Boolean)
Dim str As String
If IsDBNull(GetColumnValueAtRow([source], rowNum)) Then
str = Me.NullText
Else
str = CType(GetColumnValueAtRow([source], rowNum), String)
End If
Dim brush As Brush = backBrush
Dim rect As System.Drawing.Rectangle = bounds
g.FillRectangle(brush, rect)
If Me.IsEditing And EditingRow = rowNum Then
brush = New SolidBrush(Color.White)
g.FillRectangle(brush, bounds)
End If
rect.Offset(0, 2)
rect.Height -= 2
brush = New SolidBrush(Me.DataGridTableStyle.ForeColor)
If Me.DataGridTableStyle.DataGrid.IsSelected(rowNum) Then
brush = New SolidBrush(Me.DataGridTableStyle.SelectionBackColor)
Dim rectf As RectangleF = New RectangleF(bounds.X, bounds.Y, bounds.Width, bounds.Height)
g.FillRectangle(brush, rectf)
brush = New SolidBrush(Me.DataGridTableStyle.SelectionForeColor)
End If
If Me.Alignment = HorizontalAlignment.Center Then
Dim w As Integer = g.MeasureString(str, Me.DataGridTableStyle.DataGrid.Font, New SizeF(bounds.Width, bounds.Height)).Width
rect.X = rect.X + (bounds.Width - w) / 2
ElseIf Me.Alignment = HorizontalAlignment.Right Then
Dim w As Integer = g.MeasureString(str, Me.DataGridTableStyle.DataGrid.Font, New SizeF(bounds.Width, bounds.Height)).Width
rect.X = bounds.Right - w
End If
g.DrawString(str, Me.DataGridTableStyle.DataGrid.Font, brush, rect.X, rect.Y)
brush.Dispose()
End Sub
#End Region
#Region "Overrides Method"
Protected Overrides Function Commit(ByVal dataSource As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer) As Boolean
Me.m_TextBox.Bounds = Rectangle.Empty
If Not Me.IsEditing Then
Return True
End If
EditingRow = -1
IsEditing = False
Try
Dim value As Object
value = m_TextBox.Text
If NullText.Equals(value) Then
value = System.DBNull.Value
End If
SetColumnValueAtRow(dataSource, rowNum, value)
Catch ex As Exception
Abort(rowNum)
Return False
End Try
invalidate()
Return True
End Function
Protected Overrides Sub Abort(ByVal rowNum As Integer)
Me.m_TextBox.Text = m_oldvalue
EditingRow = -1
If m_TextBox.Focused Then
Me.DataGridTableStyle.DataGrid.Focus()
End If
Me.m_TextBox.Visible = False
Me.IsEditing = False
Me.Invalidate()
End Sub
Protected Overloads Overrides Sub Edit(ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal bounds As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal instantText As String, ByVal cellIsVisible As Boolean)
EditingRow = rowNum
IsEditing = True
Dim value As String
If IsDBNull(GetColumnValueAtRow(source, rowNum)) Then
value = Me.NullText
Else
value = CType(GetColumnValueAtRow(source, rowNum), String)
End If
m_oldvalue = value
If cellIsVisible Then
If Not Me.ReadOnly Then
Me.m_TextBox.Bounds = New Rectangle(bounds.X + 1, bounds.Y + 1, bounds.Width - 2, bounds.Height - 2)
Me.m_TextBox.Text = value
Me.m_TextBox.Select()
Me.m_TextBox.Focus()
Me.m_TextBox.SelectAll()
Me.m_TextBox.Visible = True
Me.m_TextBox.Flat = True
End If
Else
Me.m_TextBox.Text = value
'滚动时会丢失焦点
'Me.m_TextBox.Visible = False
End If
If Me.m_TextBox.Visible Then
DataGridTableStyle.DataGrid.Invalidate(bounds)
End If
End Sub
Protected Overloads Overrides Sub SetDataGridInColumn(ByVal value As System.Windows.Forms.DataGrid)
MyBase.SetDataGridInColumn(value)
If Not m_TextBox.Parent Is Nothing Then
m_TextBox.Parent.Controls.Remove(Me.m_TextBox)
End If
If Not value Is Nothing Then
value.Controls.Add(Me.m_TextBox)
End If
End Sub
Protected Overrides Sub ConcedeFocus()
EditingRow = -1
'否则先点到新增行，再回选非新行格时该列最后一行的值变为(null)
IsEditing = False
Me.m_TextBox.Visible = False
invalidate()
End Sub
Protected Overrides Sub EnterNullValue()
Me.m_TextBox.Text = Me.NullText
End Sub
Private Sub m_TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles m_TextBox.KeyPress
If Not Char.IsControl(e.KeyChar) Then
Me.IsEditing = True
MyBase.ColumnStartedEditing(m_TextBox)
End If
End Sub
Private Sub m_TextBox_PasteEvent() Handles m_TextBox.PasteEvent
Me.IsEditing = True
Me.ColumnStartedEditing(m_TextBox)
End Sub
#End Region
End Class
3。使用：
新建一个空窗体，拖入datagrid，窗体load事件中代码如下
Private idtb_temp As New DataTable
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
idtb_temp = New DataTable("NameTable")
idtb_temp.Columns.Add(New DataColumn("normal"))
idtb_temp.Columns.Add(New DataColumn("textbox1"))
idtb_temp.Columns.Add(New DataColumn("combobox1"))
Dim dateColumns As DataColumn
dateColumns = New DataColumn("datetime1", Type.GetType("System.DateTime"))
idtb_temp.Columns.Add(dateColumns)
idtb_temp.Columns.Add(New DataColumn("checkbox1", Type.GetType("System.Boolean")))
Dim idrw_row As DataRow
Dim i As Integer
For i = 0 To 20
idrw_row = idtb_temp.NewRow
idrw_row.Item("normal") = "names"
idrw_row.Item("textbox1") = "nick"
idrw_row.Item("combobox1") = i.ToString
idrw_row.Item("datetime1") = "2004-06-04"
idrw_row.Item("checkbox1") = True
idtb_temp.Rows.Add(idrw_row)
Next
Me.DataGrid1.DataSource = idtb_temp
Dim myGridStyle As Windows.Forms.DataGridTableStyle = New Windows.Forms.DataGridTableStyle
myGridStyle.MappingName = "NameTable"
myGridStyle.PreferredRowHeight = 30
myGridStyle.SelectionBackColor = Color.Blue
myGridStyle.BackColor = Color.Yellow
Dim c1 As Windows.Forms.DataGridTextBoxColumn = New Windows.Forms.DataGridTextBoxColumn
With c1
.MappingName = "normal"
.Width = 100
.HeaderText = "normal"
.Alignment = HorizontalAlignment.Center
End With
myGridStyle.GridColumnStyles.Add(c1)
Dim c2 As Landlord.Component.DragGrid.DataGridTextBoxColumnStyle = New Landlord.Component.DragGrid.DataGridTextBoxColumnStyle
With c2
.MappingName = "textbox1"
.Width = 100
.HeaderText = "textbox1"
End With
myGridStyle.GridColumnStyles.Add(c2)
Dim c3 As Landlord.Component.DragGrid.DataGridComboBoxColumnStyle = New Landlord.Component.DragGrid.DataGridComboBoxColumnStyle
With c3
.MappingName = "combobox1"
.HeaderText = "combobox1"
.Width = 100
.AddItem("111")
.AddItem("222")
.Alignment = HorizontalAlignment.Center
End With
myGridStyle.GridColumnStyles.Add(c3)
Dim c4 As Landlord.Component.DragGrid.DataGridDateTimePickerColumnStyle = New Landlord.Component.DragGrid.DataGridDateTimePickerColumnStyle
With c4
.MappingName = "datetime1"
.HeaderText = "datetime1"
.Width = "100"
.Alignment = HorizontalAlignment.Center
End With
myGridStyle.GridColumnStyles.Add(c4)
Dim c5 As Landlord.Component.DragGrid.DataGridCheckBoxColumnStyle = New Landlord.Component.DragGrid.DataGridCheckBoxColumnStyle
With c5
.MappingName = "checkbox1"
.HeaderText = "checkbox1"
.Width = 100
.TrueColor = Color.Red
End With
myGridStyle.GridColumnStyles.Add(c5)
Me.DataGrid1.TableStyles.Clear()
Me.DataGrid1.TableStyles.Add(myGridStyle)
End Sub
4。说明：
其他控件的加入原理基本一样，这里就不重复了
|
