MSFlexGrid控件问题？

Question

如何让程序自动调整MSFlexGrid控件的行宽，自动适合文本的长度??!!

Answer 1

dim len
for i= 0 to msflexgrid.rows-1
 if len<len(msflexgrid.textmatrix(i,yourcolumn)) then 'yourcolumn是需要调整的列
    len=len(msflexgrid.textmatrix(i,yourcolumn))
 end if
next
msflexgrid.colwidth(yourcolumn)=len*bw     'bw是每单元len的宽度，你自己试吧
'以上代码没经过测试

Answer 2

关键的一句
If .ColWidth(ICol) < TextWidth(Trim(.text) & "O") Then .ColWidth(ICol) = TextWidth(Trim(.text) & "O")