vb中,MSFlexGrid1控件,标题行居中,其他行右。如何设置。

2025-04-28 13:05:32
推荐回答(1个)
回答1:

Option Explicit

Const rn = 5
Const cn = 3

Private Sub Form_Load()
               
                
    MSFlexGrid1.Rows = rn
    MSFlexGrid1.Cols = cn
    
    Dim i As Integer, j As Integer
    For i = 0 To rn - 1
        For j = 0 To cn - 1
            MSFlexGrid1.Row = i
            MSFlexGrid1.Col = j
            MSFlexGrid1.Text = i & j
            If i = 0 Or j = 0 Then
                MSFlexGrid1.CellAlignment = 3
            Else
                MSFlexGrid1.CellAlignment = 1
            End If
            
            
        Next j
    Next i
    
    
End Sub