Henry手记:WinForm Datagrid结构剖析（一） (转)

Henry手记:WinForm Datagrid结构剖析（一） (转)[@more@]

   Henry手记— WinFoRM Datagrid结构剖析（一）XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

    韩睿 （2002-11-14）

 

早就想动手写这个专题，但一直有疑惑自己对于.NET的WinForm中的Datagrid是不是已经能够进行全面的剖析。但近来问起相关问题的人越来越多，一来是使用.net的程序员在增多，二来是大家对Datagrid的使用已经摆脱了最初的显示数据的需求，想要进行高级一点的使用，就应该对Datagrid的结构有一个充分的认识，本文希望能够给有这方面需求的朋友一点小帮忙。

一、  基本结构

从外形上看，Datagrid是由多个表(table)组成的，table是由行(row)与列(column)组成的，行与列的交互，组成的一个个单元(cell)。我们的需要就是能控制每一个cell的变化，从而使row与column发生变化，最终形成table的变化。这每一种变化都可视为是Datagrid中table的一种风格格式（style）。

我们在往form上部署Datagrid控件后，会在其属性窗口下方会出现“自动套用格式”，它们的变化多是背景色（Backcolor）与前景色（Forecolor）与字体（Font）的变化。经过本文的讲述后，您将能够实现更多的格式变化。

描述基本结构，首先请看图1显示的内容：

 

但是，Datagrid并不能直接写入数据，在图1中显示的数据是由datagrid的datasource（数据源）决定的。而这个datasource是支持IEnumerable接口的对象，比如：Arraylist、Collection、Dataview、Datarow、Datatable等等。（这个问题不是本文讨论的重点，暂略过）

那么Datagrid的结构究竟是怎么样的？我尝试的画了一个结构图如图2所示：

为清晰所见，我们主要讨论Datagrid->DatagridTableStyle->DatagridColumnStyle这一支。我们平常所看到的默认结构Datagrid，即把DatagridColumnStyle设定为DatagridTextBoxColumn列结构，把datagrid的列设为由textbox组成。从而我们就可以看到图1显示出来的那种效果，每一个cell里都是一个textbox。同理，我们就知道如果把某一列的DatagridColumnStyle设定为DatagridboolColumn列结构，就可以在该列中用checkbox控件显示与更改boolean类型的值了。我们甚至可以自定义某一列的列类型，加入combox等等，这方面内容在后文会有详述。

那么本节主要讨论的就是当cell是默认的textbox时，对datagrid表现出来的属性的变化，主要包括：列头、列宽、前景与背景色等。在以后的小节中，对扩展的功能进行描述，包括Datagrid中实现键盘与鼠标响应事件、加入自定义的列样式。

在图1中，我要更改列头的内容，是不是和更改表头（caption text）那样方便，只要在代码中写一句：

datagrid1.CaptionText ="Henry示例"  就行了呢？

可惜不是那么简单，正如我们在上文分析地那样，要控制某个列的内容与样式，必须通过更改DatagridColumnStyle来实现。那么，就开工吧：

'构建一简单的dataTable作为Datagrid的数据源

  Label1.Parent = DataGrid1

  Label1.BackColor = Color.Transparent

  Dim dt As DataTable

  dt = DataSet1.Tables.Add("MyTable")

  dt.Columns.Add("列1", GetType(String))

  dt.Columns.Add("列2", GetType(Integer))

  Dim row, row1 As DataRow

  row = dt.NewRow()

  row!列1 = "行1"

  row!列2 = 1

  dt.Rows.Add(row)

  row1 = dt.NewRow()

  row1!列1 = "行2"

  row1!列2 = 12

  dt.Rows.Add(row1)

  '构建完毕

 

