For n = 0 To MSFlexGrid1.Cols - 1 If n = i Then MSFlexGrid1.ColAlignment(i) = flexAlignLeftCenter Else MSFlexGrid1.ColAlignment(i) = flexAlignCenterCenter End If Next
错了。改正: For n = 0 To MSFlexGrid1.Cols - 1 If n = i Then MSFlexGrid1.ColAlignment(n) = flexAlignLeftCenter Else MSFlexGrid1.ColAlignment(n) = flexAlignCenterCenter End If Next
i 为列数
4 为居中显示
If n = i Then
MSFlexGrid1.ColAlignment(i) = flexAlignLeftCenter
Else
MSFlexGrid1.ColAlignment(i) = flexAlignCenterCenter
End If
Next
For n = 0 To MSFlexGrid1.Cols - 1
If n = i Then
MSFlexGrid1.ColAlignment(n) = flexAlignLeftCenter
Else
MSFlexGrid1.ColAlignment(n) = flexAlignCenterCenter
End If
Next
or