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

Question

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

Answer 1

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

Answer 2

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

Answer 3

抱歉，少了一行。 
Dim i, iCols As Integer
    iCols = MSFlexGrid1.Cols    MSFlexGrid1.Row = 0'<---------加这行    For i = 0 To iCols - 1
        MSFlexGrid1.Col = i
        MSFlexGrid1.CellAlignment = flexAlignCenterCenter
    Next

Answer 4

还是没有什么变化，字段仍然不能居中显示。
按照上述代码，我试过了，不能居中。
按照下面的代码，也不能居中。
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
也不能居中。请大虾指点！谢谢。

Answer 5

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

Answer 6

放两个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
    NextEnd SubPrivate Sub Command2_Click()
    Dim i, iCols As Integer
    iCols = MSFlexGrid1.Cols
    For i = 0 To iCols - 1
        MSFlexGrid1.ColAlignment(i) = flexAlignCenterCenter
    Next
End SubPrivate 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

Answer 7

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