Dim I As Long With MSHFlexGrid1 .Cols = 12 For I = 0 To MSHFlexGrid1.Cols - 1 .TextMatrix(0, I) = "COL" & I .ColAlignmentFixed(I) = 3 Next End With End Sub
Dim I As Long With MSHFlexGrid1 .Cols = 12 For I = 0 To MSHFlexGrid1.Cols - 1 .TextMatrix(0, I) = "COL" & I .ColAlignmentFixed(I) = 3 Next End With
^ 这个就是表示居中显示
< 这个就是表示右对齐显示
> 这个就是表示左对齐显示
也可以这样:Private Sub Form_Load()
Dim I As Long
With MSHFlexGrid1
.Cols = 12
For I = 0 To MSHFlexGrid1.Cols - 1
.TextMatrix(0, I) = "COL" & I
.ColAlignmentFixed(I) = 3
Next
End With
End Sub
With MSHFlexGrid1
.Cols = 12
For I = 0 To MSHFlexGrid1.Cols - 1
.TextMatrix(0, I) = "COL" & I
.ColAlignmentFixed(I) = 3
Next
End With
flexAlignCenterTop 3 資料行內容居中、靠上對齊。
flexAlignCenterCenter 4 資料行內容置中、居中對齊。