怎么让MSHFLEXGRID的文字居中??

Question

找是找到了属性.可是只能一下子改当前格的.
能不能不用循环一下子把整个MSHFLEXGRID中的单元格的文字都变成居中方式??

Answer 1

这是关于MSFlexGrid控件的，MSHFLEXGRID控件类似吧
            Dim i_col As Integer
            Dim c_col As Integer
            c_col = MSFlexGrid1.Col
            If c_col > 0 Then
                For i_col = 0 To (MSFlexGrid1.Cols - 1)
                    MSFlexGrid1.Col = i_col
                    MSFlexGrid1.CellAlignment = flexAlignCenterCenter
                Next i_col
                MSFlexGrid1.Col = c_col
            End If

Answer 2

就简单就是循环列，设置列的对齐方式为中间For I = 0 To MSFlexGrid1.Cols - 1
    MSFlexGrid1.ColAlignment(I) = 4  '设置列的对齐方式
Next