Henry手记—从Datagrid的标题居中说起

转自：http://www.microsoft.com/china/community/Column/18.mspx

Henry手记—从Datagrid的标题居中说起
韩睿

(02/20/2003)编程的乐趣是什么？相信各人都有自己的见解。Henry最大的快乐是享受创造的喜悦，而且这种喜悦都是建立在可以看得到的实践上的。今天这篇小文源头很简单，是我中午在CSDN论坛上看到一个网友发的帖子，当时也回了帖，但话语不详，更重要的是下午稍稍一试，得到了两种实现的方法，不亦乐乎，尽管事务缠身，也赶紧记下。 命题：如果在.NET中使Datagrid的标题文字居中。 分析一：这个命题似乎不难，主要是Datagrid作者没有提供CaptionAlign这样的属性给大家，所以……那么怎么解决它呢？我想到最直接的方法，就是给标题文字前面加上适当的空格数，使标题文字推到中间去。好，说做就做。 （１）要知道在当前环境下，Datagrid标题栏一个英文字符占据了多大的宽度； （２） Datagrid的宽度/字符宽度=标题栏所能容纳的字符数（３） 给已有标题的文本前面添加n个空格，n=（标题栏所能容纳的字符数－已有标题的字符数）/2 代码如下所示：

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim perWidth As Integer　‘一个英文字符占据的宽度

Dim count As Integer　‘标题栏所能容纳的字符数

Dim len As Integer‘已有标题的字符数

Dim i As Integer

With Graphics.FromHwnd(DataGrid1.Handle).MeasureString
(Text:="ABCDEFGHIJKLMNOPQRSTUVWXYZ", Font:=DataGrid1.Font)

perWidth = CInt(.Width / 26.0!)

End With

count = DataGrid1.Width / perWidth

len = System.Text.Encoding.Default.GetByteCount(DataGrid1.CaptionText)

For i = 1 To (count - len) / 2

DataGrid1.CaptionText = " " + DataGrid1.CaptionText

Next

End Sub

要点1如何计算一个英文字符的宽度，见代码 要点2如何获得标题文本所占的字符数，要知道英文占一个字节，中文是占两个字节。解决方法就是用System.Text.Encoding.Default.GetByteCount来做。这些技巧还是很有用的，望牢记！ 另外，您可以用String.PadLeft属性来试试填充空字符串 结果如图一所示：


图1　第一种方案：加空格
分析二： 但认真一想，这种方法还是不爽，智能化不够，于是乎就有了这种方法。即把标题文字写入一个Label里面去，然后把Label嵌入到datagrid中去，动态地调整Label的位置，不就结了！

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

LabCaption.BackColor = Color.Transparent  ‘设为透明色

LabCaption.AutoSize = True　‘设为可根据文本内容自动调整文本框大小

LabCaption.BorderStyle = BorderStyle.None　‘设为无边框

LabCaption.ForeColor = Color.White　　‘前景色设为白色，就是文字是白色字

DataGrid1.Controls.Add(LabCaption)　　‘将文本框嵌入Datagrid中去

LabCaption.Top = 5‘设置高度，0指的是datagrid的头部位置

LabCaption.Left = (DataGrid1.Width - LabCaption.Width) / 2　‘设置居中

End Sub

图2　第二种方案：嵌入文本框
从图2中我们可以看到整个的实现过程，当然也有小技巧值得一说： 要点1：设置文本框底色为透明。只写一句LabCaption.BackColor=Color.Transparent是不行的，这样的话，系统会将背景色设置为Form的底色，因为透明是相对的嘛，想想变色龙的原理就明白了。我们得设置一步：LabCaption.Parent =DataGrid1这样才行，或者是和上述代码中所写的用：DataGrid1.Controls.Add(LabCaption)也可以。这里Parent属性在弹出菜单里没有，别管它，写上就行了。要点2：很遗憾，这种简单的方法需要把Datagrid的borderstyle设为None或Single，设为3D的时候Label也会有个小边框。一个简单的命题，带给我们思考的喜悦，祝您也一样在工作与学习中获得更多的欣喜！