一个通用的DataGridTableStyle的做法
哈，这两天都喜欢写“通用”的东西。
这个类，可以实现自适应列宽、只读、时分显示、事件、任意位置加列、单击单元格背景色设置等等，操作简便。只是时间关系（明天要出去一趟），今天没办法完善。仅供参考，你可以加入别的东西。以下只列代码了，不清楚的自己试用查资料就行了。
Public Class TableStyle
Private m_DataGridTableStyle As DataGridTableStyle
Private m_DataGrid As DataGrid
Private m_DataTable As DataTable
'//添加事件处理，在此只考虑DataGridTextBoxColumn双击事件
Public Delegate Sub ClickEventHandler(ByVal sender As Object, ByVal e As System.EventArgs)
Public Event GridTextBoxDoubleClickEvent As ClickEventHandler
Public Sub GridTextBox_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
RaiseEvent GridTextBoxDoubleClickEvent(sender, e)
End Sub
'//设置DataGrid
Public Property [DataGrid]() As DataGrid
Get
Return m_DataGrid
End Get
Set(ByVal Value As DataGrid)
m_DataGrid = Value
End Set
End Property
'//返回模板
Public ReadOnly Property [DataGridTableStyle]() As DataGridTableStyle
Get
Return m_DataGridTableStyle
End Get
End Property
'//初始化
Public Sub Initialize()
'//判断mDataGrid数据源类型
'//如果绑定的是DataSet或DataViewManager或没有绑定任何数据源，则退出,
If TypeOf m_DataGrid.DataSource Is System.Data.DataSet OrElse _
TypeOf m_DataGrid.DataSource Is System.Data.DataViewManager OrElse _
m_DataGrid.DataSource Is Nothing Then Exit Sub
'//以下分别考虑两种数据源，一是DataView,一是DataTable
If TypeOf m_DataGrid.DataSource Is System.Data.DataView Then
m_DataTable = CType(m_DataGrid.DataSource, DataView).Table
Else
m_DataTable = CType(m_DataGrid.DataSource, DataTable)
End If
m_DataGridTableStyle = New DataGridTableStyle
m_DataGridTableStyle.MappingName = m_DataTable.TableName
'//加ColumnStyle
Dim mDataColumn As DataColumn
Dim mColumnStyle As DataGridColumnStyle
For Each mDataColumn In m_DataTable.Columns
Select Case mDataColumn.DataType.Name
Case "Boolean"
mColumnStyle = New DataGridBoolColumn
Case Else
mColumnStyle = New DataGridTextBoxColumn
AddHandler CType(mColumnStyle, DataGridTextBoxColumn).TextBox.DoubleClick, AddressOf GridTextBox_DoubleClick
End Select
'//绑定到DataTable的Column
|
