您的位置：程序门 -> vb -> 控件

msflexgrid1根据内容自动调整列宽??? 按照每一列的数据的最大宽度，都能正好完全显示，注：有很多列和行

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

msflexgrid1根据内容自动调整列宽??? 按照每一列的数据的最大宽度，都能正好完全显示，注：有很多列和行

发表于：2007-03-02 14:27:05 楼主

如题
在线等

用过以下方法，但是不能按照每一列的最大宽度

'//自动调整grid各列列宽为最合适的宽度
public sub adjustcolwidth（frmcur as form, gridcur as object, optional bnullrow as boolean = true, optional dblincwidth as double = 0)
'--------------------------------------------------------------------
'功能:
' 自动调整grid各列列宽为最合适的宽度
'参数:
' [frmcur].........................................当前工作窗体
' [gridcur]........................................当前要调整的grid
'--------------------------------------------------------------------
dim i, j as integer
dim dblwidth as double

with gridcur
for i = 0 to .cols - 1
dblwidth = 0
if .colwidth（i) <> 0 then
for j = 0 to .rows - 1
if frmcur.textwidth（.textmatrix（j, i)) > dblwidth then
dblwidth = frmcur.textwidth（.textmatrix（j, i))
end if
next
.colwidth（i) = dblwidth + dblincwidth + 100
end if
next
end with

发表于：2007-03-02 15:36:491楼得分:0

怎么没有人可以帮帮我啊，555555555555

发表于：2007-03-02 15:44:482楼得分:0

呵呵，上面的程序可以用的，都是正确的
我自己没有调用好，晕

发表于：2007-03-02 17:09:563楼得分:0

呵呵，好就可以了

下一篇：vb菜鸟问题小杂烩！？？？解决立即给分绝不食言！
上一篇：日历控件

其他资讯