一个关于MSFlexGrid控件的问题~ [刚才的有问题]

Question

重复一下刚才的问题：
我用MSFlexGrid读出了数据库中的内容，可是列宽不能自动调整。导致有些文本只显示了一部分（当然拖拉列间的格网线可以看到，这样就有些麻烦~），我看了该控件的所有属性，就是找不出可以自动根据文本的宽度自动调整列宽的。刚才的代码我写成了这样
For j = 0 To MSFlexGrid.Cols - 1
        lngLength = 0
        For i = 0 To MSFlexGrid.Rows - 1
             If Len(MSFlexGrid.TextMatrix(i, j)) > lngLength Then
                  lngLength = Len(MSFlexGrid.TextMatrix(i, j))
             End If
        Next i
        MSFlexGrid.ColWidth(j) = lngLength * 200
Next j当表中的文本都是中文的话，效果很好，可是如果里面包含字母和数字的话，就相差很远了 ，应该是字母和数字两个才顶得上一个汉字的缘故吧，不知道怎么解决呢？谢谢各位大虾~~

Answer 1

vb的中
len("中")
len("A")
都反回1
要准确判断长度，需要自己写函数。用mid 及字符ascii码判断。

Answer 2

可lenb("A")=2~~?????
帮帮忙吧~~

Answer 3

不就是想知道指定字符串的宽度吗？
用form1.textwidth
前提是form1的font属性与Mshflexgrid1的font属性相同。