关于MSHFlexGrid列宽度的问题，请指教

Question

MSHFlexGrid中怎么能让列宽自动适应文字的长度？
如设置第2列的宽度，文字的长度和列宽的单位不一致，怎么转换，请帮帮忙！
MSHFlexGrid1.ColWidth(1) = Len(文字)

Answer 1

Private Sub ColWidthByCell(ByVal Row As Long, ByVal Col As Long)
    Dim lWidth As Long
    lWidth = (LenB(StrConv(MSFlexGrid1.TextMatrix(Row, Col), vbFromUnicode)) + 1) * MSFlexGrid1.FontSize * 16   '16按情况调整
    If Row = 0 Then
        MSFlexGrid1.ColWidth(Col) = lWidth
    ElseIf MSFlexGrid1.ColWidth(Col) < lWidth Then
        MSFlexGrid1.ColWidth(Col) = lWidth
    End If
End Sub

Answer 2

blog.csdn.net/yinweihong上面都有了,看看

Answer 3

非常感谢winehero(编程人生)和尹伟红！