请问让DataGrid控件的标题居中对齐，该怎么做啊？？？？？？？？

Question

我也一直找不到设置标题居中的属性，gebobo(波波) 的方法不错，不过还有缺点，如果拉大表格列宽的话原来居中的就不居中了。

Answer 1

你右击DataGrid，打开属性窗口，在布局一拦，先选择你要居中对齐的COL，然后在对齐一栏，选择一下2-CENTER就可以了，

Answer 2

在你的窗体初始化和窗体的RESIZE和DATAGRID的RESIZE里可以加入以下代码：Dim inti As Integer
Dim stri As String
DataGrid1.Columns(2).Alignment = dbgCenter
inti = Int((DataGrid1.Columns(2).Width - Len("你的标题")) / 2)
stri = Space$(inti)
DataGrid1.Columns(2).Caption = stri + "你的标题"
另外你也可以自己发挥一下，我上面的代码只不过是简单的介绍，具体的要你自己动手了，不难的！

Answer 3

在你的窗体初始化和窗体的RESIZE和DataGrid1_RowResize里可以加入以上代码：

Answer 4

不行啊，DataGrid1.Columns(2).Width 和Len("你的标题")的结果的单位不一样，怎么解决啊？

Answer 5

用 ^ 这个符号，就是shift+6就可以啦
如："^编号     |^ 检验类型   |^  产品分类   |^ 规格型号   |^  年度  "

Answer 6

补充：
我是用在msflexgrid控件上的，datagrid没有用过，不只是不是

Answer 7

不行啊，DataGrid1.Columns(2).Width 和Len("你的标题")的结果的单位不一样，怎么解决啊？
不行的话，那就是前面的Dim inti As Integer有问题了，你改一个：
Dim inti As Single 试一试，不行你再试一试其它的数据类型！

Answer 8

MsHflexgrid控件我也会用，上面的方法我会啊。就是不知道DataGrid控件的该怎么做？有没有高手给指点指点啊？

Answer 9

zhiboyi(易) DataGrid1.Columns(2).Width 返回的结果是twip类型的，但是twip好像不是数据类型里的啊！

Answer 10

首先：在我的机器上有一条语句是可以执行的：
Text1.Text = Str(DataGrid1.Columns(2).Width)
说明：DataGrid1.Columns(2).Width可以引用。
要不你改一下：
inti = Int(Val(Str(DataGrid1.Columns(2).Width)) - Len("你的标题")) / 2)
不行再回复一下吧！我在线等。

Answer 11

你不在呀，那你给我EMAIL：[email protected]吧。我们再交流一下！我的QQ：178208451

Answer 12

最终答案：准备接分了！哈！不过，你好自己好好研究一下，然后，在我上面上的一些程序段中也要用到我给的方法：其中"你的标题"可以用变量代替（声明一个全局的吧！）
Private Sub DataGrid1_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
Dim inti As Integer
Dim stri As String
inti = Int(Val(DataGrid1.Columns(2).Width) / 220 - Len("你的标题") / 2)
stri = Space$(inti)
DataGrid1.Columns(2).Caption = stri + "你的标题"
End Sub

Answer 13

右击DataGrid 打开属性窗口 在布局一栏  先选择你要居中对齐的标题，然后在对齐一栏，选择一下2-CENTER就可以了。

Answer 14

能不能告诉我，为什么除以220啊？Val函数是干什么用的呢？有什么功能啊？

Answer 15

除以220是中文字在VB中占多少堤单位,跟你的窗体无关的.
窗体的RESIZE和DATAGRID的RESIZE里都要加入以上代码.
以上代码我试过啦,没问题.

Answer 16

why not use vsflexgrid & vsview