DataGrid 标题居中

Posted 2023-03-30

请问在VB程序中，如何写代码才能让DataGrid的标题居中显示呢？

注意：VB程序 And 写代码！

谢谢

　　（1）要知道在当前环境下，Datagrid标题栏一个英文字符占据了多大的宽度；
　　（2）Datagrid的宽度/字符宽度=标题栏所能容纳的字符数
　　（3）给已有标题的文本前面添加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
​ 参考技术A 直接设置居中总是偏左

第一步.点击DataGridView的ColumnHeadersDefaultCellStyle属性,在CellStyle生成器中把Alignment属性值改为MiddleCenter.

第二步.这样可能还不居中,是不是总感觉有些偏左,因为列默认就有排序功能,所以只需要去掉列的排序功能即可 1.编辑列 2.选择要修改的列 3.将SortMode属性改为NotSortable 参考技术B 在html页里
<DATAGRID>
<HEADSTYLE FONT-HE...=CENTER />
</DATAGRID>
具体忘记了,标题的STYLE属性里找下