最近谈论较多的就是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

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

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