如何实现自动根据文字长度调整FlexGrid的列宽？

[swordbroken]

就象Excel中作的一样，双击两列间的分隔线就可以自动调整列宽，如何实现？

[richardbao]

用一个 Label 来处理。把 Label 的字体设成和 FlexGrid 里一样，再加上 AutoSize = True，然后用户双击时，就把这列里的格子里的文字放到 Label 里去，由于 Label 是自动改变大小的，所以可以用它的 Width 属性求得文本所占的宽度。根据宽度取最大的，回去赋给 FlexGrid 就可以了。

[kangshu]

try this:

with mshFlexGrid
for row = 0 to .rows -1
for col=0 to .cols -1
if textwidth(.textmatrix(row,col)<.colwidth(col) then
.colwidth(col) = textwidth(.textmatrix(row,col) + 120
end if
next
next
end with