Dim ts As New DataGridTableStyle()  '就是它决定了datagrid是什么样的

  Dim aColumnTextColumn As DataGridTextBoxColumn '决定每一列的样式

   DataGrid1.DataSource = dt  ‘ 设定数据源

  ts.MappiNGName = dt.TableName

 

  Dim numCols As Integer

  numCols = dt.Columns.Count ‘数据源的列数

  DataGrid1.CaptionText = "Henry示例"

  Dim i As Integer = 0

 

  Do While (i < numCols) '重绘所有的列

  aColumnTextColumn = New DataGridTextBoxColumn()

  '要更改列头名，请改下句的HeaderText值

  aColumnTextColumn.HeaderText = dt.Columns(i).ColumnName ☆

aColumnTextColumn.MappingName = dt.Columns(i).ColumnName ☆

‘控制列宽与行宽

If i = 1 Then

  ts.PreferredColumnWidth = 50 

ts.PreferredRowHeight = 20 

 End If

ts.AlternatingBackColor = Color.LightGray  '设定交替行的背景色

  ts.GridColumnStyles.Add(aColumnTextColumn)  '增加一种自定义的column风格

  i = (i + 1)

  Loop

  DataGrid1.TableStyles.Add(ts) '增加一种自定义的表风格

  '注：增加风格后，你在datagrid中实时增加新的纪录，风格仍不会变

 

  自已定义datagrid的TableStyle的时候，具体的步骤如上面代码如示，画成步骤图就是：先设定每一个column的样式，如果想用textbox，就定义一个：

Dim aColumnTextColumn As DataGridTextBoxColumn

想控制每一列的列头标题及其列对应的数据库内容，就必须重写HeadText与MappingName，也是必须要声明的两个属性，否则就不能够重写了。

aColumnTextColumn.HeaderText对应的就是列头

aColumnTextColumn.MappingName必须要注意了，它对应的是真实数据库的列名，因此不能随便改动。

有了这两个属性后，一个列就生成了，如果想改变列宽，就用：

ts.PreferredColumnWidth =50

如果想隐藏一列的话，就这样写：

ts.PreferredColumnWidth =0  很简单吧！

如果想让列宽根据数据内容自适应调整，可以这样处理：

aColumnTextColumn.TextBox.AutoSize = True

ts.PreferredColumnWidth = aColumnTextColumn.TextBox.Width

将改变了的DataGridTextboxCoulmn实例加入到GridColumnStyles里去，代码为：

ts.GridColumnStyles.Add(aColumnTextColumn)

将每一列都重写以后（注意，如果你想自定义一个Datagrid的TableStyle，必须对每一列的GridColumnStyle都重写），将该自定义的Tablestyle添加到Datagrid的tablestyle里去即可：

DataGrid1.TableStyles.Add(ts)

通过这几个步骤，我们就控制了每一个cell是Textbox的这种Datagrid的部分属性（cell的前景色与背景色变化在下一节中进行讨论）

那么，如何在Datagrid中加入一个Checkbox列呢？相对于加入其它控件类型的column来说，还是不复杂的。

首先，我们得定义一个具有boolean类型的列，在上面代码中，加入：

dt.Columns.Add("列3", GetType(Boolean))

Dim row, row1 As DataRow

  row = dt.NewRow()

  row!列1 = "行1"

  row!列2 = 1

   row!列3 = False

  dt.Rows.Add(row)

  row1 = dt.NewRow()

  row1!列1 = "行2"

  row1!列2 = 12

  row1!列3 = True

  dt.Rows.Add(row1)

然后就可以用如下的定义进行在Datagrid中内嵌CheckBox了，在上面的代码中补充如下代码：

   Dim ac As DataGridBoolColumn = New DataGridBoolColumn()

ac.HeaderText = dt.Columns(2).ColumnName

ac.MappingName = dt.Columns(2).ColumnName

ts.GridColumnStyles.Add(ac)

 当然要修改：Do While (i < numCols)为Do While (i < numCols-1)。然后在循环之后加入上面的三句代码。再用：DataGrid1.TableStyles.Add(ts)结束。

最后的效果图为：

----

 　声明：本文版权与解释权归韩睿所有，如需转载，请保留完整的内容及此声明。

qq: 18349592

E-Mail: henry7685@hotmail.com

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-993801/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-993801/