vb6.0中如何容动态调整datagrid列宽

[hua321154]

根据datagrid显示的内容动态调整列宽，就是根据记录中栏位最长的一个栏位动态的调整此列的宽度,使得datagrid没有换行
而且如果记录中某列所有数据都很短，那么列宽也要很短

[chen2chen2chen2]

使用textwidth()函数
因为我没用过DATAGRID，所以没办法用实例跟你说，只能用MSFLEXGRID为例说明一下
dim MaxLen as single
dim CurLen as single
dim Row as integer
dim Col as integer 'col就是你要调整宽度的列

with msflexgrid1
for row=1 to .rows-1
CurLen=textwidth(.textmatrix(row,col))
if CurLen >MaxLen then
MaxLen=CurLen
endif
next
.column(col).width=maxlen
end with

[lsftest]

一贴多发，上次回复了现在又来。。。

[UltraBejing]

等待牛人来答.