怎样按照字段内容的大小自动调整MSFlexGrid中的字段宽度

Question

我的解决办法：
Public Sub AutoColWidth(Mygrid As MSHFlexGrid)
With Mygrid
    Dim I As Long
    Dim J As Long
    Dim MaxWidth As Integer
    Dim NowWidth As Integer
    Dim CharWidth As Single
    CharWidth = Biao.Parent.TextWidth("A")
    For J = 0 To .Cols - 1
        MaxWidth = 0
        For I = 0 To .Rows - 1
            NowWidth = LenC(.TextMatrix(I, J))
            If NowWidth > MaxWidth Then
                MaxWidth = NowWidth
            End If
        Next I
        .ColWidth(J) = (MaxWidth + 1) * CharWidth
    Next J
End With
End SubPublic Function LenC(Zfc As String) As Long
    '求得中英文混合字符串的长度
    Dim a As String
    a = StrConv(Zfc, vbFromUnicode)
    LenC = LenB(a)
End Function

Answer 1

借光问一下，MSFlexGrid在用来显示数据源时，跟datagrid比有什么优点？