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

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

11 个解决方案

#1

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

#2

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

#3

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

#4

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

#5

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

#6

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

#7

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

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

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

#8

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

请大虾指点！谢谢。

#9

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

#10

放两个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

#11

我的E-mail:[e-mail]

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