怎样使msflexgrid中不同的数据类型的字段都居中显示

[dongdn]

请问:
怎样使msflexgrid中不同的数据类型的字段都居中显示?

[dongdn]

我想把第一排（也就是字段名所在排）的所有列都居中显示，能否给个代码。
非常感谢！！

[DimVar]

Dim i, iCols As Integer
iCols = MSFlexGrid1.Cols
For i = 0 To iCols - 1
MSFlexGrid1.ColAlignment(i) = flexAlignCenterCenter
Next

[DimVar]

如果上面的是所有行都局中，如果只针对第一行的话，这个：
Dim i, iCols As Integer
iCols = MSFlexGrid1.Cols
For i = 0 To iCols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.CellAlignment = flexAlignCenterCenter
Next

[dongdn]

这位大虾，我用了你的代码，msflexgrid没有什么变化。
还是不能把字段居中显示。
我该怎么办？

[chenyu5188]

可以在控件的属性中设置的

[飞不动]

该控件每一列都有一个对齐方式的属性。

[DimVar]

抱歉，少了一行。
Dim i, iCols As Integer
iCols = MSFlexGrid1.Cols

MSFlexGrid1.Row = 0'<---------加这行

For i = 0 To iCols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.CellAlignment = flexAlignCenterCenter
Next

[dongdn]

还是没有什么变化，字段仍然不能居中显示。
按照上述代码，我试过了，不能居中。
按照下面的代码，也不能居中。
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.CellAlignment = flexAlignCenterCenter
或者这样：
MSFlexGrid1.Row = 0'<---------加这行

For i = 0 To 13
MSFlexGrid1.Col = i
MSFlexGrid1.CellAlignment = flexAlignCenterCenter
Next i
也不能居中。

请大虾指点！谢谢。

[dongdn]

我的E-mail:[e-mail]

上面的代码能成功的达到居中的效果。我把command2里的代码copy到form_load里，不能居中。
但我要是把command2里的代码copy到form的初始化事件里就能达到居中的效果。不知道这是什么原因。
此外，我要是刷新数据库居中效果就没有了（变回原来的样子了），必须在每个刷新数据库的语句后面添加command2才行。很麻烦的，有简单的方法嘛？
这个居中的效果算是达到了，稍候我会把分给你。
再次感谢你对我的帮助！！

[DimVar]

不..会..吧...你的Email?发个例程给你。

[DimVar]

放两个command button，一个MSFlexGrid到一个新建窗体，全部用缺省名字。粘贴下面的代码。第一个按钮使第1行局中，第2个使所有列局中。
Private Sub Command1_Click()
Dim i, iCols As Integer
iCols = MSFlexGrid1.Cols

MSFlexGrid1.Row = 0

For i = 0 To iCols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.CellAlignment = flexAlignCenterCenter
Next

End Sub

Private Sub Command2_Click()
Dim i, iCols As Integer
iCols = MSFlexGrid1.Cols
For i = 0 To iCols - 1
MSFlexGrid1.ColAlignment(i) = flexAlignCenterCenter
Next
End Sub

Private Sub Form_Load()
Dim i As Integer, n As Integer

MSFlexGrid1.Cols = 4
MSFlexGrid1.Rows = 4

For i = 1 To 4
For n = 1 To 4
MSFlexGrid1.TextMatrix(i - 1, n - 1) = i * n
Next
Next

'put some value with different type
MSFlexGrid1.TextMatrix(0, 1) = "month"
MSFlexGrid1.TextMatrix(0, 2) = "date"
MSFlexGrid1.TextMatrix(1, 1) = "a"
MSFlexGrid1.TextMatrix(3, 3) = "b"
End Sub